-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | Parse source to template-haskell abstract syntax. -- -- The translation from haskell-src-exts abstract syntax to -- template-haskell abstract syntax isn't 100% complete yet. @package haskell-src-meta @version 0.8 module Language.Haskell.Meta.Syntax.Translate class ToName a toName :: ToName a => a -> Name class ToNames a toNames :: ToNames a => a -> [Name] class ToLit a toLit :: ToLit a => a -> Lit class ToType a toType :: ToType a => a -> Type class ToPat a toPat :: ToPat a => a -> Pat class ToExp a toExp :: ToExp a => a -> Exp class ToDecs a toDecs :: ToDecs a => a -> [Dec] class ToDec a toDec :: ToDec a => a -> Dec class ToStmt a toStmt :: ToStmt a => a -> Stmt class ToLoc a toLoc :: ToLoc a => a -> Loc class ToCxt a toCxt :: ToCxt a => a -> Cxt class ToPred a toPred :: ToPred a => a -> Pred class ToTyVars a toTyVars :: ToTyVars a => a -> [TyVarBndr] class ToMaybeKind a toMaybeKind :: ToMaybeKind a => a -> Maybe Kind class ToInjectivityAnn a toInjectivityAnn :: ToInjectivityAnn a => a -> InjectivityAnn type DerivClause = Pred class ToDerivClauses a toDerivClauses :: ToDerivClauses a => a -> [DerivClause] moduleName :: [Char] noTH :: (Functor f, Show (f ())) => String -> f e -> a noTHyet :: (Functor f, Show (f ())) => String -> String -> f e -> a todo :: (Functor f, Show (f ())) => String -> f e -> a nonsense :: (Functor f, Show (f ())) => String -> String -> f e -> a toFieldExp :: FieldUpdate l -> FieldExp toMatch :: Alt l -> Match toBody :: Rhs l -> Body toGuard :: GuardedRhs t -> (Guard, Exp) toKind :: Kind l -> Kind toTyVar :: TyVarBind l -> TyVarBndr toStrictType :: Type l -> StrictType (.->.) :: Type -> Type -> Type foldAppT :: Type -> [Type] -> Type transAct :: Maybe (Activation l) -> Phases qualConDeclToCon :: QualConDecl l -> Con conDeclToCon :: ConDecl l -> Con hsMatchesToFunD :: [Match l] -> Dec hsMatchToClause :: Match l -> Clause hsRhsToBody :: Rhs l -> Body hsGuardedRhsToBody :: GuardedRhs l -> Body hsStmtToGuard :: Stmt l -> Guard collectVars :: Type -> [TyVarBndr] fixForall :: Type -> Type instance Language.Haskell.Meta.Syntax.Translate.ToExp Language.Haskell.TH.Syntax.Lit instance Language.Haskell.Meta.Syntax.Translate.ToExp a => Language.Haskell.Meta.Syntax.Translate.ToExp [a] instance (Language.Haskell.Meta.Syntax.Translate.ToExp a, Language.Haskell.Meta.Syntax.Translate.ToExp b) => Language.Haskell.Meta.Syntax.Translate.ToExp (a, b) instance (Language.Haskell.Meta.Syntax.Translate.ToExp a, Language.Haskell.Meta.Syntax.Translate.ToExp b, Language.Haskell.Meta.Syntax.Translate.ToExp c) => Language.Haskell.Meta.Syntax.Translate.ToExp (a, b, c) instance (Language.Haskell.Meta.Syntax.Translate.ToExp a, Language.Haskell.Meta.Syntax.Translate.ToExp b, Language.Haskell.Meta.Syntax.Translate.ToExp c, Language.Haskell.Meta.Syntax.Translate.ToExp d) => Language.Haskell.Meta.Syntax.Translate.ToExp (a, b, c, d) instance Language.Haskell.Meta.Syntax.Translate.ToPat Language.Haskell.TH.Syntax.Lit instance Language.Haskell.Meta.Syntax.Translate.ToPat a => Language.Haskell.Meta.Syntax.Translate.ToPat [a] instance (Language.Haskell.Meta.Syntax.Translate.ToPat a, Language.Haskell.Meta.Syntax.Translate.ToPat b) => Language.Haskell.Meta.Syntax.Translate.ToPat (a, b) instance (Language.Haskell.Meta.Syntax.Translate.ToPat a, Language.Haskell.Meta.Syntax.Translate.ToPat b, Language.Haskell.Meta.Syntax.Translate.ToPat c) => Language.Haskell.Meta.Syntax.Translate.ToPat (a, b, c) instance (Language.Haskell.Meta.Syntax.Translate.ToPat a, Language.Haskell.Meta.Syntax.Translate.ToPat b, Language.Haskell.Meta.Syntax.Translate.ToPat c, Language.Haskell.Meta.Syntax.Translate.ToPat d) => Language.Haskell.Meta.Syntax.Translate.ToPat (a, b, c, d) instance Language.Haskell.Meta.Syntax.Translate.ToLit GHC.Types.Char instance Language.Haskell.Meta.Syntax.Translate.ToLit GHC.Base.String instance Language.Haskell.Meta.Syntax.Translate.ToLit GHC.Integer.Type.Integer instance Language.Haskell.Meta.Syntax.Translate.ToLit GHC.Types.Int instance Language.Haskell.Meta.Syntax.Translate.ToLit GHC.Types.Float instance Language.Haskell.Meta.Syntax.Translate.ToLit GHC.Types.Double instance Language.Haskell.Meta.Syntax.Translate.ToName GHC.Base.String instance Language.Haskell.Meta.Syntax.Translate.ToName (Language.Haskell.Exts.Syntax.Name l) instance Language.Haskell.Meta.Syntax.Translate.ToName (Language.Haskell.Exts.Syntax.SpecialCon l) instance Language.Haskell.Meta.Syntax.Translate.ToName (Language.Haskell.Exts.Syntax.QName l) instance Language.Haskell.Meta.Syntax.Translate.ToName (Language.Haskell.Exts.Syntax.Op l) instance Language.Haskell.Meta.Syntax.Translate.ToLit (Language.Haskell.Exts.Syntax.Literal l) instance Language.Haskell.Meta.Syntax.Translate.ToPat (Language.Haskell.Exts.Syntax.Pat l) instance Language.Haskell.Meta.Syntax.Translate.ToExp (Language.Haskell.Exts.Syntax.QOp l) instance Language.Haskell.Meta.Syntax.Translate.ToExp (Language.Haskell.Exts.Syntax.Exp l) instance Language.Haskell.Meta.Syntax.Translate.ToDecs a => Language.Haskell.Meta.Syntax.Translate.ToDecs (GHC.Base.Maybe a) instance Language.Haskell.Meta.Syntax.Translate.ToDecs (Language.Haskell.Exts.Syntax.Binds l) instance Language.Haskell.Meta.Syntax.Translate.ToDecs (Language.Haskell.Exts.Syntax.ClassDecl l) instance Language.Haskell.Meta.Syntax.Translate.ToLoc Language.Haskell.Exts.SrcLoc.SrcLoc instance Language.Haskell.Meta.Syntax.Translate.ToName (Language.Haskell.Exts.Syntax.TyVarBind l) instance Language.Haskell.Meta.Syntax.Translate.ToName Language.Haskell.TH.Syntax.Name instance Language.Haskell.Meta.Syntax.Translate.ToName Language.Haskell.TH.Syntax.TyVarBndr instance Language.Haskell.Meta.Syntax.Translate.ToType (Language.Haskell.Exts.Syntax.Kind l) instance Language.Haskell.Meta.Syntax.Translate.ToType (Language.Haskell.Exts.Syntax.Type l) instance Language.Haskell.Meta.Syntax.Translate.ToPred (Language.Haskell.Exts.Syntax.Asst l) instance Language.Haskell.Meta.Syntax.Translate.ToDerivClauses (Language.Haskell.Exts.Syntax.Deriving l) instance Language.Haskell.Meta.Syntax.Translate.ToDerivClauses a => Language.Haskell.Meta.Syntax.Translate.ToDerivClauses (GHC.Base.Maybe a) instance Language.Haskell.Meta.Syntax.Translate.ToStmt (Language.Haskell.Exts.Syntax.Stmt l) instance Language.Haskell.Meta.Syntax.Translate.ToDec (Language.Haskell.Exts.Syntax.Decl l) instance Language.Haskell.Meta.Syntax.Translate.ToMaybeKind (Language.Haskell.Exts.Syntax.ResultSig l) instance Language.Haskell.Meta.Syntax.Translate.ToMaybeKind a => Language.Haskell.Meta.Syntax.Translate.ToMaybeKind (GHC.Base.Maybe a) instance Language.Haskell.Meta.Syntax.Translate.ToInjectivityAnn (Language.Haskell.Exts.Syntax.InjectivityInfo l) instance Language.Haskell.Meta.Syntax.Translate.ToName (Language.Haskell.Exts.Syntax.DeclHead l) instance Language.Haskell.Meta.Syntax.Translate.ToTyVars (Language.Haskell.Exts.Syntax.DeclHead l) instance Language.Haskell.Meta.Syntax.Translate.ToNames a => Language.Haskell.Meta.Syntax.Translate.ToNames (GHC.Base.Maybe a) instance Language.Haskell.Meta.Syntax.Translate.ToNames (Language.Haskell.Exts.Syntax.Deriving l) instance Language.Haskell.Meta.Syntax.Translate.ToNames (Language.Haskell.Exts.Syntax.InstRule l) instance Language.Haskell.Meta.Syntax.Translate.ToNames (Language.Haskell.Exts.Syntax.InstHead l) instance Language.Haskell.Meta.Syntax.Translate.ToCxt (Language.Haskell.Exts.Syntax.InstRule l) instance Language.Haskell.Meta.Syntax.Translate.ToCxt (Language.Haskell.Exts.Syntax.Context l) instance Language.Haskell.Meta.Syntax.Translate.ToCxt a => Language.Haskell.Meta.Syntax.Translate.ToCxt (GHC.Base.Maybe a) instance Language.Haskell.Meta.Syntax.Translate.ToType (Language.Haskell.Exts.Syntax.InstRule l) instance Language.Haskell.Meta.Syntax.Translate.ToType (Language.Haskell.Exts.Syntax.InstHead l) instance Language.Haskell.Meta.Syntax.Translate.ToTyVars a => Language.Haskell.Meta.Syntax.Translate.ToTyVars (GHC.Base.Maybe a) instance Language.Haskell.Meta.Syntax.Translate.ToTyVars a => Language.Haskell.Meta.Syntax.Translate.ToTyVars [a] instance Language.Haskell.Meta.Syntax.Translate.ToTyVars (Language.Haskell.Exts.Syntax.TyVarBind l) instance Language.Haskell.Meta.Syntax.Translate.ToType (Language.Haskell.Exts.Syntax.QName l) instance Language.Haskell.Meta.Syntax.Translate.ToDecs (Language.Haskell.Exts.Syntax.InstDecl l) instance Language.Haskell.Meta.Syntax.Translate.ToDecs (Language.Haskell.Exts.Syntax.Decl l) instance Language.Haskell.Meta.Syntax.Translate.ToDecs a => Language.Haskell.Meta.Syntax.Translate.ToDecs [a] module Language.Haskell.Meta.Parse parsePat :: String -> Either String Pat parseExp :: String -> Either String Exp parseType :: String -> Either String Type parseDecs :: String -> Either String [Dec] -- | Deprecated: The provided ParseModes aren't very meaningful, use -- your own instead myDefaultParseMode :: ParseMode -- | Deprecated: The provided ParseModes aren't very meaningful, use -- your own instead myDefaultExtensions :: [KnownExtension] parseResultToEither :: ParseResult a -> Either String a parseHsModule :: String -> Either String (Module SrcSpanInfo) parseHsDecls :: String -> Either String [Decl SrcSpanInfo] parseHsType :: String -> Either String (Type SrcSpanInfo) parseHsExp :: String -> Either String (Exp SrcSpanInfo) parseHsPat :: String -> Either String (Pat SrcSpanInfo) pprHsModule :: Module SrcSpanInfo -> String moduleDecls :: Module SrcSpanInfo -> [Decl SrcSpanInfo] noSrcSpanInfo :: SrcSpanInfo emptyHsModule :: String -> Module SrcSpanInfo module Language.Haskell.Meta -- | This module is a staging ground for to-be-organized-and-merged-nicely -- code. module Language.Haskell.Meta.Utils cleanNames :: (Data a) => a -> a -- | The type passed in must have a Show instance which produces a -- valid Haskell expression. Returns an empty String if this is -- not the case. This is not TH-specific, but useful in general. pretty :: (Show a) => a -> String pp :: (Data a, Ppr a) => a -> String ppDoc :: (Data a, Ppr a) => a -> Doc gpretty :: (Data a) => a -> String -- |
-- unsafeRunQ = unsafePerformIO . runQ --unsafeRunQ :: Q a -> a nameToRawCodeStr :: Name -> String (|$|) :: ExpQ -> ExpQ -> ExpQ infixr 0 |$| (|.|) :: ExpQ -> ExpQ -> ExpQ infixr 9 |.| (|->|) :: TypeQ -> TypeQ -> TypeQ infixr 9 |->| unForall :: Type -> Type functionT :: [TypeQ] -> TypeQ mkVarT :: String -> TypeQ -- | Infinite list of names composed of lowercase letters myNames :: [Name] -- | Generalisation of renameTs renameThings :: (t2 -> t1 -> t -> (a, t2, t1)) -> t2 -> t1 -> [a] -> [t] -> ([a], t2, t1) -- | renameT applied to a list of types renameTs :: [(Name, Name)] -> [Name] -> [Type] -> [Type] -> ([Type], [(Name, Name)], [Name]) -- | Rename type variables in the Type according to the given association -- list. Normalise constructor names (remove qualification, etc.) If a -- name is not found in the association list, replace it with one from -- the fresh names list, and add this translation to the returned list. -- The fresh names list should be infinite; myNames is a good example. renameT :: [(Name, Name)] -> [Name] -> Type -> (Type, [(Name, Name)], [Name]) -- | Remove qualification, etc. normaliseName :: Name -> Name applyT :: Type -> Type -> Type substT :: [(Name, Type)] -> [Name] -> Type -> Type splitCon :: Con -> (Name, [Type]) strictTypeTy :: StrictType -> Type varStrictTypeTy :: VarStrictType -> Type conTypes :: Con -> [Type] conToConType :: Type -> Con -> Type decCons :: Dec -> [Con] decTyVars :: Dec -> [TyVarBndr] decName :: Dec -> Maybe Name foreignName :: Foreign -> Name unwindT :: Type -> [Type] unwindE :: Exp -> [Exp] -- | The arity of a Type. arityT :: Type -> Int typeToName :: Type -> Maybe Name -- | Randomly useful. nameSpaceOf :: Name -> Maybe NameSpace conName :: Con -> Name recCName :: Con -> Maybe Name dataDCons :: Dec -> [Con] fromDataConI :: Info -> Q (Maybe Exp) fromTyConI :: Info -> Maybe Dec mkFunD :: Name -> [Pat] -> Exp -> Dec mkClauseQ :: [PatQ] -> ExpQ -> ClauseQ -- | The strategy for producing QuasiQuoters which this datatype aims to -- facilitate is as follows. Given a collection of datatypes which make -- up the to-be-quasiquoted languages AST, make each type in this -- collection an instance of at least Show and Lift. -- Now, assuming parsePat and parseExp, both of type -- String -> Q a (where a is the top level type of -- the AST), are the pair of functions you wish to use for parsing in -- pattern and expression context respectively, put them inside a -- Quoter datatype and pass this to quasify. toExpQ :: (Lift a) => (String -> Q a) -> (String -> ExpQ) toPatQ :: (Show a) => (String -> Q a) -> (String -> PatQ) showToPatQ :: (Show a) => a -> PatQ eitherQ :: (e -> String) -> Either e a -> Q a normalizeT :: (Data a) => a -> a instance GHC.Show.Show Language.Haskell.TH.Lib.ExpQ instance GHC.Show.Show (Language.Haskell.TH.Syntax.Q [Language.Haskell.TH.Syntax.Dec]) instance GHC.Show.Show Language.Haskell.TH.Lib.DecQ instance GHC.Show.Show Language.Haskell.TH.Lib.TypeQ instance GHC.Show.Show (Language.Haskell.TH.Syntax.Q GHC.Base.String) instance GHC.Show.Show (Language.Haskell.TH.Syntax.Q Text.PrettyPrint.HughesPJ.Doc)