module Language.Haskell.TH.Compat.Reify.Current (
ParentName,
unClassOpI, unDataConI, unVarI,
reifyFixity,
)where
import Language.Haskell.TH (Info (..), Name, Type, ParentName, Dec, reifyFixity)
unClassOpI :: Info -> Maybe (Name, Type, ParentName)
unClassOpI (ClassOpI n t p) = Just (n, t, p)
unClassOpI _ = Nothing
unDataConI :: Info -> Maybe (Name, Type, ParentName)
unDataConI (DataConI n t p) = Just (n, t, p)
unDataConI _ = Nothing
unVarI :: Info -> Maybe (Name, Type, Maybe Dec)
unVarI (VarI n t md) = Just (n, t, md)
unVarI _ = Nothing