1      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~                 6 Safe   None*9;<=L !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghL !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghNone:Print some value. The printer. The state of the pretty printer.The current line.Current column. Current indentation level. Just outputted a newline? Output of printer Source mappings.The current output.Global options of the printerAre we to pretty print?Use pretty thunk names?Use pretty operators?-default printer options (non-pretty printing)Default state.!Print the given printer indented.kOutput a newline and makes next line indented when prPretty is True. Does nothing when prPretty is FalsegWrite out a raw string, respecting the indentation Note: if you pass a string with newline characters, it will print them out even if prPretty is set to False. Also next line won't be indented. If you want write a smart newline (that is the one which will be written out only if prPretty is true, and after which the line will be indented) use )7exec one of Printers depending on PrintReader property.PGenerate a mapping from the Haskell location to the current point in the output.i>Write out a string, updating the current position information.jOutput concatenation! kilj   kiljSafe ! ! ! !None)mnopqrstuvwxyz{|}~)mnopqrstuvwxyz{|}~)mnopqrstuvwxyz{|}~None.Extract the module name from a qualified name.Extract the name from a QName.(Change or add the ModuleName of a QName.Extract the string from a Name.None#;The name of a module split into a list for code generation.%4Construct the complete ModulePath from a ModuleName.&FConstruct intermediate module paths from a ModuleName. mkModulePaths A.B => [[A], [A,B]]'pConverting a QName to a ModulePath is only relevant for constructors since they can conflict with module names.#$%&'#$%&'#$%&'Safe(3Alias of liftIO, I hate typing it. Hate reading it.))Do any of the (monadic) predicates match?*3Read from a process returning both std err and out.()*      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~()*)(*()*None%+DConfiguration of the compiler. The fields with a leading underscore,Run optimizations-Flatten function application?.Export the runtime?/Export the stdlib?0Export only the stdlib?5Possibly a fay package name, and a include directory.1Pretty print the JS output?2-Output a HTML file including the produced JS.3(Output a source map file as outfile.map.4$Any JS files to link to in the HTML.5%Don't invoke main in the produced JS.63Warn on dubious stuff, not related to typechecking.7File path to output to.8Typecheck with GHC.9Typecheck with -Wall.:&Run Google Closure on the produced JS.;(The package config e.g. packages-6.12.3.Included Fay packages.<#Custom source location for fay-base=Produce strict and uncurried JavaScript callable wrappers for all exported functions with type signatures in the given module>:Only invoke GHC for typechecking, don't produce any output@#Optimize away newtype constructors?AUse pretty thunk names?BUse pretty operators?CPrint commands sent to GHC?F/Reading _configDirectoryIncludes is safe to do.G8Get all include directories without the package mapping.H:Get all include directories not included through packages.I:Add a mapping from (maybe) a package to a source directoryJ Add several include directories.K;Add several include directories without package references.L&Reading _configPackages is safe to do.MAdd a package to compilationN#Add several packages to compilationO5Should a strict wrapper be generated for this module?PDefault configuration.)+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOP%+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO%+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPNone$LMOTRxConvert a Haskell value to a Fay json value. This can fail when primitive values aren't handled by explicit cases. S& can be used to resolve this issue.SConvert a Haskell value to a Fay json value. This can fail when primitive values aren't handled by explicit cases. When this happens, you can add additional cases via the first parameter.qThe first parameter is a function that can be used to override the conversion. This usually looks like using ' to additional type- specific cases.T,Convert a Fay json value to a Haskell value.U~Convert a Fay json value to a Haskell value. This is like readFromFay, except it yields helpful error messages on failure.V,Convert a Fay json value to a Haskell value.qThe first parameter is a function that can be used to override the conversion. This usually looks like using ' to additional type- specific cases.%Parse a data type or record or tuple.Parse a tuple.(Parse a data constructor from an object.RMake a simple ADT constructor from an object: { "slot1": 1, "slot2": 2} -> Foo 1 2;Make a record from a key-value: { "x": 1 } -> Foo { x = 1 }Parse a float.Parse a double. Parse an int. Parse a bool.Parse a string. Parse a char. Parse a Text.Parse an array. Parse unit.RSTUVRSTUVRTUSVRSTUVNone9;.Helpful for writing qualified symbols (Fay.*).Helpful for some things.Helpful for some things.'$'None$/Make an identifier from the built-in HJ module.<Mapping from unqualified names to qualified primitive names.:Lookup a primop that was resolved to a Prelude definition.[If this is resolved to a Prelude identifier or if it's unqualified, check if it's a primopNoneWThe serialization context indicates whether we're currently serializing some value or a particular field in a user-defined data type.ZIThese are the data types that are serializable directly to native JS data types. Strings, floating points and arrays. The others are: actions in the JS monad, which are thunks that shouldn't be forced when serialized but wrapped up as JS zero-arg functions, and unknown types can't be converted but should at least be forced.WXYZ[\]^_`abcdefghiWXYZa`h[\]^_bcdefgiWXYZ[\]^_`abcdefghiNonejLiteral value type.pA name of some kind.|Expression type.Statement type.Just handy to have.?jklmnopqrstuvwxyz{|}~>jklmnopqrstuvwxyz{|}~jklmnop qrstuvwxyz{|}~None/0234*name is not in scopename is ambiguous+type is used where a type class is expected+type class is used where a type is expectedlAttempt to explicitly import a name which is not exported (or, possibly, does not even exist). For example: import Prelude(Bool(Right))The fields are: )optional parent in the import list, e.g. Bool in  Bool(Right)the name which is not exported)the module which does not export the namemodule not foundinternal error global value global type+local value, and location where it is bound-type variable, and location where it is boundhere the value name is boundhere the type name is definedimport: declaration, and the table of symbols that it introduces part of an import declarationexport( declaration, and the symbols it exportsxwildcard in a record pattern. The list contains resolved names of the fields that are brought in scope by this pattern.wildcard in a record construction expression. The list contains resolved names of the fields and information about values assigned to those fields. no annotation scope error\A pair of the name information and original annotation. Used as an annotation type for AST.Qualified name, where ] points to the module where the name was originally defined. The module part is never empty.MAlso contains name and version of the package where it was defined. If it's B6, then the entity is defined in the "current" package.8Possibly qualified name. If the name is not qualified,  is the empty string.!String representing a module name.String representing an unqualified entity nameuThe set of symbols (entities) exported by a single module. Contains the sets of value-level and type-level entities.'Information about a type-level entitity type synonym data typenewtype type family data family type class(Information about a value-level entitityvalue or function class methodrecord field selectordata constructorRepesents the symbol's fixity Display a   Display an  Display an error.@Note: can span multiple lines; the trailing newline is included.F    !  "#$%&A    !  "    !  "#$%&None'Compute the extension set for the given module, based on the global preferences (e.g. specified on the command line) and module's LANGUAGE pragmas.()*+,-./01234' base languageglobal extensions5 ()*+,./0134'()*+,-./01234'5None06+Global symbol table  contains global names6789:;<=>?@ABCDEFGH 6789:?ABDEFG6;789:<=>?@ABCDEFGHNoneII1Local symbol table  contains locally bound namesIJKLMIKLMIJKLMNone#LMN)Information about a field in the wildcardOthe field's simple namePthe field's original nameQowhether there is a global value in scope with the same name as the field but different from the field selectorRAInformation about the names being introduced by a record wildcardDuring resolving traversal, we always (lazily) construct this list when we process PRec or RecConstr, even if it doesn't contain a wildcard.]Then, if the pattern or construction actually contains a wildcard, we use the computed value. NSOPQRTUVWXPORWXNSOPQRTUVWXNone #9;<=?TYGet bound value identifiers.ZsFor record wildcards we need to know which fields the given constructor has. So we pass the global table for that.YZ[\]^_`abcdefghiYZYZ[\]^_`abcdefghiNone,69:;<=DOTj\Contains information about the node's enclosing scope. Can be accessed through the lenses: k, l, m, n.o:Describes how we should treat names in the current contextpA type that implements p< provides a way to perform a shallow scope-aware traversal.qThe algebra for rL. It's newtype-wrapped because an implicit parameter cannot be polymorphic.sCreate an initial scopet]Merge local tables of two scopes. The other fields of the scopes are assumed to be the same.u Analogous to v , but for p$jwxyz{o|}~prqklmnstu jwxyz{o|}~prqklmnstujwxyz{o|}~prqklmnstuNone 9:;<=OTChain a sequence of nodes where every node may introduce some variables into scope for the subsequent nodes. Examples: patterns (see note [Nested pattern scopes]), statements.45None%&:<=MQRT  NoneIf ;< ("qualified"), then only the qualified names are inserted.If ::, then both qualified and unqualified names are insterted.error for "not found" conditionerror for "not found" condition None$TvCompute module's global table. It contains both the imported entities and the global entities defined in this module.9Compute the symbols that are defined in the given module.[The import table is needed to resolve possible top-level record wildcard bindings, such as  A {..} = foo the import table for this module the import table for this module the import table for this moduleNoneThe CPP's parsing state.Parse some Fay code.KApply incredibly simplistic CPP handling. It only recognizes the following: +#if FAY #ifdef FAY #ifndef FAY #else #endiflNote that this implementation replaces all removed lines with blanks, so that line numbers remain accurate.The parse mode for Fay.!NoneLuGiven a configuration, resolve any packages specified to their data file directories for importing the *.hs sources.Resolve package.?Does a directory exist and does it contain any Haskell sources?Describe the given package.5Get the package version from the package description.!Make a share directory generator."None9;DIR$A standard module monad transformer.i is the type of module info, m is the underlying monad.tDifferent libraries (Cabal, haskell-src-exts, ...) use different types to represent module names. Hence this class.1This class defines the interface that is used by /, so that you can use it in monads other than .tYou don't typically have to define your own instances of this class, but here are a couple of cases when you might: A pure (non-*) mockup module monad for testing purposesA transformer over 7You need a more complex way to retrieve the module infoThe type of module infoGRead the module info, given a list of search paths and the module name@Convert module name from arbitrary representation to Cabal's one~Tries to find the module in the current set of packages, then find the module's info file, and reads and caches its contents.Returns B if the module could not be found in the current set of packages. If the module is found, but something else goes wrong (e.g. there's no info file for it), an exception is thrown.Run a  actionthe monadic action to run~return value, plus all cached module infos (that is, the initial set plus all infos that have been read by the action itself)  #NoneDR$NoneDMR)This function takes care of the possible hiding clause  all symbolsmentioned symbolsimported symbols %NoneDRTTake a set of modules and return a list of sets, where each sets for a strongly connected component in the import graph. The boolean determines if imports using SOURCE are taken into account.Annotate a module with scoping information. This assumes that all module dependencies have been resolved and cached  usually you need to run 1 first, unless you have one module in isolation.Compute interfaces for a set of mutually recursive modules and write the results to the cache. Return the set of import/export errors. takes a list of possibly recursive modules and computes the interface of each module. The computed interfaces are written into the mB's cache and are available to further computations in this monad.Returns the set of import/export errors. Note that the interfaces are registered in the cache regardless of whether there are any errors, but if there are errors, the interfaces may be incomplete.Like N, but also returns a list of interfaces, one per module and in the same order base language6global extensions (e.g. specified on the command line) input moduleoutput (annotated) module@module and all extensions with which it is to be compiled. Use ' to build this list. base language6global extensions (e.g. specified on the command line) input modules errors in export or import lists base language6global extensions (e.g. specified on the command line) input modules4output modules, and errors in export or import lists&None'  'None$    $    $    None Error type.NoneDIR%The JavaScript FFI interfacing monad.Compile monad.Uns the compiler+Configuration and globals for the compiler.The compilation configuration.#Things written out by the compiler. Constructors.Fay to JS dispatchers.JS to Fay dispatchers.State of the compiler.$Exported identifiers for all modulesMap types to constructorsMap constructors to fields3Newtype constructor, destructor, wrapped type tuple7Map of all imported modules and their source locations.LDepth of the current lexical scope, used for creating unshadowing variables.,Name of the module currently being compiled./Module paths that have code generated for them.5Use JS Strings instead of [Char] for string literals?9Module level declarations having explicit type signaturesSimple concatenating instance.   !#$%&'+,-./0123456789:;<=>?@ABCWXYZa`h[\]^_bcdefgijklmnopqrstuvwxyz{|}~|}~jklmnopqrstuvwxyz{ !+,-./0123456789:;<=>?@ABCZ[\]^_`abcdefghi  WXY#$%&'   (NonePrint the JS to a flat string. Print the JS to a pretty string.EEncode String to JS-format lterals. Could use the Text.JSON library.Prints pretty operators. prPrettyOperator flag determines the way of accessing operators (e.g. `($)`) and identifiers with apostrophes (e.g. length'H). If prPrettyOperators is set true, then these will be accessed with square brackets (e.g. Prelude["$"] or Prelude["length'"]). Otherwise special characters will be escaped and accessed with dot (e.g. Prelude.$36$ or Prelude.length$39$). Alphanumeric_ identifiers are always accessed with dot operator (e.g. Prelude.length)Print a list of statements.Unqualify a JsName.'Print a constructor name given a QName.Print an unqualified name.<Print a constructor name given a Name. Helper for printCons.bWords reserved in haskell as well are not needed here: case, class, do, else, if, import, in, leteThis is a hack for names generated in the Haskell AST. Should be removed once it's no longer needed.$Encode a Haskell name to JavaScript.3Normalize the given name to JavaScript-valid names.Intercalate monoids. Print one of the kinds of names.Print an expression.Print a module path.Print a single statement. /Print special constructors (tuples, list, etc.)!#Print (and properly encode) a name."Print module name.#3Print (and properly encode to JS) a qualified name.$Print literals.% !"#$%% !"#$None9The opposite of Ptr+. Serialize the specified polymorphic type. foo :: Automatic a -> String=Do not serialize the specified type. This is useful for, e.g. &foo :: String -> String foo = ffi "%1"`This would normally serialize and unserialize the string, for no reason, in this case. Instead: foo :: Ptr String -> Ptr String$Will just give an identity function.Values that may be undefined Defined x encodes to x, Undefined decodes to undefined. An undefined property in a record will be removed when encoding.HValues that may be null Nullable x decodes to x, Null decodes to null.Declare a foreign action. The foreign value.Bottom. )None!"$:&Wrap an expression in a thunk.'Wrap an expression in a thunk.(Generate unique names.)>Resolve a given maybe-qualified name to a fully qualifed name.*lResolve a given maybe-qualified name to a fully qualifed name. Use this when a resolution failure is a bug.+Resolve a newtype constructor.,Resolve a newtype destructor.-&Qualify a name for the current module..6Qualify a QName for the current module if unqualified./Make a top-level binding.0Force an expression in a thunk.1(Is a JS expression a literal (constant)?27Deconstruct a parse result (a la maybe, foldr, either).3Get a config option.4Optimize pattern matching conditions by merging conditions in common. TODO This is buggy and no longer used. Fails on tests/case35Throw a JS exception.6(Throw a JS exception (in an expression).7Is an alt a wildcard?8Is a pattern a wildcard?94Return formatter string if expression is a FFI call.:CGenerate a temporary, SCOPED name for testing conditions and such.;|Generate a temporary, SCOPED name for testing conditions and such. We don't have name tracking yet, so instead we use this.<Print out a compiler warning.=Pretty print a source location.>(Lookup the record for a given type name.? Get the fields for a given type.@Get the flag used for GHC, this differs between GHC-7.6.0 and GHC-everything-else so we need to specially test for that. It's lame, but that's random flag name changes for you.A.Run the top level compilation for all modules.%Runs compilation for a single module.B4Check if the given language pragmas are all present.Cif then else for when @.'&'()DE*+,-./0123456789:;<F=GH>I?@AJBKC'&'()DE*+,-./0123456789:;<F=GH>I?@AJBKC'&'()DE*+,-./0123456789:;<F=GH>I?@AJBKC*None:LMLState.MOptimize monad.NThe arity of a function. Arity here is defined to be the number of arguments that can be directly uncurried from a curried lambda abstraction. So x y z -> if x then (a -> a) else (a -> a) has an arity of 3, not 4.O9Run an optimizer, which may output additional statements.P&Inline x >> y to x;y in the JS output.QFlatten a a>>(b>>c) to [a,b,c].R Try to collect nested a>>(b>>c).SRPerform any top-level cross-module optimizations and GO DEEP to optimize further.TPerform tail-call optimization.U6Strip redundant forcing from the whole generated code.V8Strip redundant forcing from an application if possible.WOApply the given function to the top-level expressions in the given statements.XNApply the given function to the top-level expressions in the given statement.Y9Collect functions and their arity from the whole codeset.ZGet the arity of an expression.['Change foo(x)(y) to foo$uncurried(x,y).\/Rename an uncurried copy of a curried function.L]^_MNOPQRSTUVWXYZ[\L]^_MNOPQRSTUVWXYZ[\L]^_MNOPQRSTUVWXYZ[\+None$`7Compile the given pattern against the given expression.a"Compile a pattern variable e.g. x.bCompile a record field pattern.c-Compile a literal value from a pattern match.d#Compile as binding in pattern matche%Compile a pattern match on a newtype.fCompile a pattern application.gCompile a pattern list.`abcdefg`abcdefg`abcdefg,None#hMGet all non local identifiers that should be exported in the JS module scope.i=Is this *resolved* name a new type constructor or destructor?j.Is this *resolved* name a new type destructor?k/Is this *resolved* name a new type constructor?l>Add a ModulePath to CompileState, meaning it has been printed.m'Has this ModulePath been added/printed?n+Find the type signature of a top level namehoijklmnhoijklmnhoijklmn-None$Lp$Start the compilation process using  compileModule to compile a file.Compile a moduleq$Compile a module given its file pathr5Lookup a module from include directories and compile.sCompile an import.t<Find an import's filepath and contents from its module name.pqrstppqrst.Noneu%Convert a GADT to a normal data type.uuu/None$:LvKCompile an FFI expression (also used when compiling top level definitions).wLWarn about uses of naked x.y which will not play nicely with Google Closure.xMake a Fay!JS encoder.yA name used for transcoding.z?The name used for the forced version of a transcoding variable.{!Get arg types of a function type.|9Convert a Haskell type to an internal FFI representation.}Expand a type application.~Generate a user-defined type.Translate: JS ! Fay.Translate: Fay ! JS.Make a translator.DGet a JS-representation of a fundamental type for encoding/decoding.Get the arity of a type.7Format the FFI format string with the given arguments..Generate n name-typ pairs from the given list.Generate Fay!JS encoding.Generate JS!Fay decoding.Make a JS!Fay decoder.LThe argument types used in serialization of parametrized user-defined types.@Get the index of a name from the set of type variables bindings..Extract the name from a possibly-kinded tyvar.vwxyz{|}~Source Location.The format string. Arguments. The JS code.vxvwxyz{|}~0None$9;<=Compile Haskell expression.Compile variable.Compile Haskell literal.Compile simple application.Helper for compileApp.Compile a negate applicationCompile a let expression.Compile let declaration.Compile a list expression.Compile an if.Compile case expressions.7Compile the given pattern against the given expression.Compile a guarded alt.Compile guardsCompile a lambda.$Compile [e1..] arithmetic sequences.&Compile [e1..e3] arithmetic sequences.'Compile [e1,e2..] arithmetic sequences.)Compile [e1,e2..e3] arithmetic sequences.wCompile a record construction with named fields | GHC will warn on uninitialized fields, they will be undefined in JS.Compile a record update.Make a Fay list.5Optimize short literal [e1..e3] arithmetic sequences.8Optimize short literal [e1,e2..e3] arithmetic sequences.[Maximum number of elements to allow in strict list representation of arithmetic sequences.1None2:<=I 2None|Generate a temporary, SCOPED name for testing conditions and such. We don't have name tracking yet, so instead we use this.9Generates temporary names where the scope doesn't matter.LDon't call this directly, use withScopedTmpName or unscopedTmpNames instead. None:<=;Top level, desugar a whole module possibly returning errorsDesugar with the option to specify a prefix for generated names. Useful if you want to provide valid haskell names that HSE can print.(a f ) => b -> a f b (f b) => a -> a f b)Convert do notation into binds and thens.7(,) => x y -> (x,y) (,,) => x y z -> (x,y,z) etc*case { ... } => foo -> case foo of { ... }6if | p -> x | q -> y => case () of _ | p -> x | q -> y(a,) => b -> (a,b)!{a} => {a=a} for R{a} expressions{a} => {a=a} for R{a} patternsDesugar list comprehensions.We only have Enum instance for Int, but GHC hard codes [x..y] syntax to GHC.Base.Enum instead of using our Enum class so we check for obviously incorrect usages and throw an error on them. This can only checks literals, but it helps a bit.;Adds an explicit import Prelude statement when appropriate.For each toplevel FFI pattern binding, search the module for the relevant type declaration; if found, add a type signature to the ffi expression. e.g. foo :: Int foo = ffi "3" becomes foo :: Int foo = ffi "3" :: Inta / b => op a b a + b => (+) a b for expressionsa : b => (:) a b for patterns(a) => a for patterns3None$EPreprocess and collect all information needed during code generation.3Preprocess a module given its filepath and content.Preprocess from an AST PreprocessingFind newtype declarationsAdd new types to the state$Add record declarations to the state4None$9;<=Compile Haskell declaration.Compile a declaration.!Compile a top-level pattern bind.(Compile a normal simple pattern binding.FCompile a data declaration (or a GADT, latter is converted to former).CCompile a function which pattern matches (causing a case analysis).%Compile a right-hand-side expression.5None The data-files source directory."The default compiler reader value.The default compiler state.6None'Call out to GHC to type-check the file. None !"$9;<=T >Compile a Haskell source string to a JavaScript source string.!Compile the top-level Fay module.Compile a source string.-Compile given the location and source string.Compile a parse HSE module.6For a module A.B, generate | var A = {}; | A.B = {};ZGenerate exports for non local names, local exports have already been added to the module.7Generate strict wrappers for the exports of the module.sIs the module a standard module, i.e., one that we'd rather not output code for if we're compiling separate files.     None!"$9;<= \Compile the given file and write the output to the given path, or if nothing given, stdout.fCompile the given file and write to the output, also generates HTML and sourcemap files if configured. Compile the given file. 7Compile a file returning additional generated metadata. Compile a file returning the resulting internal state of the compiler. Don't use this directly, it's only exposed for the test suite..Compile the given module to a runnable module. ,Convert a Haskell filename to a JS filename. ,Print a compile error for human consumption.TGet the JS runtime source. This will return the user supplied runtime if it exists."Get the default JS runtime source.      \ !+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO     7 !           7899:;;<=>?@@ABCCDEFGHIJKLMNOPPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~       )!-"0# $ % & '4( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                U                    !"#$%&'()*+,-./010203456789:;<=>?@ABCDEFGHIJKLKMKNKOPQRSTUVWXWYWZW[W\W]W^W_W`WaWbWcWdWefgfhfifjfklmnopqprpsptpupvpwxyz{|}p~pppppffffffWWWWWWWWWWWWWW      !"#$%&'()(*(*+,+-+.+/+00102030456789:;<=>?@ABCDEFGHIJKLMNOPQRKSKTKUKVKWKXKYZ[\]^_`abcdefghijklmnopqrstuvwxyxzx{x|x}x~xxx]      !"#$%&'()*+,-./0123456789:#$;&<=(>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aa9b`cdefghijklmn``ogpqrstpuvwxyz{|}~gh       !!!!!!"""""""""""""""""""###$$$$$$$$$$$%%%%%'''''''''''''''''''''''''''''''''''' ((( ( ( ( ( (((((((((((((((())) )!)")#)$)%)&)')()))*)+),)-).)/)0)1)2)3)4)5)6)7)8)9):);)<)=)>)?)@)A)B)C*D*E*F*G*H*I*J*K*L*M*N*O*P*Q*R*S*T*D*U*V+W+X+Y+Z+[+\+]+^,_,`,a,b,c,d,e,f-g-h-i-j-k.l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/{/|/}/~////0000000000000000000000001111111112322                     333333344444445556      $fay-0.23.1.14-2AVfF0IS6whJGxQcOfVprZ Fay.TypesFay.Types.CompileResultFay.Compiler.Prelude Fay.Config Fay.ConvertFay.Compiler.ParseFay.Types.CompileErrorFay.FFI Fay.CompilerFay.Compiler.DesugarFay Paths_fay#Language.Haskell.Names.Open.DerivedFay.Types.PrinterFay.ExtsFay.Compiler.QNameFay.Types.ModulePathFay.Exts.NoAnnotationFay.Compiler.PrimOp Fay.Types.FFI Fay.Types.JsLanguage.Haskell.Names.Types"Language.Haskell.Names.SyntaxUtils(Language.Haskell.Names.GlobalSymbolTable'Language.Haskell.Names.LocalSymbolTable&Language.Haskell.Names.RecordWildcardsLanguage.Haskell.Names.GetBound Language.Haskell.Names.Open.Base%Language.Haskell.Names.Open.Instances Language.Haskell.Names.Annotated!Language.Haskell.Names.ScopeUtils$Language.Haskell.Names.ModuleSymbolsFay.Compiler.PackagesFay.Compiler.ModuleTLanguage.Haskell.Names.ExportsLanguage.Haskell.Names.Imports Language.Haskell.Names.RecursiveLanguage.Haskell.NamesFay.Exts.ScopedFay.Compiler.PrintFay.Compiler.MiscFay.Compiler.OptimizerFay.Compiler.PatternFay.Compiler.StateFay.Compiler.ImportFay.Compiler.GADTFay.Compiler.FFIFay.Compiler.ExpFay.Compiler.Desugar.TypesFay.Compiler.Desugar.NameFay.Compiler.InitialPassFay.Compiler.DeclFay.Compiler.DefaultsFay.Compiler.Typecheck PrintableprintJSPrinter runPrinter PrintStatepsLinepsColumn psIndentLevel psNewline PrintWriter pwMappingspwOutput PrintReaderprPrettyprPrettyThunksprPrettyOperatorsdefaultPrintReaderpwOutputStringdefaultPrintState execPrinterindentednewlinewriteaskIfmapping CompileResult resOutput resImportedresSourceMappings$fShowCompileResult ModulePath unModulePath mkModulePath mkModulePathsmkModulePathFromQNameioanyMreadAllFromProcessConfigconfigOptimizeconfigFlattenAppsconfigExportRuntimeconfigExportStdlibconfigExportStdlibOnlyconfigPrettyPrintconfigHtmlWrapperconfigSourceMapconfigHtmlJSLibs configLibrary configWarnconfigFilePathconfigTypecheck configWallconfigGClosureconfigPackageConfconfigBasePath configStrictconfigTypecheckOnlyconfigRuntimePathconfigOptimizeNewtypesconfigPrettyThunksconfigPrettyOperatorsconfigShowGhcCalls defaultConfigdefaultConfigWithSandboxconfigDirectoryIncludesconfigDirectoryIncludePaths%nonPackageConfigDirectoryIncludePathsaddConfigDirectoryIncludeaddConfigDirectoryIncludesaddConfigDirectoryIncludePathsconfigPackagesaddConfigPackageaddConfigPackagesshouldExportStrictWrapper$fDefaultConfig $fShowConfig showToFay encodeFay readFromFay readFromFay' decodeFaySerializeContextSerializeAnywhereSerializeUserArgFundamentalType FunctionTypeJsTypeListType TupleType UserDefinedDefinedNullableDateType StringType DoubleTypeIntTypeBoolTypePtrType Automatic UnknownTypeJsLitJsCharJsStrJsInt JsFloatingJsBoolJsName JsNameVarJsThisJsParametrizedTypeJsThunkJsForceJsApplyJsParamJsTmp JsConstructor JsBuiltIn JsModuleNameJsExpJsRawExpJsSeqJsFunJsAppJsNegApp JsTernaryIfJsNullJsParen JsGetPropJsLookup JsUpdatePropJsGetPropExternJsUpdatePropExternJsListJsNew JsThrowExp JsInstanceOfJsIndexJsEqJsNeqJsInfixJsObjJsLitObj JsUndefinedJsAndJsOrJsStmtJsVarJsIf JsEarlyReturnJsThrowJsWhileJsUpdate JsSetProp JsSetQName JsSetModuleJsSetConstructorJsSetPropExtern JsContinueJsBlock JsExpStmtparseFaydefaultExtensions CompileErrorCouldn'tFindImport EmptyDoBlockFfiFormatBadCharsFfiFormatIncompleteArgFfiFormatInvalidJavaScriptFfiFormatNoSuchArgFfiNeedsTypeSigGHCErrorInvalidDoBlock ParseErrorShouldBeDesugaredUnableResolveQualifiedUnsupportedDeclarationUnsupportedEnumUnsupportedExportSpecUnsupportedExpressionUnsupportedFieldPatternUnsupportedImportUnsupportedLetUnsupportedLetBindingUnsupportedLiteralUnsupportedModuleSyntaxUnsupportedPatternUnsupportedQualStmtUnsupportedRecursiveDoUnsupportedRhsUnsupportedWhereInAltUnsupportedWhereInMatch$fShowCompileError CompileModuleCompile unCompile CompileReader readerConfigreaderCompileLitreaderCompileDecls CompileWriter writerCons writerFayToJs writerJsToFay CompileStatestateInterfacesstateRecordTypes stateRecords stateNewtypes stateImportedstateNameDepthstateModuleNamestateJsModulePathsstateUseFromString stateTypeSigs$fMonadModuleCompile$fMonoidCompileWriter$fShowCompileState$fShowCompileWriter$fApplicativeCompile$fFunctorCompile$fMonadCompile$fMonadErrorCompile$fMonadIOCompile$fMonadReaderCompile$fMonadStateCompile$fMonadWriterCompile$fApplicativeFay $fFunctorFay $fMonadFayPtr UndefinedNullffirunCompileModule compileWith compileExpdesugardesugar'desugarPatParendesugarExpParen compileDecl compileViaStrcompileToplevelModulecompileModuleFromContentscompileModuleFromAST compileFromTocompileFromToAndGenerateHtml compileFilecompileFileWithResultcompileFileWithStatetoJsNameshowCompileErrorgetConfigRuntime getRuntimecatchIOversionbindirlibdirdatadir libexecdir sysconfdir getBinDir getLibDir getDataDir getLibexecDir getSysconfDirgetDataFileName$fGTraversablecModuleName$fGTraversablecSpecialCon$fGTraversablecQName$fGTraversablecName$fGTraversablecBoxed$fGTraversablecIPName$fGTraversablecQOp$fGTraversablecOp$fGTraversablecCName$fGTraversablecModule$fGTraversablecModuleHead$fGTraversablecExportSpecList$fGTraversablecExportSpec$fGTraversablecImportDecl$fGTraversablecImportSpecList$fGTraversablecImportSpec$fGTraversablecAssoc$fGTraversablecDecl$fGTraversablecAnnotation$fGTraversablecDataOrNew$fGTraversablecDeclHead$fGTraversablecInstHead$fGTraversablecInstRule$fGTraversablecDeriving$fGTraversablecBinds$fGTraversablecIPBind$fGTraversablecMatch$fGTraversablecQualConDecl$fGTraversablecConDecl$fGTraversablecFieldDecl$fGTraversablecGadtDecl$fGTraversablecClassDecl$fGTraversablecInstDecl$fGTraversablecBangType$fGTraversablecRhs$fGTraversablecGuardedRhs$fGTraversablecType$fGTraversablecTyVarBind$fGTraversablecKind$fGTraversablecFunDep$fGTraversablecContext$fGTraversablecAsst$fGTraversablecLiteral$fGTraversablecExp$fGTraversablecXName$fGTraversablecXAttr$fGTraversablecBracket$fGTraversablecSplice$fGTraversablecSafety$fGTraversablecCallConv$fGTraversablecModulePragma$fGTraversablecTool$fGTraversablecActivation$fGTraversablecRule$fGTraversablecRuleVar$fGTraversablecWarningText$fGTraversablecPat$fGTraversablecPXAttr$fGTraversablecRPatOp$fGTraversablecRPat$fGTraversablecPatField$fGTraversablecStmt$fGTraversablecQualStmt$fGTraversablecFieldUpdate$fGTraversablecAlt$fGTraversablecPromoted$fGTraversablecBooleanFormula$fGTraversablecTypeEqn$fGTraversablecOverlap$fGTraversablecSign$fGTraversablecNamespace$fGTraversablecRole"$fGTraversablecPatternSynDirection$fGTraversablecUnpackedness$fGTraversablecResultSig$fGTraversablecInjectivityInfo$fIsStringPrinter$fMonoidPrintWriterwriteRWS$fMonoidPrinterType TyVarBindStmtSrcLoc SpecialConRhsQualStmt QualConDeclQOpQNamePatFieldPatName ModulePragma ModuleNameModuleMatchLiteral ImportSpec ImportDecl GuardedRhsGadtDecl FieldUpdate FieldDecl ExportSpecExpExDeclHeadDecl ClassDeclBangTypeAltX moduleName moduleExportsmoduleNameStringmkIdentnoIconvertFieldDeclfieldDeclNames declHeadNameqModNameunQual changeModuleunname unQualify changeModule' withIdentbaseGHC.Base++ghc-primGHC.PrimseqGHC.Listfilterzip System.IOprint Data.Tuplefstsnd otherwisemap$GHC.Real fromIntegral realToFracjoinGHC.EnumBoundedminBoundmaxBoundEnumenumFrom enumFromThenenumFromThenTo enumFromTofromEnumtoEnumsuccpred GHC.ClassesEq==/= GHC.FloatFloatingpilogsqrt**logBasesincostanasinacosatansinhcoshtanhasinhacoshatanh Fractional fromRational/recipIntegral toIntegerquotremdivquotRemdivModMonad>>=>>returnfail Data.DataDatagfoldlgunfoldtoConstr dataTypeOf dataCast1 dataCast2gmapTgmapQlgmapQrgmapQgmapQigmapMgmapMpgmapMoFunctorfmap<$GHC.NumNum*+-negate fromIntegerabssignumOrd>=minmax><<=compareGHC.ReadReadreadList readsPrecReal toRational RealFloat floatRadix floatDigits floatRange decodeFloat encodeFloatexponent significand scaleFloatisNaN isInfiniteisDenormalizedisNegativeZeroisIEEEatan2RealFracproperFractiontruncateroundceilingfloorGHC.ShowShow showsPrecshowshowListData.Typeable.InternalTypeable Applicativepure<*>*><* Data.FoldableFoldablefoldl'foldrlengthfoldMapnullfoldlfoldl1sumproductfoldr1maximumminimumelemData.Traversable TraversabletraversemapM sequenceAsequenceMonoidmemptymappendmconcat GHC.TypesBoolFalseTrueCharDoubleFloatInt integer-gmpGHC.Integer.TypeIntegerMaybeNothingJustOrderingLTEQGTRationalIOWord Data.EitherEitherLeftRight Data.Monoid<> Data.Functor<$>String GHC.UnicodeisSpaceisAlphaisDigit Text.Readread Alternativeemptymany<|>some MonadPlusmzeromplus Data.ListisSubsequenceOf Control.Monadmfilter<$!>unless replicateM_ replicateMfoldM_foldM zipWithM_zipWithM mapAndUnzipMforever<=<>=>filterMfoldMapDefault fmapDefault mapAccumR mapAccumLforMforControl.Applicativeoptional WrappedMonad WrapMonad unwrapMonad WrappedArrow WrapArrow unwrapArrowZipList getZipList Control.Arrowfirstsecond***&&&|||+++readIOreadLn appendFile writeFilereadFileinteract getContentsgetLinegetCharputStrLnputStrputCharreadsGHC.IO.ExceptionioErrorData.Functor.ConstConstgetConstfindnotElem minimumBy maximumByallanyorand concatMapconcatmsum sequence_forM_mapM_GHC.IOFilePath userErrorIOErrorisRightisLeftpartitionEithersrightsleftseither Data.OldListunwordswordsunlineslinesunfoldrsortOnsortBysort permutations subsequencestailsinitsgroupBygroupdeleteFirstsByunzip7unzip6unzip5unzip4zipWith7zipWith6zipWith5zipWith4zip7zip6zip5zip4genericReplicate genericIndexgenericSplitAt genericDrop genericTake genericLengthinsertByinsert partition transpose intercalate intersperse intersectBy intersectunionByunion\\deleteBydeletenubBynub isInfixOf isSuffixOf isPrefixOf findIndices findIndex elemIndices elemIndex stripPrefix dropWhileEndData.Ord comparingDown Data.Char isSeparatorisNumberisMarkisLetter digitToInt readLitChar lexLitCharlex readParenText.ParserCombinators.ReadPReadS Data.FunctiononvoidtoTitletoUppertoLowerisLowerisUpperisPrint isControl isAlphaNumisSymbol isPunctuation isHexDigit isOctDigit isAsciiUpper isAsciiLowerisLatin1isAsciigeneralCategorylcmgcd^^^oddevenGHC.Charchr intToDigit showLitChar showParen showStringshowCharshowsShowSunzip3unzipzipWith3zipWithzip3!!lookupreversebreakspansplitAtdroptake dropWhile takeWhilecycle replicaterepeatiteratescanr1scanrscanl'scanl1scanlfoldl1'initlasttailunconshead Data.MaybemapMaybe catMaybes listToMaybe maybeToList fromMaybefromJust isNothingisJustmaybeuncurrycurrysubtractasTypeOfuntil$!flip.constidordapliftM5liftM4liftM3liftM2liftMwhen=<<liftA3liftA2liftA<**>GHC.Err undefinederrorWithoutStackTraceerror&&||not"safe-0.3.10-1VyrsjWhmjvGnGud5lgW7fSafe toEnumSafe toEnumNote toEnumDef toEnumMayfindIndexJustNotefindIndexJustDef findIndexJustelemIndexJustNoteelemIndexJustDef elemIndexJust findJustNote findJustDeffindJustlookupJustNote lookupJustDef lookupJustreadNotereadDefreadMayatNoteatDefatMayat assertNote fromJustNote fromJustDef cycleNotecycleDefcycleMay scanl1Note scanr1Note scanl1Def scanr1Def scanl1May scanr1May foldl1Note' foldl1Note foldr1Note foldl1Def' foldl1Def foldr1Def foldl1May' foldl1May foldr1May maximumByNote minimumByNote maximumByDef minimumByDef maximumByMay minimumByMay maximumNote minimumNote maximumDef minimumDef maximumMay minimumMaylastNoteheadNotelastDefheadDeflastMayheadMayinitSafeinitNoteinitDefinitMaytailSafetailNotetailDeftailMayabort_configDirectoryIncludes_configPackagessyb-0.6-C65vWCsht6A8uLstpQIXyjData.Generics.AliasesextQextRparseDataOrTuple parseTuple parseObject makeSimple makeRecord parseFloat parseDoubleparseInt parseBool parseString parseChar parseText parseArray parseUnit GenericParser encodeGeneric lookupField parseUTCTimebadData justRight$fIsStringModuleName$fIsStringQName$fIsStringName SrcSpanInfoSrcSpanSignunAnn fayBuiltin primOpsMap findPrimOp resolvePrimOp$fIsStringJsLit ENotInScope EAmbiguous ETypeAsClass EClassAsType ENotExported EModNotFound EInternal GlobalValue GlobalType LocalValueTypeVar ValueBinder TypeBinderImport ImportPartExportRecPatWildcardRecExpWildcardNone ScopeErrorScopedOrigName ModuleNameSGNameNameSSymbols SymTypeInfoSymTypeSymData SymNewType SymTypeFam SymDataFamSymClass SymValueInfoSymValue SymMethod SymSelectorSymConstructor SymFixityppGName ppOrigNameppErrorErrorNameInfo origGNamegModulegName HasOrigNameorigName st_origName st_fixity sv_origName sv_fixity sv_className sv_typeNamesv_constructors ExtensionSetvalSymstySymsmkValmkTysLoc$fSrcInfoScoped$fMonoidSymbols$fHasOrigNameSymTypeInfo$fHasOrigNameSymValueInfomoduleExtensionsdropAnn getModuleName getImportsgetModuleDeclsgetExportSpecList getModuleHead qNameToNamegetDeclHeadName nameToString stringToNamespecialConToStringunCName getErrorsgetModuleExtensionsTableResultSpecialvalLenstyLenstoGNamelookupL lookupValue lookupTypefromMaps fromListsvaluestypes toSymbols $fMonoidTableaddValueWcField wcFieldNamewcFieldOrigNamewcExistsGlobalValueWcNamesgetElidedFieldsnameOfPatFieldnameOfUpdField patWcNames expWcNamesGetBoundgetBound getBoundSign$fGetBoundPatl$fGetBoundQualStmtl$fGetBoundStmtl$fGetBoundMatchl$fGetBoundClassDecll$fGetBoundFieldDecll$fGetBoundConDecll$fGetBoundGadtDecll$fGetBoundQualConDecll$fGetBoundDecll$fGetBoundBindsl$fGetBound(,)l$fGetBoundMaybel $fGetBound[]lScopegTablelTablenameCtxwcNames NameContext ResolvableAlg rtraverse initialScopemergeLocalScopesrmap2traverse-with-class-0.2.0.4-29flKh81XzlATxY7DyE4EfData.Generics.Traversablegmap_gTable_lTable_nameCtx_wcNamesBindingTBindingV ReferenceT ReferenceVOtherConstraintProxyrunAlgalgdefaultRtraverseintro setNameCtx setWcNamesbinderVbinderTexprVexprT $fResolvableachainc<|-:$fResolvableSrcSpanInfo$fResolvableSrcSpan$fResolvableScoped$fResolvableQualStmt$fResolvable[]$fResolvableGuardedRhs$fResolvableAlt$fResolvableExp$fResolvableBinds$fResolvableMatch$fResolvablePatField$fResolvablePat$fResolvableFieldDecl$fResolvableConDecl$fResolvableDeclHead$fResolvableType$fResolvableDeclannotate annotateRec scopeErrornonenoScope sv_parentcomputeSymbolTable resolveCName resolveCNames moduleTable moduleSymbols Constructors SelectorNameConNameTypeNamegetTopDeclSymbolsCPPStateapplyCPP parseModeNoCPPCPPIfCPPElseresolvePackagesresolvePackagedoesSourceDirExistdescribePackagepackageVersion getShareGenModuleTModName MonadModule getModuleInfoControl.Monad.IO.ClassMonadIO ModuleInforeadModuleInfoconvertModuleName runModuleT modToString lookupInCache insertInCache fromString$fMonadModuleModuleT$fMonadIOModuleT$fMonadTransModuleT $fModName[]processExportsresolveExportSpecListresolveExportSpeccomputeImportedSymbols preludeNameprocessImports processImportresolveImportDeclresolveImportSpecList symbolMapresolveImportSpecann2syms checkUnique$fModNameModuleName groupModulesannotateModulecomputeInterfaces findFixPoint getInterfaces srcSpanInfo liftModuleT printJSString printJSPretty toJsStringLit printProp printStmtsident printConsprintConsUnQual printConsName reservedWords encodeName normalizeName mintercalate$fPrintableJsName$fPrintableJsExp$fPrintableModulePath$fPrintableJsStmt$fPrintableSpecialCon$fPrintableName$fPrintableModuleName$fPrintableQName$fPrintableJsLitallowedNameCharsthunk stmtsThunk uniqueNamestryResolveNameunsafeResolveNamelookupNewtypeConstlookupNewtypeDestqualify qualifyQName bindToplevelforce isConstant parseResultconfigoptimizePatConditionsthrowthrowExp isWildCardAlt isWildCardPatffiExpwithScopedTmpJsNamewithScopedTmpNamewarn printSrcLoc typeToRecs typeToFieldsgetGhcPackageDbFlag runTopCompilehasLanguagePragmasifOptimizeNewtypesorigName2QNamereplaceWithBuiltInsioWarnprintSrcSpanInfo printSrcSpan recToFieldsshouldBeDesugaredhasLanguagePragmaOptStateOptimize FuncArity runOptimizer inlineMonadflattencollectoptimizeTopleveltcostripAndUncurrywalkAndStripForcesapplyToExpsInStmtsapplyToExpsInStmt collectFuncsexpArityuncurryBindingrenameUncurriedoptStmts optUncurry compilePat compilePVarcompilePatFields compilePLit compilePAsPatcompileNewtypePat compilePApp compilePList!getNonLocalExportsWithoutNewtypes isNewtype isNewtypeDest isNewtypeCons addModulePathaddedModulePath findTypeSiggetLocalExportsWithoutNewtypes startCompilecompileModuleFromFilecompileModuleFromName compileImport findImport convertGADT compileFFIExp warnDotUses emitFayToJstranscodingObjtranscodingObjForcedfunctionTypeArgsargType expandApp userDefinedjsToFayfayToJs translatetypeRep typeArity formatFFI explodeFields fayToJsHash jsToFayHash emitJsToFayargTypesgetIndextyvar compileVar compileLit compileApp compileApp' compileNegApp compileLetcompileLetDecl compileList compileIf compileCase compilePatAltcompileGuardedAlt compileGuards compileLambdacompileEnumFromcompileEnumFromTocompileEnumFromThencompileEnumFromThenTocompileRecConstrcompileRecUpdatemakeList optEnumFromTooptEnumFromThenTomaxStrictASLenDesugar unDesugar DesugarReaderreaderNameDepth readerNoInforeaderTmpNamePrefix runDesugarunscopedTmpNamestmpNamedesugarSection desugarDodesugarTupleCon desugarLCasedesugarMultiIfdesugarTupleSectiondesugarFieldPundesugarPatFieldPundesugarListComp checkEnumdesugarImplicitPreludedesugarToplevelFFITypeSigsdesugarInfixOp.haskell-src-exts-1.18.2-5aBnSWxKTxF2aQkkifkM9XLanguage.Haskell.Exts.BuildopdesugarInfixPat desugarStmt'desugarFFITypeSigsdesugarBindsTypeSigsaddFFIExpTypeSigs transformBi universeBi transformBiM initialPasspreprocessFileWithSource preprocessASTscanNewtypeDeclscompileNewtypeDeclscanRecordDecls scanTypeSigs compileDeclscompilePatBindcompileUnguardedRhscompileDataDeclcompileFunCase compileRhsmkTyVars faySourceDirdefaultCompileReaderdefaultCompileState typecheckcompileFileWithSourcecreateModulePathgenerateExportsgenerateStrictExportsanStdlibModulecompileToModule