úÎ9Ď0bš      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­ŽŻ°ą˛ł´ľśˇ¸(c) Matt Morrow 2008BSD3Matt Morrow <mjm2002@gmail.com> experimentalportable (template-haskell)None9;u  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst9  !"#$%&'()*+,-./012345678u   !"#$%tsrqponmlkjihgfedcba`_^]&\'()[ZYXWVUT*+S,-RQP.ONMLK/JIHGFEDCBA@0?>=<123456;:789e    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst(c) Matt Morrow 2008BSD3Matt Morrow <mjm2002@gmail.com> experimentalportable (template-haskell)Noneuvwxyz{|}~€‚ƒ„uvwxyz{|}~€‚ƒ„uvwxyz{|}~€‚„ƒuvwxyz{|}~€‚ƒ„(c) Matt Morrow 2008BSD3Matt Morrow <mjm2002@gmail.com> experimentalportable (template-haskell)NoneI  !"#$%&'()*+,-./012345678uvwxyz{|}~€‚ƒ„None /09:;MOT †The type passed in must have a ShowJ instance which produces a valid Haskell expression. Returns an empty StringK if this is not the case. This is not TH-specific, but useful in general.Š #unsafeRunQ = unsafePerformIO . runQ’4Infinite list of names composed of lowercase letters“Generalisation of renameTs”"renameT applied to a list of types•˙YRename 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.–Remove qualification, etc.¤The arity of a Type.ŚRandomly useful.Žő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.4…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­ŽŻ°ą˛ł´ľśˇ¸.…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­ŽŻ°ą˛4…†‡ˆ‰¸ˇśľ´łŠ‹ŒŽ‘’“”•–—˜™š›œžŸ Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­ŽŻ°ą˛4…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­ŽŻ°ą˛ł´ľśˇ¸Œ09 Ž9 š      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­ŽŻ°ą˛ł´ľśˇ¸šşťź˝ž+haskell-src-meta-0.8-3s8tq2brOMGIjUlxzP9Lty&Language.Haskell.Meta.Syntax.TranslateLanguage.Haskell.Meta.ParseLanguage.Haskell.Meta.UtilsLanguage.Haskell.MetaToDerivClausestoDerivClauses DerivClauseToInjectivityAnntoInjectivityAnn ToMaybeKind toMaybeKindToTyVarstoTyVarsToPredtoPredToCxttoCxtToLoctoLocToStmttoStmtToDectoDecToDecstoDecsToExptoExpToPattoPatToTypetoTypeToLittoLitToNamestoNamesToNametoName moduleNamenoTHnoTHyettodononsense toFieldExptoMatchtoBodytoGuardtoKindtoTyVar toStrictType.->.foldAppTtransActqualConDeclToCon conDeclToConhsMatchesToFunDhsMatchToClause hsRhsToBodyhsGuardedRhsToBody hsStmtToGuard collectVars fixForall $fToDecs[] $fToDecsDecl$fToDecsInstDecl $fToTypeQName$fToTyVarsTyVarBind $fToTyVars[]$fToTyVarsMaybe$fToTypeInstHead$fToTypeInstRule $fToCxtMaybe$fToCxtContext$fToCxtInstRule$fToNamesInstHead$fToNamesInstRule$fToNamesDeriving$fToNamesMaybe$fToTyVarsDeclHead$fToNameDeclHead!$fToInjectivityAnnInjectivityInfo$fToMaybeKindMaybe$fToMaybeKindResultSig $fToDecDecl $fToStmtStmt$fToDerivClausesMaybe$fToDerivClausesDeriving $fToPredAsst $fToTypeType $fToTypeKind$fToNameTyVarBndr $fToNameName$fToNameTyVarBind $fToLocSrcLoc$fToDecsClassDecl $fToDecsBinds $fToDecsMaybe $fToExpExp $fToExpQOp $fToPatPat$fToLitLiteral $fToNameOp $fToNameQName$fToNameSpecialCon $fToNameName0 $fToName[] $fToLitDouble $fToLitFloat $fToLitInt$fToLitInteger $fToLit[] $fToLitChar $fToPat(,,,) $fToPat(,,) $fToPat(,) $fToPat[] $fToPatLit $fToExp(,,,) $fToExp(,,) $fToExp(,) $fToExp[] $fToExpLitparsePatparseExp parseType parseDecsmyDefaultParseModemyDefaultExtensionsparseResultToEither parseHsModule parseHsDecls parseHsType parseHsExp parseHsPat pprHsModule moduleDecls emptyHsModule noSrcSpanInfo cleanNamesprettyppppDocgpretty unsafeRunQnameToRawCodeStr|$||.||->|unForall functionTmkVarTmyNames renameThingsrenameTsrenameT normaliseNameapplyTsubstTsplitCon strictTypeTyvarStrictTypeTyconTypes conToConTypedecCons decTyVarsdecName foreignNameunwindTunwindEarityT typeToName nameSpaceOfconNamerecCName dataDCons fromDataConI fromTyConImkFunD mkClauseQtoExpQtoPatQ showToPatQeitherQ normalizeT$fShowQ$fShowQ0$fShowQ1$fShowQ2$fShowQ3$fShowQ4