-- 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.6.0.13 -- | This module is exported for backwards-compatibility purposes. All it -- does is re-export the instances defined in -- Language.Haskell.TH.Instances, from the th-orphans package. -- | Deprecated: Use the th-orphans package instead. module Language.Haskell.TH.Instances.Lift module Language.Haskell.Meta.Syntax.Translate class ToName a toName :: ToName 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 moduleName :: [Char] noTH :: Show e => String -> e -> a noTHyet :: Show e => String -> String -> e -> a todo :: Show e => String -> e -> a nonsense :: Show e => String -> String -> e -> a toFieldExp :: FieldUpdate -> FieldExp toMatch :: Alt -> Match toBody :: Rhs -> Body toGuard :: GuardedRhs -> (Guard, Exp) toKind :: Kind -> Kind toTyVar :: TyVarBind -> TyVarBndr toStrictType :: Type -> StrictType (.->.) :: Type -> Type -> Type toCxt :: Context -> Cxt foldAppT :: Type -> [Type] -> Type transAct :: Activation -> Phases qualConDeclToCon :: QualConDecl -> Con conDeclToCon :: ConDecl -> Con hsMatchesToFunD :: [Match] -> Dec hsMatchToClause :: Match -> Clause hsRhsToBody :: Rhs -> Body hsGuardedRhsToBody :: GuardedRhs -> Body hsStmtToGuard :: Stmt -> 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 instance Language.Haskell.Meta.Syntax.Translate.ToName Language.Haskell.Exts.Syntax.Module instance Language.Haskell.Meta.Syntax.Translate.ToName Language.Haskell.Exts.Syntax.SpecialCon instance Language.Haskell.Meta.Syntax.Translate.ToName Language.Haskell.Exts.Syntax.QName instance Language.Haskell.Meta.Syntax.Translate.ToName Language.Haskell.Exts.Syntax.Op instance Language.Haskell.Meta.Syntax.Translate.ToLit Language.Haskell.Exts.Syntax.Literal instance Language.Haskell.Meta.Syntax.Translate.ToPat Language.Haskell.Exts.Syntax.Pat instance Language.Haskell.Meta.Syntax.Translate.ToExp Language.Haskell.Exts.Syntax.QOp instance Language.Haskell.Meta.Syntax.Translate.ToExp Language.Haskell.Exts.Syntax.Exp instance Language.Haskell.Meta.Syntax.Translate.ToLoc Language.Haskell.Exts.SrcLoc.SrcLoc instance Language.Haskell.Meta.Syntax.Translate.ToName Language.Haskell.Exts.Syntax.TyVarBind 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 instance Language.Haskell.Meta.Syntax.Translate.ToType Language.Haskell.Exts.Syntax.Type instance Language.Haskell.Meta.Syntax.Translate.ToStmt Language.Haskell.Exts.Syntax.Stmt instance Language.Haskell.Meta.Syntax.Translate.ToDec Language.Haskell.Exts.Syntax.Decl instance Language.Haskell.Meta.Syntax.Translate.ToDecs Language.Haskell.Exts.Syntax.InstDecl instance Language.Haskell.Meta.Syntax.Translate.ToDecs Language.Haskell.Exts.Syntax.Decl instance Language.Haskell.Meta.Syntax.Translate.ToDecs a => Language.Haskell.Meta.Syntax.Translate.ToDecs [a] instance Language.Haskell.Meta.Syntax.Translate.ToDecs Language.Haskell.Exts.Syntax.Binds instance Language.Haskell.Meta.Syntax.Translate.ToDecs (GHC.Base.Maybe Language.Haskell.Exts.Syntax.Binds) 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 parseHsDecls :: String -> Either String [Decl] parseHsType :: String -> Either String Type parseHsExp :: String -> Either String Exp parseHsPat :: String -> Either String Pat pprHsModule :: Module -> String moduleDecls :: Module -> [Decl] emptySrcLoc :: SrcLoc emptyHsModule :: String -> Module -- | DEPRECATED: haskell-src-meta now requires GHC >= 7.4, so this -- module is no longer necessary. It will be GHC-warning deprecated soon. -- -- This module provides the tools to handle operator fixities in infix -- expressions correctly. -- -- The problem we solve is the following. Consider making a quasiquoter -- which antiquotes to Haskell - for instance, the quasiquoter in -- http://hackage.haskell.org/package/hmatrix-static allows me to -- write -- --
-- myVec :: Vector Double -- myVec = [vec| 2+3*4, 5-4-3 |] ---- -- To correctly parse such expressions, we need to know the fixities and -- precedences of the operators, so that the above is parsed the same way -- as -- --
-- myVec = [vec| 2+(3*4), (5-4)-3 |] ---- -- There is a danger, if we are not careful in parsing, that the above -- expression instead parses as -- --
-- myVec = [vec| (2+3)*4, 5-(4-3) |] ---- -- which is a surprising bug, and would only be detected through testing -- at runtime, rather than at compile time. -- -- When this danger arises, we use this "careful" module. It handles -- "unresolved infix" expressions such as 2+3*4 in two ways, -- depending on the version of GHC: -- --
-- unsafeRunQ = unsafePerformIO . runQ --unsafeRunQ :: Q a -> a nameToRawCodeStr :: Name -> String (|$|) :: ExpQ -> ExpQ -> ExpQ (|.|) :: ExpQ -> ExpQ -> ExpQ (|->|) :: TypeQ -> TypeQ -> TypeQ unForall :: Type -> Type functionT :: [TypeQ] -> TypeQ mkVarT :: String -> TypeQ -- | Infinite list of names composed of lowercase letters myNames :: [Name] -- | Generalisation of renameTs renameThings :: (t1 -> t2 -> t -> (a, t1, t2)) -> t1 -> t2 -> [a] -> [t] -> ([a], t1, t2) -- | 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)