diff --git a/changelog.d/20260710_100000_unisay_collapse_monadic_chains.md b/changelog.d/20260710_100000_unisay_collapse_monadic_chains.md new file mode 100644 index 00000000..3150b5a6 --- /dev/null +++ b/changelog.d/20260710_100000_unisay_collapse_monadic_chains.md @@ -0,0 +1,24 @@ +### Changed + +- Non-`Effect`/`ST` monadic chains now collapse to straight-line code (#180). + After magic-do, a budgeted `specialize`+`dce` fixpoint inlines dictionary + methods at their call sites so the case-of-known-constructor folds + (#177/#213/#214) can fire, turning `Maybe`/`Either` `bind` cascades into + straight-line code. Code growth is bounded by a size budget. Four cooperating + parts: + - `propagateKnownCtorThroughLet` resolves an imported constructor reference + through the inline environment. A source-level `Right x` stays a reference + to the `Data.Either.Right` worker (a bare `Ctor`, not a lambda, so the + call-site inliner leaves it in place); without the resolution an inlined + `bind`'s tag test never folds and the chain stayed a deeply-nested + `if`/`let` tree that overflowed the Lua parser's nesting cap. + - Magic-do effect runs carry a dedicated `EffectRunArg` marker, distinct + from the `Prim.undefined` argument that forces an ordinary nullary thunk, + so `isEffectRun` recognises exactly the effect runs magic-do introduces. + Beta reduction then collapses the coincidentally nullary thunks (a + superclass-dictionary accessor, a `runIdentity` newtype coercion) that a + non-`Effect` monad such as `State` inlines, which were being left + un-reduced and bloating the output. + - A constructor-tag read distributes through a conditional of constructors, + so an inlined comparison's `Ordering` if-tree folds to tag strings instead + of allocating an `Ordering` table at runtime only to read the tag back. diff --git a/lib/Language/PureScript/Backend/IR/DCE.hs b/lib/Language/PureScript/Backend/IR/DCE.hs index 9570631f..9f444408 100644 --- a/lib/Language/PureScript/Backend/IR/DCE.hs +++ b/lib/Language/PureScript/Backend/IR/DCE.hs @@ -26,6 +26,7 @@ import Language.PureScript.Backend.IR.Types , RawExp (..) , WasRewritten (..) , getAnn + , isEffectRun , listGrouping , rewriteExpBottomUp , rewrittenIf @@ -183,8 +184,10 @@ eliminateDeadCode uber@UberModule {..} = ∷ [Grouping ((Id, Ann), Name, AExp)] → [Grouping ((Id, Ann), Name, AExp)] preservedGroupings = mapMaybe \case - g@(Standalone ((nameId, _ann), _name, _expr)) → - g <$ guard (nameId `member` reachableIds) + -- An effect statement is kept even though its binder is unreferenced: + -- dropping it would silently discard the side effect (see 'isEffectRun'). + g@(Standalone ((nameId, _ann), _name, expr)) → + g <$ guard (nameId `member` reachableIds || isEffectRun expr) RecursiveGroup recBinds → RecursiveGroup <$> NE.nonEmpty @@ -376,9 +379,18 @@ eliminateDeadCode uber@UberModule {..} = expressionDependsOnIds ∷ Scope → AExp → [Id] expressionDependsOnIds exprScope = \case Ref _ann qname → maybeToList $ Map.lookup qname exprScope - -- A Let node depends only on its body: the groupings are pulled in - -- via the per-binder nodes built by 'adjacencyListForGrouping'. - Let _ann _groupings body → [nodeId body] + -- A Let node depends on its body, and on any effect-run binding it holds: + -- the groupings referenced by name are pulled in via the per-binder nodes + -- built by 'adjacencyListForGrouping', but a magic-do effect statement + -- (@let _ = m EffectRunArg@) is bound to an unreferenced name, so nothing + -- would otherwise keep its observable side effect reachable (see + -- 'isEffectRun' and Note [Sequential scoping of Let bindings]). + Let _ann groupings body → + nodeId body + : [ nodeId rhs + | Standalone (_binder, _name, rhs) ← toList groupings + , isEffectRun rhs + ] other → nodeId <$> toListOf subexpressions other {- | Under GUC (@UniqueBinders@) no two live binders at one site share a diff --git a/lib/Language/PureScript/Backend/IR/MagicDo.hs b/lib/Language/PureScript/Backend/IR/MagicDo.hs index d87d5853..84a945b8 100644 --- a/lib/Language/PureScript/Backend/IR/MagicDo.hs +++ b/lib/Language/PureScript/Backend/IR/MagicDo.hs @@ -73,6 +73,7 @@ import Language.PureScript.Backend.IR.Types , unwindApp , pattern Abs , pattern App + , pattern EffectRunArg ) -- | Flatten Effect/ST @do@ blocks in every binding and export of the module. @@ -252,12 +253,13 @@ isBindDict resolve dict = -- Helpers --------------------------------------------------------------------- {- | Run an Effect/ST computation: apply the thunk to no arguments. The -synthetic @Prim.undefined@ argument is erased to an empty argument list by -the Lua code generator, so this emits @m()@. +synthetic 'EffectRunArg' argument is erased to an empty argument list by the Lua +code generator, so this emits @m()@. Unlike @Prim.undefined@ (the argument that +forces an ordinary nullary thunk), 'EffectRunArg' marks this application as an +effect run so 'isEffectRun' recognises it precisely (issue #180). -} runEffect ∷ Exp → Exp -runEffect m = - App noAnn m (Ref noAnn (Imported (ModuleName "Prim") (Name "undefined"))) +runEffect m = App noAnn m (EffectRunArg noAnn) {- | Bound on alias/instance resolution to stay terminating on recursive bindings. diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs index 517cc485..d28d42a3 100644 --- a/lib/Language/PureScript/Backend/IR/Optimizer.hs +++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs @@ -46,7 +46,9 @@ import Language.PureScript.Backend.IR.Types , countFreeRef , countFreeRefs , ctorId + , freshenBinders , getAnn + , isEffectRun , isForeignImport , isNonRecursiveLiteral , lets @@ -124,6 +126,15 @@ optimizerPipeline neverNames = -- `discard` are not dropped as dead. See -- Language.PureScript.Backend.IR.MagicDo. RunPass magicDoPass + , -- Budgeted call-site inlining of dictionary methods (issue #180), the + -- cure for non-Effect/ST monadic chains that compile to nested closure + -- chains. Runs only here, after magicDo has lowered the Effect/ST chains: + -- inlining a bind before that would leave magicDo a chain it can no + -- longer recognise. The inlined methods' constructor matches then meet + -- the case-of-known-constructor folds (#177/#213/#214), collapsing + -- Maybe/Either/Writer/State chains into straight-line code. Code growth + -- is bounded by 'inlineSizeBudget'. + RunFixpoint "specialize+dce" (specializePass :| [dcePass]) , -- Flatten the remaining deeply-nested expression trees (issues #104, -- #108): continuation/bind chains of any monad (lambda-lifted -- into $kont helpers) and applicative/flipped-bind application @@ -141,10 +152,23 @@ optimizerPipeline neverNames = , passRequires = wellScoped , passEnsures = guc } + -- The pre-magicDo optimize pass does no call-site inlining: an inlined + -- Effect/ST @bind@ is one magicDo can no longer recognise (issue #180). optimizePass = Pass { passName = "optimize" - , passRun = optimizeModule neverNames + , passRun = optimizeModule SkipCallSites neverNames + , passRequires = guc + , passEnsures = guc + } + -- The post-magicDo pass adds budgeted call-site inlining (issue #180): with + -- Effect/ST chains already lowered, only non-Effect/ST methods remain to + -- specialize, and inlining them lets the constructor folds collapse the + -- chain to straight-line code. + specializePass = + Pass + { passName = "specialize" + , passRun = optimizeModule InlineCallSites neverNames , passRequires = guc , passEnsures = guc } @@ -270,8 +294,12 @@ Besides removing the quadratic cost, this counts against the live bindings, so the use-once decision no longer misjudges a binding whose references changed earlier in the same run (issue #143). -} -optimizeModule ∷ Set QName → UberModule → SupplyM (UberModule, WasRewritten) -optimizeModule neverNames UberModule {..} = runWriterT do +optimizeModule + ∷ CallSiteInlining + → Set QName + → UberModule + → SupplyM (UberModule, WasRewritten) +optimizeModule inlining neverNames UberModule {..} = runWriterT do -- See Note [Incremental free-reference counting] let initialCounts = Map.unionsWith (+) (countFreeRefs . snd <$> uberModuleExports) @@ -287,12 +315,46 @@ optimizeModule neverNames UberModule {..} = runWriterT do , uberModuleExports = uberModuleExports' } where + -- Top-level bindings the call-site inliner may resolve and paste + -- (issue #180): Standalone RHSs, minus the @inline never@ set. Built from + -- the pristine input bindings, a stable snapshot for this run; the + -- specialize+dce fixpoint rebuilds it each round as bindings settle. Empty + -- when call-site inlining is off, so the two inline rules never fire — the + -- pre-magicDo runs, where inlining an Effect/ST @bind@ would rob magicDo of + -- the un-inlined chain it recognises (see 'optimizerPipeline'). + inlineEnv ∷ InlineEnv + inlineEnv = case inlining of + SkipCallSites → mempty + InlineCallSites → + Map.fromList + [ (qualifiedQName qname, expr) + | Standalone (qname, expr) ← uberModuleBindings + , qname `Set.notMember` neverNames + ] + + -- Whether 'withBinding' may drop a whole top-level binding by inlining it + -- into its use sites. Off exactly when call-site inlining is on, because the + -- two are unsound together: 'inlineEnv' is a snapshot taken before this run + -- mutates anything, so a host binding it holds may still name a binding that + -- 'withBinding' drops mid-run. Pasting that stale host (into a later binding + -- or an export) then reintroduces a reference to the dropped binding — a + -- dangling name the later DCE cannot repair, since DCE removes bindings but + -- never references. Leaving every binding in place during a call-site pass + -- keeps the snapshot honest; the following DCE still collects whatever the + -- pasting left unreferenced. The pre-magicDo runs, with no env to go stale, + -- keep the whole-binding inlining (see Note [Incremental free-reference + -- counting] and 'optimizerPipeline'). + mayInlineWholeBinding ∷ Bool + mayInlineWholeBinding = case inlining of + SkipCallSites → True + InlineCallSites → False + -- Every expression rewrite and every top-level inlining reports into -- the pass's 'WasRewritten' result; nothing else in this pass changes -- the module, so a converged module reports 'Unmodified'. optimizeExp ∷ Exp → WriterT WasRewritten SupplyM Exp optimizeExp e = do - (e', rewritten) ← lift (optimizedExpressionM e) + (e', rewritten) ← lift (optimizedExpressionM inlineEnv e) e' <$ tell rewritten -- See Note [Incremental free-reference counting] @@ -311,7 +373,8 @@ optimizeModule neverNames UberModule {..} = runWriterT do let qn = qualifiedQName qname occurrences = Map.findWithDefault 0 qn counts isUsedOnce = occurrences == 1 - if qname `Set.notMember` neverNames + if mayInlineWholeBinding + && qname `Set.notMember` neverNames && not (isForeignImport expr) && (isInlinableExpr expr || isUsedOnce) then do @@ -373,21 +436,52 @@ substituteInExports qname inlinee = traverse \case (name, expr) → (name,) <$> substituteCopyM (qualifiedQName qname) inlinee expr +{- | Top-level bindings visible to call-site inlining (issue #180), keyed by +the qualified name a reference uses. Built once per 'optimizeModule' run from +the 'Standalone' bindings, minus the @inline never@ set. Recursive-group +members are deliberately absent, so a self-referential dictionary is never +unfolded (Note [Eta reduction is unsound]). +-} + +{- | Whether an 'optimizeModule' run performs call-site inlining (issue +#180). Off before magic-do so it cannot dismantle the Effect/ST @bind@ chains +magic-do recognises; on in the specialize fixpoint that runs after (see +'optimizerPipeline'). +-} +data CallSiteInlining = InlineCallSites | SkipCallSites + +type InlineEnv = Map (Qualified Name) Exp + +{- | The largest expression the call-site inliner will paste, GHC's +unfolding-use-threshold analogue, sized in IR nodes. Code growth is the +transform's main risk (issue #180); this bounds it. Deliberately generous +enough to admit an uncurried monad-method worker (a folded Maybe/Either +match), the payload the cascade is built to collapse. +-} +inlineSizeBudget ∷ Natural +inlineSizeBudget = 64 + +-- | Node count of an expression, for 'inlineSizeBudget'. +expSize ∷ RawExp ann → Natural +expSize e = 1 + sum (expSize <$> toListOf subexpressions e) + {- | Pure wrapper for tests and standalone use: runs the rewrite with -its own supply. Production code uses 'optimizedExpressionM' so all -passes share one supply. +its own supply and no inlining environment. Production code uses +'optimizedExpressionM' so all passes share one supply. -} optimizedExpression ∷ Exp → Exp -optimizedExpression = runSupply . fmap fst . optimizedExpressionM +optimizedExpression = runSupply . fmap fst . optimizedExpressionM mempty -optimizedExpressionM ∷ Exp → SupplyM (Exp, WasRewritten) -optimizedExpressionM = +optimizedExpressionM ∷ InlineEnv → Exp → SupplyM (Exp, WasRewritten) +optimizedExpressionM env = -- See Note [Eta reduction is unsound] rewriteExpBottomUpM ( constantFolding `thenRewrite` reduceObjectProp `thenRewrite` reduceKnownConstructor - `thenRewrite` propagateKnownCtorThroughLet + `thenRewrite` propagateKnownCtorThroughLet env + `thenRewrite` resolveDictionaryProp env + `thenRewrite` inlineSaturatedCall env `thenRewrite` betaReduce `thenRewrite` removeUnreachableThenBranch `thenRewrite` removeUnreachableElseBranch @@ -598,6 +692,17 @@ reduceKnownConstructor = unwindApp scrutinee , length args == length fields → Just $ LiteralString ann (ctorId modName tyName ctorName) + -- A tag read over a conditional of constructors distributes into the + -- branches, where each meets the rule above and folds to its tag string + -- (issue #180): an inlined comparison (@compare@\/@>=@) is an if-tree of + -- 'Ordering' constructors, and @reflectCtor@ over it would otherwise build + -- an 'Ordering' table at runtime only to read the tag back off it. Guarded + -- so it fires only when every branch folds, so it never leaves a residual + -- read nor grows a conditional whose branches are not constructors. + ReflectCtor ann (IfThenElse ifAnn cond t e) + | reflectFoldsThrough t + , reflectFoldsThrough e → + Just $ IfThenElse ifAnn cond (ReflectCtor ann t) (ReflectCtor ann e) DataArgumentByIndex ann index scrutinee | (Ctor _ _ _ _ _ fields, args) ← unwindApp scrutinee , length args == length fields @@ -613,6 +718,20 @@ reduceKnownConstructor = Just (setAnn ann arg) _ → Nothing +{- | Whether @ReflectCtor@ over this expression folds away completely: it is a +saturated sum-type constructor application (folds to its tag string) or a +conditional whose branches all do. Only then does 'reduceKnownConstructor' +distribute a tag read into an 'IfThenElse', so the rewrite never leaves a +residual read behind nor grows a conditional over non-constructor branches. +-} +reflectFoldsThrough ∷ RawExp ann → Bool +reflectFoldsThrough = \case + IfThenElse _ _ t e → reflectFoldsThrough t && reflectFoldsThrough e + scrutinee + | (Ctor _ SumType _ _ _ fields, args) ← unwindApp scrutinee → + length args == length fields + _ → False + {- | Case-of-known-constructor through a let-bound scrutinee (issue #214). 'reduceKnownConstructor' only fires on a constructor that is in place, and a @@ -652,9 +771,21 @@ would dangle the reference, and keeping it while binding the fields would duplicate the arguments. A product-type @ReflectCtor@ read has no tag row to fold to, so it too leaves a whole-value read and the rule declines. GUC keeps the fresh field-binders unique and the binder resolved by name. + +The RHS's constructor is recognised either as an in-place 'Ctor' node or, via +the inline environment, through a 'Ref' to a top-level constructor binding +(issue #180). A user-written @Right x@ compiles to a reference to the +@Data.Either.Right@ worker, which 'inlineSaturatedCall' leaves in place — its +'Ctor' RHS is not a lambda, and pasting the worker would only rebuild the same +@(function … end)(x)@ the reference already denotes, more deeply nested. So +without the through-a-reference resolution the constructor test the inlined +@bind@ introduces (@justTag == ReflectCtor v@) never folds, and the collapsed +monadic chain stays a deeply-nested @if@\/@let@ tree. Resolving the reference +only to read its arity and tag introduces no 'Ctor' node, so a chain that does +not fold is not pessimised into pasted constructor thunks. -} -propagateKnownCtorThroughLet ∷ RewriteRuleM SupplyM Ann -propagateKnownCtorThroughLet = \case +propagateKnownCtorThroughLet ∷ InlineEnv → RewriteRuleM SupplyM Ann +propagateKnownCtorThroughLet env = \case Let ann groupings body | Just (before, (name, algTy, fields, args, tag), after) ← findCtorBinding (toList groupings) @@ -700,20 +831,31 @@ propagateKnownCtorThroughLet = \case go _before [] = Nothing go before (grouping : after) = case grouping of Standalone (_bAnn, name, rhs) - | (Ctor _ algTy modName tyName ctorName fields, args) ← unwindApp rhs + | Just (algTy, fields, args, tag) ← asKnownCtorApp rhs , length args == length fields , -- A self-referencing RHS cannot arise under GUC (a Standalone RHS -- does not see its own binder), but 'optimizedExpression' also runs -- on non-GUC input; dropping the binding would then dangle the -- field-binder that copied the reference (cf. 'inlineLocalBinding'). countFreeRef (Local name) rhs == 0 → - Just - ( reverse before - , (name, algTy, fields, args, ctorId modName tyName ctorName) - , after - ) + Just (reverse before, (name, algTy, fields, args, tag), after) _ → go (grouping : before) after + -- A saturated constructor application, recognised either as an in-place + -- 'Ctor' node or through a 'Ref' to a top-level constructor binding held in + -- the inline environment (issue #180 — see the note on this function). The + -- returned tag and field list come from the constructor's declaration; the + -- arguments come from the application spine. + asKnownCtorApp ∷ Exp → Maybe (AlgebraicType, [FieldName], [Exp], Text) + asKnownCtorApp rhs = case unwindApp rhs of + (Ctor _ algTy modName tyName ctorName fields, args) → + Just (algTy, fields, args, ctorId modName tyName ctorName) + (Ref _ ctorRef, args) + | Just (Ctor _ algTy modName tyName ctorName fields) ← + Map.lookup ctorRef env → + Just (algTy, fields, args, ctorId modName tyName ctorName) + _ → Nothing + countFreeRefGrouping ∷ Name → Grouping (Ann, Name, Exp) → Natural countFreeRefGrouping name grouping = sum [countFreeRef (Local name) e | (_ann, _n, e) ← listGrouping grouping] @@ -778,6 +920,70 @@ propagateKnownCtorThroughLet = \case fromIntegral <$> List.findIndex ((renderPropName prop ==) . renderFieldName) fields +{- | Resolve a method projection off a known top-level dictionary (issue +#180). When @dict@ is a reference to a top-level 'LiteralObject' binding, +@dict.method@ is replaced by the method expression itself — the concrete +@bind@ / @apply@ / @map@ — without inlining the rest of the dictionary. The +generic accessor @Control.Bind.bind = λdict. dict.bind@, once its @dict@ +argument is inlined and beta-reduced, becomes exactly this @dict.bind@ +projection, so this rule is what turns it into the concrete method a call +site can then reduce. + +The projection over a 'LiteralObject' /literal/ is already handled by +'reduceObjectProp'; this is its through-a-reference companion, reading the +literal out of the environment. Reading a field of a known record is +behaviour-preserving, so the resolved method — freshened to keep the copied +binders unique while the dictionary binding survives — evaluates exactly as +the projection did. + +It declines a method that names its own dictionary (a superclass or +recursive dictionary), which pasting would dangle or unfold forever, and one +larger than 'inlineSizeBudget'. The result takes the projection's own +annotation, never the method's, for the reason 'reduceObjectProp' spells out. +-} +resolveDictionaryProp ∷ InlineEnv → RewriteRuleM SupplyM Ann +resolveDictionaryProp env = \case + ObjectProp ann (Ref _ dictName) prop + | Just (LiteralObject _ props) ← Map.lookup dictName env + , Just method ← List.lookup prop props + , countFreeRef dictName method == 0 + , expSize method <= inlineSizeBudget → + Just . setAnn ann <$> freshenBinders method + _ → pure Nothing + +{- | Inline a top-level lambda binding into a saturated call site (issue +#180). When the head of an application spine references a top-level binding +whose RHS is a lambda, and the spine supplies at least the arguments the +lambda binds, the reference is replaced by a fresh copy of the lambda, which +'betaReduce' then reduces against the arguments. This is what specializes a +monad method to its call site: the concrete worker is pasted in, its +constructor matches meet 'reduceKnownConstructor' and +'propagateKnownCtorThroughLet', and the chain collapses to straight-line +code. + +Pasting a lambda (a value) duplicates no work, and 'betaReduce' let-binds any +non-trivial argument rather than copy it into each use, so the reduction is +behaviour-preserving (issue #167). Growth is bounded by 'inlineSizeBudget'. +The rule declines a self-referential RHS, which cannot arise for a Standalone +binding under GUC but must not be unfolded on the non-GUC input the rewrite +also runs on (Note [Eta reduction is unsound] is the reason the environment +holds no recursive-group members either). +-} +inlineSaturatedCall ∷ InlineEnv → RewriteRuleM SupplyM Ann +inlineSaturatedCall env expr = case unwindApp expr of + (Ref _ fname, args) + | not (null args) + , Just rhs ← Map.lookup fname env + , AbsN _ params _ ← rhs + , length args >= length params + , countFreeRef fname rhs == 0 + , expSize rhs <= inlineSizeBudget → + Just . rebuildSpine args <$> freshenBinders rhs + _ → pure Nothing + where + rebuildSpine ∷ [Exp] → Exp → Exp + rebuildSpine args head' = foldl' (\f a → AppN Nothing f (a :| [])) head' args + {- Note [Beta reduction and local inlining share an inlining guard] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'betaReduce' and 'inlineLocalBinding' decide whether to paste an expression @@ -807,14 +1013,22 @@ binding unconditionally. See Note [IR is assumed well-typed]. -} betaReduce ∷ RewriteRuleM SupplyM Ann betaReduce = \case - AppN _ (AbsN _ params body) args + redex@(AppN _ (AbsN _ params body) args) | length args == length params , -- Under GUC the parameters are pairwise-distinct binders. The rule -- is also exercised standalone on non-GUC input, where a repeated -- parameter name would let the first substitution steal the -- occurrences belonging to the last same-named parameter (the one -- Lua binds), so it declines rather than mis-substitute. - distinctParamNames params → do + distinctParamNames params + , -- Do not reduce through a magic-do effect run (a thunk applied to the + -- 'EffectRunArg' marker): the thunk is a chunk boundary magic-do + -- introduced to keep each function under Lua's local-variable limit, and + -- merging it into its parent would overflow that limit. The marker is + -- magic-do's alone, so an ordinary nullary thunk (a dictionary accessor + -- or newtype coercion applied to @Prim.undefined@) is not mistaken for + -- one and reduces freely (issue #180, see 'isEffectRun'). + not (isEffectRun redex) → do (body', letBinds) ← foldlM reduceOne (body, []) (NE.zip params args) pure . Just $ case nonEmpty (reverse letBinds) of diff --git a/lib/Language/PureScript/Backend/IR/Types.hs b/lib/Language/PureScript/Backend/IR/Types.hs index 9d9694b5..7e8dc7c7 100644 --- a/lib/Language/PureScript/Backend/IR/Types.hs +++ b/lib/Language/PureScript/Backend/IR/Types.hs @@ -22,7 +22,7 @@ import Language.PureScript.Backend.IR.Inliner qualified as Inliner import Language.PureScript.Backend.IR.Names ( CtorName (renderCtorName) , FieldName - , ModuleName + , ModuleName (ModuleName) , Name (Name, nameToText) , PropName , Qualified (..) @@ -420,6 +420,37 @@ isForeignImport = \case ForeignImport {} → True _ → False +{- | The synthetic argument magic-do applies a thunk to in order to /run/ it. + +A dedicated marker, distinct from the @Prim.undefined@ argument PureScript emits +to force an ordinary nullary thunk (Note [Nullary functions and Prim.undefined] +in 'Language.PureScript.Backend.Lua'). Both are ignored by the receiving +'ParamUnused' and both are erased to an empty argument list by the Lua backend — +but only this one marks an /effect run/. Giving magic-do its own token lets +'isEffectRun' recognise exactly the effect runs magic-do introduces and not the +coincidentally nullary thunks that share the @f Prim.undefined@ shape: a +superclass-dictionary accessor or a newtype coercion (@runIdentity@) inlined off +a non-Effect monad (@State@\/@Writer@). Conflating the two kept beta reduction +from collapsing those pure thunks, bloating the output (issue #180). The @$@ in +the name cannot collide with a PureScript identifier. +-} +pattern EffectRunArg ∷ ann → RawExp ann +pattern EffectRunArg ann = + Ref ann (Imported (ModuleName "Prim") (Name "$magicDoRun")) + +{- | Recognise an Effect/ST statement as magic-do emits it: running a thunk, the +application @m EffectRunArg@ (see 'Language.PureScript.Backend.IR.MagicDo'). Its +side effect is observable and its statement sequencing is size-managed by +magic-do's chunking, so passes that run after magic-do must leave it alone: +dead-code elimination keeps it even when its binder is unreferenced, and beta +reduction does not reduce through it (which would merge a chunk into its parent +and overflow Lua's local-variable limit). +-} +isEffectRun ∷ RawExp ann → Bool +isEffectRun = \case + AppN _ _ (EffectRunArg _ :| []) → True + _ → False + ctorId ∷ ModuleName → TyName → CtorName → Text ctorId modName tyName ctorName = runModuleName modName diff --git a/lib/Language/PureScript/Backend/Lua.hs b/lib/Language/PureScript/Backend/Lua.hs index 28bc2a19..f5410426 100644 --- a/lib/Language/PureScript/Backend/Lua.hs +++ b/lib/Language/PureScript/Backend/Lua.hs @@ -242,15 +242,16 @@ fromIR foreigns topLevelNames modname ir = case ir of IR.AppN _ann fn args → do e ← goExp fn -- See Note [Nullary functions and Prim.undefined]. PS inserts a - -- synthetic unused argument "Prim.undefined" to force a thunk. The + -- synthetic unused argument "Prim.undefined" to force a thunk (and + -- magic-do inserts its 'IR.EffectRunArg' twin to run one). The -- trailing run of such arguments is elided (the nullary call -- included, so it is emitted as f() rather than f(nil)), mirroring -- the dropped trailing run of unused parameters above. A -- non-trailing one can only face an unused (named-dummy) parameter -- of an uncurried worker, so it lowers to an explicit nil. - let keptArgs = List.dropWhileEnd isPrimUndefined (toList args) + let keptArgs = List.dropWhileEnd isErasedThunkArg (toList args) Right . Lua.functionCall e <$> for keptArgs \arg → - if isPrimUndefined arg then pure Lua.Nil else goExp arg + if isErasedThunkArg arg then pure Lua.Nil else goExp arg IR.Ref _ann qualifiedName → case qualifiedName of IR.Local name @@ -375,9 +376,14 @@ qualifyName modname = Name.join2 (fromModuleName modname) isUnusedParam ∷ IR.Parameter ann → Bool isUnusedParam = isNothing . IR.paramName --- | The synthetic argument PureScript passes to force a thunk. -isPrimUndefined ∷ IR.Exp → Bool -isPrimUndefined = \case +{- | A synthetic argument the Lua backend erases to a zero-argument call: the +@Prim.undefined@ PureScript passes to force a nullary thunk, or magic-do's +'IR.EffectRunArg' effect-run marker. Both are ignored by the receiving thunk. +-} +isErasedThunkArg ∷ IR.Exp → Bool +isErasedThunkArg = \case IR.Ref _ann (IR.Imported (IR.ModuleName "Prim") (IR.Name "undefined")) → True + IR.EffectRunArg _ → + True _ → False diff --git a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs index c540cba3..878ed050 100644 --- a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs @@ -25,7 +25,8 @@ import Language.PureScript.Backend.IR.Names , moduleNameFromString ) import Language.PureScript.Backend.IR.Optimizer - ( optimizeModule + ( CallSiteInlining (SkipCallSites) + , optimizeModule , optimizedExpression , optimizedUberModule , optimizedUberModuleChecked @@ -705,6 +706,59 @@ spec = describe "IR Optimizer" do dataArgumentByIndex index (refLocal (Name "v")) unboundLocals (optimizedExpression original) === [] + it "resolves a let-bound constructor worker reference, then folds (#180)" do + -- A user-written `Just x` compiles to `App (Ref Data.Maybe.Just) x`: a + -- reference to the top-level constructor worker, whose RHS is a bare + -- 'Ctor' node rather than a lambda, so 'inlineSaturatedCall' leaves it in + -- place (pasting it would only rebuild the same value the reference + -- already denotes, more deeply nested). Unless the fold resolves the + -- reference through the inline environment, the tag test an inlined bind + -- introduces never folds and the collapsed monadic chain stays a + -- deeply-nested if/let tree that overflows Lua's parser-nesting cap + -- (issue #180 -- the shape 'Golden.LongEitherBind' exercises end to end). + -- + -- The worker is referenced twice (the export 'mkJust' keeps a second + -- use) so whole-binding inlining cannot fold it away as used-once and + -- hand the direct-'Ctor' path a constructor node -- which would mask the + -- reference resolution this test pins. Runs through the checked pipeline + -- (which populates the environment from the module's own bindings), with + -- 'main' exported twice so it is not inlined away, leaving its body to + -- inspect. Without the resolution the body is the whole undecided + -- if/let; with it, the live branch. + let mainMod = moduleNameFromString "Main" + body = + let1 + (Name "v") + (application (refImported maybeMod (Name "Just")) (literalInt 1)) + $ ifThenElse + (eq (literalString justTag) (reflectCtor (refLocal (Name "v")))) + ( application + (refImported mainMod (Name "use")) + (objectProp (refLocal (Name "v")) value0) + ) + nothingCtor + optimized ← + either (fail . show) pure . optimizedUberModuleChecked $ + Linker.UberModule + { uberModuleForeigns = [] + , uberModuleBindings = + [ Standalone (QName maybeMod (Name "Just"), justCtor) + , Standalone (QName mainMod (Name "main"), body) + ] + , uberModuleExports = + [ (Name "r1", refImported mainMod (Name "main")) + , (Name "r2", refImported mainMod (Name "main")) + , (Name "mkJust", refImported maybeMod (Name "Just")) + ] + } + let mainBody = + [ e + | Standalone (QName _ (Name "main"), e) ← + Linker.uberModuleBindings optimized + ] + mainBody + `shouldBe` [application (refImported mainMod (Name "use")) (literalInt 1)] + describe "does not duplicate a binding a sibling grouping reads" do let m = moduleNameFromString "M" @@ -1156,7 +1210,7 @@ spec = describe "IR Optimizer" do , uberModuleExports = [(Name "main", refImported main' (Name "y"))] } - optimized = fst (runSupply (optimizeModule mempty original)) + optimized = fst (runSupply (optimizeModule SkipCallSites mempty original)) Linker.uberModuleBindings optimized `shouldBe` [] Linker.uberModuleExports optimized `shouldBe` [(Name "main", xExpr)] diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir index b2e24533..2174ccac 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir @@ -30,55 +30,6 @@ UberModule }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "semiringInt" - }, LiteralObject Nothing - [ - ( PropName "add", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$895" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$896" ) :| [] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$895" ) ) ) - ( Ref Nothing ( Local ( Name "y$896" ) ) ) - ) - ) - ), - ( PropName "zero", LiteralInt Nothing 0 ), - ( PropName "mul", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$893" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$894" ) :| [] ) - ( PrimBinOp Nothing PrimMul - ( Ref Nothing ( Local ( Name "x$893" ) ) ) - ( Ref Nothing ( Local ( Name "y$894" ) ) ) - ) - ) - ), - ( PropName "one", LiteralInt Nothing 1 ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Apply", qnameName = Name "apply" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "apply" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Foldable", qnameName = Name "foldr" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "foldr" ) ) ), RecursiveGroup ( ( QName @@ -99,11 +50,11 @@ UberModule ( ParamNamed Nothing ( Name "f$917" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldr" ) ) ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) :| [] + ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) ) + ( PropName "foldr" ) ) ( AbsN Nothing ( ParamNamed Nothing ( Name "x$918" ) :| [] ) @@ -210,10 +161,7 @@ UberModule ( ParamNamed Nothing ( Name "a$708" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Apply" ) ( Name "apply" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -223,20 +171,16 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "apply" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] + ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( PropName "pure" ) ) ( Ref Nothing ( Local ( Name "f$707" ) ) :| [] ) :| [] ) @@ -262,8 +206,7 @@ UberModule [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$687", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + ( Nothing, Name "bind$687", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -273,8 +216,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) :| [] ) ( AbsN Nothing @@ -296,13 +240,7 @@ UberModule ( AbsN Nothing ( ParamNamed Nothing ( Name "a'$692" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -318,8 +256,9 @@ UberModule ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$691" ) ) ) @@ -389,13 +328,11 @@ UberModule ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldr" ) ) - ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) :| [] + ( Imported ( ModuleName "Data.Foldable" ) ( Name "foldableArray" ) ) ) + ( PropName "foldr" ) ) ( AbsN Nothing ( ParamNamed Nothing ( Name "x$940" ) :| [] ) @@ -423,11 +360,9 @@ UberModule ( ParamNamed Nothing ( Name "b$927" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Apply" ) ( Name "apply" ) ) - ) - ( Ref Nothing ( Local ( Name "dictApply$925" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictApply$925" ) ) ) + ( PropName "apply" ) ) ( AppN Nothing ( AppN Nothing @@ -480,13 +415,11 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) :| [] + ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( PropName "pure" ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) @@ -496,7 +429,7 @@ UberModule ) ( Ref Nothing ( Local ( Name "arr$0" ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [] ) ( AppN Nothing @@ -522,44 +455,20 @@ UberModule ( ParamNamed Nothing ( Name "c$372$914" ) :| [] ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "semiringInt" ) - ) - ) - ( PropName "add" ) - ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semiring" ) - ( Name "semiringInt" ) - ) - ) - ( PropName "one" ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "c$372$914" ) ) :| [] ) + ( PrimBinOp Nothing PrimAdd + ( LiteralInt Nothing 1 ) + ( Ref Nothing ( Local ( Name "c$372$914" ) ) ) ) ) :| [] ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) - ) - ( PropName "zero" ) :| [] - ) + ( LiteralInt Nothing 0 :| [] ) ) ( Ref Nothing ( Local ( Name "arr$0" ) ) :| [] ) ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua index db4843dd..8c756b6c 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua @@ -50,26 +50,12 @@ M.Effect_foreign = { M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Semiring_semiringInt = { - add = function(x_S_895) - return function(y_S_896) return x_S_895 + y_S_896 end - end, - zero = 0, - mul = function(x_S_893) - return function(y_S_894) return x_S_893 * y_S_894 end - end, - one = 1 -} -M.Control_Apply_apply = function(dict) return dict.apply end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Data_Foldable_foldr = function(dict) return dict.foldr end M.Data_Foldable_foldableArray = { foldr = M.Data_Foldable_foreign.foldrArray, foldl = M.Data_Foldable_foreign.foldlArray, foldMap = function(dictMonoid) return function(f_S_917) - return M.Data_Foldable_foldr(M.Data_Foldable_foldableArray)(function( x_S_918 ) + return M.Data_Foldable_foldableArray.foldr(function(x_S_918) return function(acc_S_919) return (dictMonoid.Semigroup0()).append(f_S_917(x_S_918))(acc_S_919) end @@ -94,7 +80,7 @@ M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() map = function(f_S_707) return function(a_S_708) local Effect_applicativeEffect = M.Effect_applicativeEffect - return M.Control_Apply_apply(Effect_applicativeEffect.Apply0())(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_707))(a_S_708) + return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_707))(a_S_708) end end } @@ -102,12 +88,12 @@ end) M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() return { apply = (function() - local bind_S_687 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) + local bind_S_687 = (M.Effect_monadEffect.Bind1()).bind return function(f_S_689) return function(a_S_690) return bind_S_687(f_S_689)(function(fPrime_S_691) return bind_S_687(a_S_690)(function(aPrime_S_692) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_691(aPrime_S_692)) + return (M.Effect_monadEffect.Applicative0()).pure(fPrime_S_691(aPrime_S_692)) end) end) end @@ -128,12 +114,12 @@ return (function() } return function() local Data_Foldable_foldableArray = M.Data_Foldable_foldableArray - local _ = M.Data_Foldable_foldr(Data_Foldable_foldableArray)(function( x_S_940 ) + local _ = Data_Foldable_foldableArray.foldr(function(x_S_940) return (function() local dictApply_S_925 = M.Effect_applicativeEffect.Apply0() return function(a_S_926) return function(b_S_927) - return M.Control_Apply_apply(dictApply_S_925)((dictApply_S_925.Functor0()).map(function( ) + return dictApply_S_925.apply((dictApply_S_925.Functor0()).map(function( ) return function(x_S_934) return x_S_934 end end)(a_S_926))(b_S_927) end @@ -141,14 +127,11 @@ return (function() end)()(M.Effect_Console_logShow_S_w({ show = function() return "unit" end }, x_S_940)) - end)(M.Control_Applicative_pure(M.Effect_applicativeEffect)(M.Data_Unit_foreign.unit))(arr_S_0)() + end)(M.Effect_applicativeEffect.pure(M.Data_Unit_foreign.unit))(arr_S_0)() return M.Effect_Console_logShow_S_w({ show = M.Data_Show_foreign.showIntImpl }, Data_Foldable_foldableArray.foldl(function(c_S_372_S_914) - return function() - local Data_Semiring_semiringInt = M.Data_Semiring_semiringInt - return Data_Semiring_semiringInt.add(Data_Semiring_semiringInt.one)(c_S_372_S_914) - end - end)(M.Data_Semiring_semiringInt.zero)(arr_S_0))() + return function() return 1 + c_S_372_S_914 end + end)(0)(arr_S_0))() end end)()() diff --git a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir index 464b37bf..b46d4e00 100644 --- a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir +++ b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir @@ -7,328 +7,12 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "semiringInt" - }, LiteralObject Nothing - [ - ( PropName "add", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$196" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$197" ) :| [] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$196" ) ) ) - ( Ref Nothing ( Local ( Name "y$197" ) ) ) - ) - ) - ), - ( PropName "zero", LiteralInt Nothing 0 ), - ( PropName "mul", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$194" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$195" ) :| [] ) - ( PrimBinOp Nothing PrimMul - ( Ref Nothing ( Local ( Name "x$194" ) ) ) - ( Ref Nothing ( Local ( Name "y$195" ) ) ) - ) - ) - ), - ( PropName "one", LiteralInt Nothing 1 ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ring", qnameName = Name "ringInt" - }, LiteralObject Nothing - [ - ( PropName "sub", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$192" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$193" ) :| [] ) - ( PrimBinOp Nothing PrimSub - ( Ref Nothing ( Local ( Name "x$192" ) ) ) - ( Ref Nothing ( Local ( Name "y$193" ) ) ) - ) - ) - ), - ( PropName "Semiring0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$28" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$29" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$28" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$29" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$7", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$9" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$10" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "f$9" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$11" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "a$10" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$12" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$11" ) ) ) - ( Ref Nothing ( Local ( Name "a'$12" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "negate" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$86" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) ) - ( PropName "sub" ) - ) - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) ) - ( PropName "Semiring0" ) - ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ) - ( PropName "zero" ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$86" ) ) :| [] ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$2" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) - ( Ref Nothing ( Local ( Name "a$2" ) ) :| [] ) :| [] - ) - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "lastOfThree" }, AbsN Nothing @@ -339,12 +23,7 @@ UberModule ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 2 ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "negate" ) ) - ) - ( LiteralInt Nothing 1 :| [] ) - ) + ( LiteralInt Nothing ( -1 ) ) ) ), Standalone ( QName @@ -356,22 +35,11 @@ UberModule ( LiteralInt Nothing 2 ) ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ( PropName "add" ) - ) - ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 0 :| [] ) - ) - ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 1 :| [] ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "negate" ) ) - ) - ( LiteralInt Nothing 1 :| [] ) + ( PrimBinOp Nothing PrimAdd + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 0 ) + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) 1 ) ) + ( LiteralInt Nothing ( -1 ) ) ) ) ], uberModuleForeigns = [], uberModuleExports = @@ -388,74 +56,131 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "firstTwo" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralArray Nothing - [ LiteralInt Nothing 10, LiteralInt Nothing 20 ] :| [] + ( Let Nothing + ( Standalone + ( Nothing, Name "v$235", LiteralArray Nothing + [ LiteralInt Nothing 10, LiteralInt Nothing 20 ] + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralInt Nothing 2 ) + ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v$235" ) ) ) ) + ) + ( PrimBinOp Nothing PrimAdd + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v$235" ) ) ) 0 ) + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v$235" ) ) ) 1 ) + ) + ( LiteralInt Nothing ( -1 ) ) + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.ArrayPatternMatch.Test" ) - ( Name "firstTwo" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralArray Nothing - [ LiteralInt Nothing 1, LiteralInt Nothing 2, LiteralInt Nothing 3 ] :| [] + ( Let Nothing + ( Standalone + ( Nothing, Name "v$242", LiteralArray Nothing + [ LiteralInt Nothing 1, LiteralInt Nothing 2, LiteralInt Nothing 3 ] + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralInt Nothing 2 ) + ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v$242" ) ) ) ) + ) + ( PrimBinOp Nothing PrimAdd + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v$242" ) ) ) 0 ) + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v$242" ) ) ) 1 ) + ) + ( LiteralInt Nothing ( -1 ) ) + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.ArrayPatternMatch.Test" ) - ( Name "firstTwo" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralArray Nothing [] :| [] ) :| [] + ( Let Nothing + ( Standalone ( Nothing, Name "v$249", LiteralArray Nothing [] ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralInt Nothing 2 ) + ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v$249" ) ) ) ) + ) + ( PrimBinOp Nothing PrimAdd + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v$249" ) ) ) 0 ) + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v$249" ) ) ) 1 ) + ) + ( LiteralInt Nothing ( -1 ) ) + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ArrayPatternMatch.Test" ) ( Name "lastOfThree" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralArray Nothing - [ LiteralInt Nothing 7, LiteralInt Nothing 8, LiteralInt Nothing 9 ] :| [] + ( Let Nothing + ( Standalone + ( Nothing, Name "v$256", LiteralArray Nothing + [ LiteralInt Nothing 7, LiteralInt Nothing 8, LiteralInt Nothing 9 ] + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralInt Nothing 3 ) + ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v$256" ) ) ) ) + ) + ( ArrayIndex Nothing ( Ref Nothing ( Local ( Name "v$256" ) ) ) 2 ) + ( LiteralInt Nothing ( -1 ) ) + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua index b3df888f..78a52cc3 100644 --- a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua +++ b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua @@ -1,126 +1,30 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Semiring_semiringInt = { - add = function(x_S_196) - return function(y_S_197) return x_S_196 + y_S_197 end - end, - zero = 0, - mul = function(x_S_194) - return function(y_S_195) return x_S_194 * y_S_195 end - end, - one = 1 -} -M.Data_Ring_ringInt = { - sub = function(x_S_192) - return function(y_S_193) return x_S_192 - y_S_193 end - end, - Semiring0 = function() return M.Data_Semiring_semiringInt end -} -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_28) - return function(a_S_29) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_28))(a_S_29) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_7 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_9) - return function(a_S_10) - return bind_S_7(f_S_9)(function(fPrime_S_11) - return bind_S_7(a_S_10)(function(aPrime_S_12) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_11(aPrime_S_12)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_ArrayPatternMatch_Test_negate = function(a_S_86) - local Data_Ring_ringInt = M.Data_Ring_ringInt - return Data_Ring_ringInt.sub((Data_Ring_ringInt.Semiring0()).zero)(a_S_86) -end -M.Golden_ArrayPatternMatch_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_ArrayPatternMatch_Test_logShow = function(a_S_2) - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_2)) -end M.Golden_ArrayPatternMatch_Test_lastOfThree = function(v) - if 3 == #(v) then - return v[3] - else - return M.Golden_ArrayPatternMatch_Test_negate(1) - end + if 3 == #(v) then return v[3] else return -1 end end M.Golden_ArrayPatternMatch_Test_firstTwo = function(v) - if 2 == #(v) then - return M.Data_Semiring_semiringInt.add(v[1])(v[2]) - else - return M.Golden_ArrayPatternMatch_Test_negate(1) - end + if 2 == #(v) then return v[1] + v[2] else return -1 end end return (function() - local Golden_ArrayPatternMatch_Test_logShow, Golden_ArrayPatternMatch_Test_firstTwo = M.Golden_ArrayPatternMatch_Test_logShow, M.Golden_ArrayPatternMatch_Test_firstTwo - local _ = Golden_ArrayPatternMatch_Test_logShow(Golden_ArrayPatternMatch_Test_firstTwo({ - [1] = 10, - [2] = 20 - }))() - local _ = Golden_ArrayPatternMatch_Test_logShow(Golden_ArrayPatternMatch_Test_firstTwo({ - [1] = 1, - [2] = 2, - [3] = 3 - }))() - local _ = Golden_ArrayPatternMatch_Test_logShow(Golden_ArrayPatternMatch_Test_firstTwo({}))() - return Golden_ArrayPatternMatch_Test_logShow(M.Golden_ArrayPatternMatch_Test_lastOfThree({ - [1] = 7, - [2] = 8, - [3] = 9 - }))() + local Data_Show_foreign, Effect_Console_foreign = M.Data_Show_foreign, M.Effect_Console_foreign + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local v_S_235 = { [1] = 10, [2] = 20 } + if 2 == #(v_S_235) then return v_S_235[1] + v_S_235[2] else return -1 end + end)()))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local v_S_242 = { [1] = 1, [2] = 2, [3] = 3 } + if 2 == #(v_S_242) then return v_S_242[1] + v_S_242[2] else return -1 end + end)()))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local v_S_249 = {} + if 2 == #(v_S_249) then return v_S_249[1] + v_S_249[2] else return -1 end + end)()))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local v_S_256 = { [1] = 7, [2] = 8, [3] = 9 } + if 3 == #(v_S_256) then return v_S_256[3] else return -1 end + end)()))() end)() diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir index 652f6c0c..fa2c85e6 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir @@ -7,12 +7,6 @@ UberModule ( ModuleName "Record.Unsafe" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Record/Unsafe.purs" [ ( Nothing, Name "unsafeGet" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing @@ -92,16 +86,6 @@ UberModule ] ) :| [] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRecord" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eqRecord" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eq" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons$w" }, AbsN Nothing ( ParamNamed Nothing @@ -156,9 +140,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictEq" ) ) ) + ( PropName "eq" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "get" ) ) ) @@ -174,11 +158,9 @@ UberModule ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) - ) - ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) ) + ( PropName "eqRecord" ) ) ( Ref Nothing ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] @@ -196,279 +178,6 @@ UberModule ] ) ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEq'" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "genericEq'" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEqConstructor" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictGenericEq" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "genericEq'", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) - ) - ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) - ) - ) - ) - ] - ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$54" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$55" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$54" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$55" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$33", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$35" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$36" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$33" ) ) ) - ( Ref Nothing ( Local ( Name "f$35" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$37" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$33" ) ) ) - ( Ref Nothing ( Local ( Name "a$36" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$38" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$37" ) ) ) - ( Ref Nothing ( Local ( Name "a'$38" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$2" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "a$2" ) ) ) - ( LiteralString Nothing "true" ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralBool Nothing False ) ( Ref Nothing ( Local ( Name "a$2" ) ) ) ) - ( LiteralString Nothing "false" ) - ( Exception Nothing "No patterns matched" ) - ) :| [] - ) - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "Nil" }, Ctor Nothing SumType @@ -575,14 +284,50 @@ UberModule ( AppN Nothing ( Let Nothing ( Standalone - ( Nothing, Name "from$4", ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "genericList" ) + ( Nothing, Name "from$4", AbsN Nothing + ( ParamNamed Nothing ( Name "x0$248" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.BugListGenericEq.Test∷List.Nil" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "x0$248" ) ) ) + ) + ) + ( AppN Nothing + ( Ctor Nothing SumType + ( ModuleName "Data.Generic.Rep" ) + ( TyName "Sum" ) + ( CtorName "Inl" ) + [ FieldName "value0" ] + ) + ( Ctor Nothing ProductType + ( ModuleName "Data.Generic.Rep" ) + ( TyName "NoArguments" ) + ( CtorName "NoArguments" ) [] :| [] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.BugListGenericEq.Test∷List.Cons" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "x0$248" ) ) ) + ) + ) + ( AppN Nothing + ( Ctor Nothing SumType + ( ModuleName "Data.Generic.Rep" ) + ( TyName "Sum" ) + ( CtorName "Inr" ) + [ FieldName "value0" ] + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "x0$248" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( Exception Nothing "No patterns matched" ) ) ) - ( PropName "from" ) ) :| [] ) ( AbsN Nothing @@ -593,14 +338,9 @@ UberModule ( ParamNamed Nothing ( Name "y$8" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEq'" ) - ) - ) - ( Ref Nothing ( Local ( Name "dictGenericEq$5" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictGenericEq$5" ) ) ) + ( PropName "genericEq'" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "from$4" ) ) ) @@ -629,51 +369,11 @@ UberModule ( Ref Nothing ( Local ( Name "v$13" ) ) ) ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) - ( ReflectCtor Nothing - ( Ref Nothing ( Local ( Name "v1$14" ) ) ) - ) + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v1$14" ) ) ) ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEq'" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEqConstructor" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "genericEq'", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) - ) - ) - ] :| [] - ) :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$13" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1$14" ) ) ) - ( PropName "value0" ) :| [] - ) - ) ( LiteralBool Nothing False ) ) ( IfThenElse Nothing ( Eq Nothing @@ -692,133 +392,76 @@ UberModule ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEq'" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEqConstructor" ) + ( ObjectProp Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "genericEq'", AbsN Nothing - ( ParamNamed Nothing ( Name "v$21" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1$22" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq" ) - ( Name "eq" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "eq", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq" ) - ( Name "eqRecord" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq" ) - ( Name "eqRowCons$w" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq" ) - ( Name "eqRowCons$w" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "eqRecord", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) - ) - ) - ) - ] :| - [ Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ), LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralString Nothing "tail" ) - ) - ], AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "eqList" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "dictEq" ) - ) :| [] - ) - ] - ) :| - [ Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ), LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralString Nothing "head" ) - ) - ], Ref Nothing - ( Local - ( Name "dictEq" ) - ) - ] - ) :| [] - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Type.Proxy" ) - ( Name "Proxy" ) - ) :| [] - ) - ) - ] :| [] - ) - ) - ( Ref Nothing - ( Local ( Name "v$21" ) ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) + ) + ( LiteralObject Nothing + [ + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) ) ) - ( Ref Nothing - ( Local ( Name "v1$22" ) ) :| [] + ) + ] :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "tail" ) + ) + ], AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "eqList" ) ) ) - ) - ) - ] :| [] + ( Ref Nothing + ( Local ( Name "dictEq" ) ) :| [] + ) + ] + ) :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "head" ) + ) + ], Ref Nothing + ( Local ( Name "dictEq" ) ) + ] + ) + ) + ( PropName "eqRecord" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Type.Proxy" ) + ( Name "Proxy" ) ) :| [] ) ) @@ -852,8 +495,7 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "eq" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) + }, ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eqList" ) ) @@ -871,8 +513,9 @@ UberModule ) ) ] :| [] - ) :| [] + ) ) + ( PropName "eq" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.BugListGenericEq.Test", qnameName = Name "cons$w" @@ -918,14 +561,19 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "a$2$269", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "Nil" ) + ) :| [] + ) ) ( Ref Nothing ( Imported @@ -933,24 +581,63 @@ UberModule ( Name "Nil" ) ) :| [] ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) :| [] ) :| [] ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "a$2$269" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "a$2$269" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) + ) :| [] + ) + ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "a$2$270", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "cons$w" ) + ) + ) + ( LiteralInt Nothing 1 :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "cons$w" ) + ) + ) + ( LiteralInt Nothing 2 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.BugListGenericEq.Test" ) + ( Name "Nil" ) + ) + ] + ) + ] + ) :| [] + ) ) ( AppN Nothing ( Ref Nothing @@ -978,70 +665,82 @@ UberModule ] ) :| [] ) - ) - ( AppN Nothing + ) :| [] + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) ) + ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| - [ AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "cons$w" ) - ) - ) - ( LiteralInt Nothing 2 :| - [ Ref Nothing - ( Imported - ( ModuleName "Golden.BugListGenericEq.Test" ) - ( Name "Nil" ) - ) - ] - ) - ] + ( PropName "log" ) + ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "a$2$270" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "a$2$270" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) :| [] - ) :| [] + ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "a$2$271", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "eq" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) ) + ) + ( LiteralInt Nothing 1 :| + [ Ref Nothing + ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) + ] + ) :| [] + ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) ) ) - ( LiteralInt Nothing 1 :| + ( LiteralInt Nothing 2 :| [ Ref Nothing ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) ] ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) ) - ) - ( LiteralInt Nothing 2 :| - [ Ref Nothing - ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Nil" ) ) - ] + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "a$2$271" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "a$2$271" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) :| [] - ) :| [] + ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.lua b/test/ps/output/Golden.BugListGenericEq.Test/golden.lua index 308100ea..8b2f84e7 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.lua +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.lua @@ -1,31 +1,7 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Record_Unsafe_foreign = { unsafeGet = function(l) return function(r) return r[l] end end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } @@ -47,8 +23,6 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { end, _not_ = function(b_S_229) return not(b_S_229) end } -M.Data_Eq_eqRecord = function(dict) return dict.eqRecord end -M.Data_Eq_eq = function(dict) return dict.eq end M.Data_Eq_eqRowCons_S_w = function( dictEqRecord , eqRowCons_S_u2 , dictIsSymbol @@ -60,75 +34,12 @@ M.Data_Eq_eqRowCons_S_w = function( dictEqRecord local Type_Proxy_Proxy = M.Type_Proxy_Proxy local key = dictIsSymbol.reflectSymbol(Type_Proxy_Proxy) local get = M.Record_Unsafe_foreign.unsafeGet(key) - return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Eq_eq(dictEq)(get(ra))(get(rb)))(M.Data_Eq_eqRecord(dictEqRecord)(Type_Proxy_Proxy)(ra)(rb)) + return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(dictEq.eq(get(ra))(get(rb)))(dictEqRecord.eqRecord(Type_Proxy_Proxy)(ra)(rb)) end end end } end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Data_Eq_Generic_genericEqPrime = function(dict) return dict.genericEqPrime end -M.Data_Eq_Generic_genericEqConstructor = function(dictGenericEq) - return { - genericEqPrime = function(v) - return function(v1) - return M.Data_Eq_Generic_genericEqPrime(dictGenericEq)(v)(v1) - end - end - } -end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_54) - return function(a_S_55) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_54))(a_S_55) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_33 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_35) - return function(a_S_36) - return bind_S_33(f_S_35)(function(fPrime_S_37) - return bind_S_33(a_S_36)(function(aPrime_S_38) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_37(aPrime_S_38)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_BugListGenericEq_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_BugListGenericEq_Test_logShow = function(a_S_2) - return M.Effect_Console_foreign.log((function() - if a_S_2 then - return "true" - elseif false == a_S_2 then - return "false" - else - return error("No patterns matched") - end - end)()) -end M.Golden_BugListGenericEq_Test_Nil = { ["$ctor"] = "Golden.BugListGenericEq.Test∷List.Nil" } @@ -167,11 +78,29 @@ M.Golden_BugListGenericEq_Test_eqList = function(dictEq) eq = function(x) return function(y) return (function() - local from_S_4 = M.Golden_BugListGenericEq_Test_genericList.from + local from_S_4 = function(x0_S_248) + if "Golden.BugListGenericEq.Test∷List.Nil" == x0_S_248["$ctor"] then + return (function(value0) + return { + ["$ctor"] = "Data.Generic.Rep∷Sum.Inl", + value0 = value0 + } + end)({}) + elseif "Golden.BugListGenericEq.Test∷List.Cons" == x0_S_248["$ctor"] then + return (function(value0) + return { + ["$ctor"] = "Data.Generic.Rep∷Sum.Inr", + value0 = value0 + } + end)(x0_S_248.value0) + else + return error("No patterns matched") + end + end return function(dictGenericEq_S_5) return function(x_S_7) return function(y_S_8) - return M.Data_Eq_Generic_genericEqPrime(dictGenericEq_S_5)(from_S_4(x_S_7))(from_S_4(y_S_8)) + return dictGenericEq_S_5.genericEqPrime(from_S_4(x_S_7))(from_S_4(y_S_8)) end end end @@ -179,37 +108,18 @@ M.Golden_BugListGenericEq_Test_eqList = function(dictEq) genericEqPrime = function(v_S_13) return function(v1_S_14) if "Data.Generic.Rep∷Sum.Inl" == v_S_13["$ctor"] then - if "Data.Generic.Rep∷Sum.Inl" == v1_S_14["$ctor"] then - return M.Data_Eq_Generic_genericEqPrime(M.Data_Eq_Generic_genericEqConstructor({ - genericEqPrime = function() - return function() return true end - end - }))(v_S_13.value0)(v1_S_14.value0) - else - return false - end + return "Data.Generic.Rep∷Sum.Inl" == v1_S_14["$ctor"] elseif "Data.Generic.Rep∷Sum.Inr" == v_S_13["$ctor"] then if "Data.Generic.Rep∷Sum.Inr" == v1_S_14["$ctor"] then - return M.Data_Eq_Generic_genericEqPrime(M.Data_Eq_Generic_genericEqConstructor({ - genericEqPrime = function(v_S_21) - return function(v1_S_22) - local Data_Eq_eqRowCons_S_w = M.Data_Eq_eqRowCons_S_w - return M.Data_Eq_eq({ - eq = M.Data_Eq_eqRecord(Data_Eq_eqRowCons_S_w(Data_Eq_eqRowCons_S_w({ - eqRecord = function() - return function() - return function() return true end - end - end - }, nil, { - reflectSymbol = function() return "tail" end - }, M.Golden_BugListGenericEq_Test_eqList(dictEq)), nil, { - reflectSymbol = function() return "head" end - }, dictEq))(M.Type_Proxy_Proxy) - })(v_S_21)(v1_S_22) - end + return (M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w({ + eqRecord = function() + return function() return function() return true end end end - }))(v_S_13.value0)(v1_S_14.value0) + }, nil, { + reflectSymbol = function() return "tail" end + }, M.Golden_BugListGenericEq_Test_eqList(dictEq)), nil, { + reflectSymbol = function() return "head" end + }, dictEq)).eqRecord(M.Type_Proxy_Proxy)(v_S_13.value0)(v1_S_14.value0) else return false end @@ -223,17 +133,50 @@ M.Golden_BugListGenericEq_Test_eqList = function(dictEq) end } end -M.Golden_BugListGenericEq_Test_eq = M.Data_Eq_eq(M.Golden_BugListGenericEq_Test_eqList({ +M.Golden_BugListGenericEq_Test_eq = (M.Golden_BugListGenericEq_Test_eqList({ eq = function(r1_S_225_S_238) return function(r2_S_226_S_239) return r1_S_225_S_238 == r2_S_226_S_239 end end -})) +})).eq M.Golden_BugListGenericEq_Test_cons_S_w = function(head, tail) return M.Golden_BugListGenericEq_Test_Cons({ head = head, tail = tail }) end return (function() - local Golden_BugListGenericEq_Test_Nil, Golden_BugListGenericEq_Test_cons_S_w, Golden_BugListGenericEq_Test_eq, Golden_BugListGenericEq_Test_logShow = M.Golden_BugListGenericEq_Test_Nil, M.Golden_BugListGenericEq_Test_cons_S_w, M.Golden_BugListGenericEq_Test_eq, M.Golden_BugListGenericEq_Test_logShow - local _ = Golden_BugListGenericEq_Test_logShow(Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_Nil)(Golden_BugListGenericEq_Test_Nil))() - local _ = Golden_BugListGenericEq_Test_logShow(Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil)))(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil))))() - return Golden_BugListGenericEq_Test_logShow(Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_Nil))(Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil)))() + local Golden_BugListGenericEq_Test_Nil, Golden_BugListGenericEq_Test_cons_S_w, Effect_Console_foreign, Golden_BugListGenericEq_Test_eq = M.Golden_BugListGenericEq_Test_Nil, M.Golden_BugListGenericEq_Test_cons_S_w, M.Effect_Console_foreign, M.Golden_BugListGenericEq_Test_eq + local _ = (function() + local a_S_2_S_269 = Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_Nil)(Golden_BugListGenericEq_Test_Nil) + return Effect_Console_foreign.log((function() + if a_S_2_S_269 then + return "true" + elseif false == a_S_2_S_269 then + return "false" + else + return error("No patterns matched") + end + end)()) + end)()() + local _ = (function() + local a_S_2_S_270 = Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil)))(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil))) + return Effect_Console_foreign.log((function() + if a_S_2_S_270 then + return "true" + elseif false == a_S_2_S_270 then + return "false" + else + return error("No patterns matched") + end + end)()) + end)()() + return (function() + local a_S_2_S_271 = Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_Nil))(Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil)) + return Effect_Console_foreign.log((function() + if a_S_2_S_271 then + return "true" + elseif false == a_S_2_S_271 then + return "false" + else + return error("No patterns matched") + end + end)()) + end)()() end)() diff --git a/test/ps/output/Golden.CaseStatements.Test/golden.ir b/test/ps/output/Golden.CaseStatements.Test/golden.ir index 4dd4de43..f8282820 100644 --- a/test/ps/output/Golden.CaseStatements.Test/golden.ir +++ b/test/ps/output/Golden.CaseStatements.Test/golden.ir @@ -1,43 +1,9 @@ UberModule - { uberModuleBindings = - [ Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Values.Test", qnameName = Name "f" }, AbsN Nothing - ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) - ) - ], uberModuleForeigns = [], uberModuleExports = + { uberModuleBindings = [], uberModuleForeigns = [], uberModuleExports = [ ( Name "a", LiteralInt Nothing 1 ), ( Name "b", LiteralChar Nothing 'b' ), - ( Name "c", Let Nothing - ( Standalone - ( Nothing, Name "v$6", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralInt Nothing 0 ) - ) :| [] - ) - ( IfThenElse Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Values.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( IfThenElse Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Values.Test" ) ( Name "f" ) ) ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( LiteralInt Nothing 42 ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v$6" ) ) ) - ( LiteralBool Nothing True :| [] ) - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v$6" ) ) ) - ( LiteralBool Nothing True :| [] ) - ) - ) - ), + ( Name "c", LiteralInt Nothing 42 ), ( Name "J", Ctor Nothing SumType ( ModuleName "Golden.CaseStatements.Test" ) ( TyName "M" ) diff --git a/test/ps/output/Golden.CaseStatements.Test/golden.lua b/test/ps/output/Golden.CaseStatements.Test/golden.lua index 337573ab..85cfd670 100644 --- a/test/ps/output/Golden.CaseStatements.Test/golden.lua +++ b/test/ps/output/Golden.CaseStatements.Test/golden.lua @@ -1,16 +1,7 @@ -local M = {} -M.Golden_Values_Test_f = function() return true end return { a = 1, b = "b", - c = (function() - local v_S_6 = function() return 0 end - if M.Golden_Values_Test_f(2) then - if M.Golden_Values_Test_f(1) then return 42 else return v_S_6(true) end - else - return v_S_6(true) - end - end)(), + c = 42, J = function(value0) return { ["$ctor"] = "Golden.CaseStatements.Test∷M.J", value0 = value0 } end, diff --git a/test/ps/output/Golden.CharLiterals.Test/golden.ir b/test/ps/output/Golden.CharLiterals.Test/golden.ir index ffd2f22b..ed88c53f 100644 --- a/test/ps/output/Golden.CharLiterals.Test/golden.ir +++ b/test/ps/output/Golden.CharLiterals.Test/golden.ir @@ -7,278 +7,17 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showCharImpl" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$25" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$26" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$25" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$26" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$4", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$6" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$7" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$8" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "a$7" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$9" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$8" ) ) ) - ( Ref Nothing ( Local ( Name "a'$9" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.CharLiterals.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.CharLiterals.Test", qnameName = Name "show" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showCharImpl" ) - ) - ] :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.CharLiterals.Test", qnameName = Name "show1" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$111" ) :| [] ) - ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "v$111" ) ) ) - ( LiteralString Nothing "true" ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralBool Nothing False ) - ( Ref Nothing ( Local ( Name "v$111" ) ) ) - ) - ( LiteralString Nothing "false" ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ) - ] :| [] - ) + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showCharImpl" ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -299,7 +38,7 @@ UberModule ( LiteralChar Nothing ' ' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing @@ -315,7 +54,7 @@ UberModule ( LiteralChar Nothing '\x9' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -330,7 +69,7 @@ UberModule ( LiteralChar Nothing '\xd' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -345,7 +84,7 @@ UberModule ( LiteralChar Nothing ''' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -360,7 +99,7 @@ UberModule ( LiteralChar Nothing '\' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -375,7 +114,7 @@ UberModule ( LiteralChar Nothing 'a' :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -383,14 +122,9 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show1" ) ) - ) - ( LiteralBool Nothing True :| [] ) :| [] - ) + ( LiteralString Nothing "true" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) @@ -400,34 +134,34 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show1" ) ) - ) - ( Eq Nothing - ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "v$111$230", Eq Nothing + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( IfThenElse Nothing ( PrimBinOp Nothing PrimLt ( LiteralChar Nothing '\x9' ) ( LiteralChar Nothing ' ' ) ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "LT" ) [] - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "GT" ) [] - ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ) ) :| [] + ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "v$111$230" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "v$111$230" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) + ) ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.CharLiterals.Test/golden.lua b/test/ps/output/Golden.CharLiterals.Test/golden.lua index 7faf28e5..637caec0 100644 --- a/test/ps/output/Golden.CharLiterals.Test/golden.lua +++ b/test/ps/output/Golden.CharLiterals.Test/golden.lua @@ -1,21 +1,3 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showCharImpl = function(n) @@ -34,86 +16,33 @@ M.Data_Show_foreign = { return "'" .. n .. "'" end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Show_show = function(dict) return dict.show end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_25) - return function(a_S_26) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_25))(a_S_26) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_4 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_6) - return function(a_S_7) - return bind_S_4(f_S_6)(function(fPrime_S_8) - return bind_S_4(a_S_7)(function(aPrime_S_9) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_8(aPrime_S_9)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_CharLiterals_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_CharLiterals_Test_show = M.Data_Show_show({ - show = M.Data_Show_foreign.showCharImpl -}) -M.Golden_CharLiterals_Test_show1 = M.Data_Show_show({ - show = function(v_S_111) - if v_S_111 then - return "true" - elseif false == v_S_111 then - return "false" - else - return error("No patterns matched") - end - end -}) +M.Golden_CharLiterals_Test_show = M.Data_Show_foreign.showCharImpl return (function() - local Effect_Console_foreign, Golden_CharLiterals_Test_show, Golden_CharLiterals_Test_show1 = M.Effect_Console_foreign, M.Golden_CharLiterals_Test_show, M.Golden_CharLiterals_Test_show1 + local Effect_Console_foreign, Golden_CharLiterals_Test_show = M.Effect_Console_foreign, M.Golden_CharLiterals_Test_show local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\n"))() local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\t"))() local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\r"))() local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\'"))() local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\\"))() local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("a"))() - local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show1(true))() - return Effect_Console_foreign.log(Golden_CharLiterals_Test_show1("Data.Ordering∷Ordering.LT" == ((function( ) - if "\t" < "\n" then - return { ["$ctor"] = "Data.Ordering∷Ordering.LT" } + local _ = Effect_Console_foreign.log("true")() + return Effect_Console_foreign.log((function() + local v_S_111_S_230 = "Data.Ordering∷Ordering.LT" == (function() + if "\t" < "\n" then + return "Data.Ordering∷Ordering.LT" + else + return "Data.Ordering∷Ordering.GT" + end + end)() + if v_S_111_S_230 then + return "true" + elseif false == v_S_111_S_230 then + return "false" else - return { ["$ctor"] = "Data.Ordering∷Ordering.GT" } + return error("No patterns matched") end - end)())["$ctor"]))() + end)())() end)() diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir index d5f89f56..4a13f12d 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir @@ -7,295 +7,12 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "semiringInt" - }, LiteralObject Nothing - [ - ( PropName "add", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$195" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$196" ) :| [] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$195" ) ) ) - ( Ref Nothing ( Local ( Name "y$196" ) ) ) - ) - ) - ), - ( PropName "zero", LiteralInt Nothing 0 ), - ( PropName "mul", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$193" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$194" ) :| [] ) - ( PrimBinOp Nothing PrimMul - ( Ref Nothing ( Local ( Name "x$193" ) ) ) - ( Ref Nothing ( Local ( Name "y$194" ) ) ) - ) - ) - ), - ( PropName "one", LiteralInt Nothing 1 ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$31" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$32" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$31" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$32" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$10", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$12" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$13" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$10" ) ) ) - ( Ref Nothing ( Local ( Name "f$12" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$14" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$10" ) ) ) - ( Ref Nothing ( Local ( Name "a$13" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$15" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$14" ) ) ) - ( Ref Nothing ( Local ( Name "a'$15" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "add" - }, ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ( PropName "add" ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$5" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) - ( Ref Nothing ( Local ( Name "a$5" ) ) :| [] ) :| [] - ) - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "Leaf" }, Ctor Nothing SumType @@ -343,33 +60,20 @@ UberModule ( LiteralString Nothing "Golden.DerivedFunctor.Test∷Tree.Node" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "add" ) ) - ) + ( PrimBinOp Nothing PrimAdd + ( PrimBinOp Nothing PrimAdd ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "add" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "sumTree" ) - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "sumTree" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value1" ) :| [] - ) :| [] + ( PropName "value0" ) :| [] + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v" ) ) ) + ( PropName "value1" ) ) ) ( AppN Nothing @@ -379,7 +83,7 @@ UberModule ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( PropName "value2" ) :| [] - ) :| [] + ) ) ) ( Exception Nothing "No patterns matched" ) @@ -417,16 +121,14 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "functorTree" ) - ) :| [] + ) ) + ( PropName "map" ) ) ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) ) @@ -446,16 +148,14 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "functorTree" ) - ) :| [] + ) ) + ( PropName "map" ) ) ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) ) @@ -519,14 +219,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "map1" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "functorEither" ) ) :| [] - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "fromRight$w" }, AbsN Nothing @@ -585,185 +277,160 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "fromRight$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 0 :| - [ AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$0" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "add" ) - ) - ) - ( Ref Nothing ( Local ( Name "v$0" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) - ) :| [] - ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "fromRight$w" ) ) - ( AppN Nothing + ) + ( LiteralInt Nothing 0 :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Right" ) ) ) - ( LiteralInt Nothing 41 :| [] ) :| [] - ) - ] + ( LiteralInt Nothing 42 :| [] ) + ] + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "fromRight$w" ) - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 7 :| - [ AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "map1" ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v0$1" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "add" ) - ) - ) - ( Ref Nothing ( Local ( Name "v0$1" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) - ) :| [] - ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "fromRight$w" ) ) - ( AppN Nothing + ) + ( LiteralInt Nothing 7 :| + [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Left" ) ) ) - ( LiteralString Nothing "no" :| [] ) :| [] - ) - ] + ( LiteralString Nothing "no" :| [] ) + ] + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "sumTree" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "sumTree" ) ) + ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "functorTree" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1$2" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) - ) - ( PropName "mul" ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "functorTree" ) ) - ( Ref Nothing ( Local ( Name "v1$2" ) ) :| [] ) ) - ( LiteralInt Nothing 2 :| [] ) - ) :| [] + ( PropName "map" ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$2" ) :| [] ) + ( PrimBinOp Nothing PrimMul + ( Ref Nothing ( Local ( Name "v1$2" ) ) ) + ( LiteralInt Nothing 2 ) + ) :| [] + ) ) - ) - ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Node" ) ) - ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Node" ) ) + ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "Node" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Node" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Leaf" ) + ) :| [] ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "Leaf" ) - ) :| [] - ) + ( LiteralInt Nothing 1 :| [] ) ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "Leaf" ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Leaf" ) + ) :| [] ) :| [] - ) :| [] + ) ) + ( LiteralInt Nothing 2 :| [] ) ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Node" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "Leaf" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Node" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Leaf" ) + ) :| [] + ) ) + ( LiteralInt Nothing 3 :| [] ) ) - ( LiteralInt Nothing 3 :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.DerivedFunctor.Test" ) - ( Name "Leaf" ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.DerivedFunctor.Test" ) + ( Name "Leaf" ) + ) :| [] ) :| [] ) :| [] ) :| [] @@ -771,7 +438,7 @@ UberModule ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.lua b/test/ps/output/Golden.DerivedFunctor.Test/golden.lua index 0392e579..958ae62e 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.lua +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.lua @@ -1,89 +1,8 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Semiring_semiringInt = { - add = function(x_S_195) - return function(y_S_196) return x_S_195 + y_S_196 end - end, - zero = 0, - mul = function(x_S_193) - return function(y_S_194) return x_S_193 * y_S_194 end - end, - one = 1 -} -M.Data_Functor_map = function(dict) return dict.map end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_31) - return function(a_S_32) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_31))(a_S_32) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_10 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_12) - return function(a_S_13) - return bind_S_10(f_S_12)(function(fPrime_S_14) - return bind_S_10(a_S_13)(function(aPrime_S_15) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_14(aPrime_S_15)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_DerivedFunctor_Test_add = M.Data_Semiring_semiringInt.add -M.Golden_DerivedFunctor_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_DerivedFunctor_Test_logShow = function(a_S_5) - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_5)) -end M.Golden_DerivedFunctor_Test_Leaf = { ["$ctor"] = "Golden.DerivedFunctor.Test∷Tree.Leaf" } @@ -115,7 +34,7 @@ M.Golden_DerivedFunctor_Test_sumTree = function(v) if "Golden.DerivedFunctor.Test∷Tree.Leaf" == v["$ctor"] then return 0 elseif "Golden.DerivedFunctor.Test∷Tree.Node" == v["$ctor"] then - return M.Golden_DerivedFunctor_Test_add(M.Golden_DerivedFunctor_Test_add(M.Golden_DerivedFunctor_Test_sumTree(v.value0))(v.value1))(M.Golden_DerivedFunctor_Test_sumTree(v.value2)) + return M.Golden_DerivedFunctor_Test_sumTree(v.value0) + v.value1 + M.Golden_DerivedFunctor_Test_sumTree(v.value2) else return error("No patterns matched") end @@ -126,7 +45,7 @@ M.Golden_DerivedFunctor_Test_functorTree = { if "Golden.DerivedFunctor.Test∷Tree.Leaf" == m["$ctor"] then return M.Golden_DerivedFunctor_Test_Leaf elseif "Golden.DerivedFunctor.Test∷Tree.Node" == m["$ctor"] then - return M.Golden_DerivedFunctor_Test_Node(M.Data_Functor_map(M.Golden_DerivedFunctor_Test_functorTree)(f)(m.value0))(f(m.value1))(M.Data_Functor_map(M.Golden_DerivedFunctor_Test_functorTree)(f)(m.value2)) + return M.Golden_DerivedFunctor_Test_Node(M.Golden_DerivedFunctor_Test_functorTree.map(f)(m.value0))(f(m.value1))(M.Golden_DerivedFunctor_Test_functorTree.map(f)(m.value2)) else return error("No patterns matched") end @@ -146,7 +65,6 @@ M.Golden_DerivedFunctor_Test_functorEither = { end end } -M.Golden_DerivedFunctor_Test_map1 = M.Data_Functor_map(M.Golden_DerivedFunctor_Test_functorEither) M.Golden_DerivedFunctor_Test_fromRight_S_w = function(fallback, v) if "Golden.DerivedFunctor.Test∷Either.Left" == v["$ctor"] then return fallback @@ -157,14 +75,10 @@ M.Golden_DerivedFunctor_Test_fromRight_S_w = function(fallback, v) end end return (function() - local Golden_DerivedFunctor_Test_Leaf, Golden_DerivedFunctor_Test_Node, Golden_DerivedFunctor_Test_logShow, Golden_DerivedFunctor_Test_fromRight_S_w, Golden_DerivedFunctor_Test_map1 = M.Golden_DerivedFunctor_Test_Leaf, M.Golden_DerivedFunctor_Test_Node, M.Golden_DerivedFunctor_Test_logShow, M.Golden_DerivedFunctor_Test_fromRight_S_w, M.Golden_DerivedFunctor_Test_map1 - local _ = Golden_DerivedFunctor_Test_logShow(Golden_DerivedFunctor_Test_fromRight_S_w(0, Golden_DerivedFunctor_Test_map1(function( v_S_0 ) - return M.Golden_DerivedFunctor_Test_add(v_S_0)(1) - end)(M.Golden_DerivedFunctor_Test_Right(41))))() - local _ = Golden_DerivedFunctor_Test_logShow(Golden_DerivedFunctor_Test_fromRight_S_w(7, Golden_DerivedFunctor_Test_map1(function( v0_S_1 ) - return M.Golden_DerivedFunctor_Test_add(v0_S_1)(1) - end)(M.Golden_DerivedFunctor_Test_Left("no"))))() - return Golden_DerivedFunctor_Test_logShow(M.Golden_DerivedFunctor_Test_sumTree(M.Data_Functor_map(M.Golden_DerivedFunctor_Test_functorTree)(function( v1_S_2 ) - return M.Data_Semiring_semiringInt.mul(v1_S_2)(2) - end)(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Leaf)(1)(Golden_DerivedFunctor_Test_Leaf))(2)(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Leaf)(3)(Golden_DerivedFunctor_Test_Leaf)))))() + local Golden_DerivedFunctor_Test_Leaf, Data_Show_foreign, Effect_Console_foreign, Golden_DerivedFunctor_Test_Node, Golden_DerivedFunctor_Test_fromRight_S_w = M.Golden_DerivedFunctor_Test_Leaf, M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_DerivedFunctor_Test_Node, M.Golden_DerivedFunctor_Test_fromRight_S_w + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(0, M.Golden_DerivedFunctor_Test_Right(42))))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(7, M.Golden_DerivedFunctor_Test_Left("no"))))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_DerivedFunctor_Test_sumTree(M.Golden_DerivedFunctor_Test_functorTree.map(function( v1_S_2 ) + return v1_S_2 * 2 + end)(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Leaf)(1)(Golden_DerivedFunctor_Test_Leaf))(2)(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Leaf)(3)(Golden_DerivedFunctor_Test_Leaf))))))() end)() diff --git a/test/ps/output/Golden.FieldCaching.Test/golden.ir b/test/ps/output/Golden.FieldCaching.Test/golden.ir index d5b482de..b3b44c99 100644 --- a/test/ps/output/Golden.FieldCaching.Test/golden.ir +++ b/test/ps/output/Golden.FieldCaching.Test/golden.ir @@ -7,266 +7,12 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "semiringInt" - }, LiteralObject Nothing - [ - ( PropName "add", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$192" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$193" ) :| [] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$192" ) ) ) - ( Ref Nothing ( Local ( Name "y$193" ) ) ) - ) - ) - ), - ( PropName "zero", LiteralInt Nothing 0 ), - ( PropName "mul", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$190" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$191" ) :| [] ) - ( PrimBinOp Nothing PrimMul - ( Ref Nothing ( Local ( Name "x$190" ) ) ) - ( Ref Nothing ( Local ( Name "y$191" ) ) ) - ) - ) - ), - ( PropName "one", LiteralInt Nothing 1 ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$28" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$29" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$28" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$29" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$7", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$9" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$10" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "f$9" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$11" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "a$10" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$12" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$11" ) ) ) - ( Ref Nothing ( Local ( Name "a'$12" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.FieldCaching.Test", qnameName = Name "add" - }, ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ( PropName "add" ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FieldCaching.Test", qnameName = Name "sub$w" }, AbsN Nothing @@ -276,51 +22,16 @@ UberModule ( Ref Nothing ( Local ( Name "y$189$220" ) ) ) ) ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.FieldCaching.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.FieldCaching.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$2" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) - ( Ref Nothing ( Local ( Name "a$2" ) ) :| [] ) :| [] - ) - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FieldCaching.Test", qnameName = Name "weigh" }, AbsN ( Just Never ) ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "add" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) - ) - ( PropName "mul" ) - ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) - ) - ( LiteralInt Nothing 2 :| [] ) :| [] - ) + ( PrimBinOp Nothing PrimAdd + ( PrimBinOp Nothing PrimMul + ( Ref Nothing ( Local ( Name "x" ) ) ) + ( LiteralInt Nothing 2 ) ) - ( LiteralInt Nothing 1 :| [] ) + ( LiteralInt Nothing 1 ) ) ), RecursiveGroup ( @@ -335,18 +46,13 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sumLoop$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "add" ) ) - ) - ( Ref Nothing ( Local ( Name "acc" ) ) :| [] ) - ) + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "acc" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) :| [] + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) :| [ AppN Nothing ( Ref Nothing @@ -391,27 +97,17 @@ UberModule { qnameModuleName = ModuleName "Golden.FieldCaching.Test", qnameName = Name "pair" }, AbsN Nothing ( ParamNamed Nothing ( Name "n" ) :| [] ) - ( AppN Nothing + ( PrimBinOp Nothing PrimAdd ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "add" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "add" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 1 ) :| [] + ) ) ) ), Standalone @@ -422,47 +118,30 @@ UberModule ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor Nothing + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 2 ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( IfThenElse Nothing - ( PrimBinOp Nothing PrimLt - ( Ref Nothing ( Local ( Name "n" ) ) ) - ( LiteralInt Nothing 2 ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "LT" ) [] - ) - ( IfThenElse Nothing - ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 2 ) ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "EQ" ) [] - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "GT" ) [] - ) - ) + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 2 ) ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ) ) ) ( Ref Nothing ( Local ( Name "n" ) ) ) - ( AppN Nothing + ( PrimBinOp Nothing PrimAdd ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "add" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sub$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sub$w" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| [] + ( Ref Nothing ( Local ( Name "n" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) ) ( AppN Nothing @@ -474,7 +153,7 @@ UberModule ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sub$w" ) ) ) ( Ref Nothing ( Local ( Name "n" ) ) :| [ LiteralInt Nothing 2 ] ) :| [] - ) :| [] + ) ) ) ) @@ -493,23 +172,18 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "apply2" ) ) ) ( AbsN Nothing ( ParamNamed Nothing ( Name "y" ) :| [] ) - ( AppN Nothing + ( PrimBinOp Nothing PrimAdd ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "add" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) - ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) ) - ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) :| [] + ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) ) ) :| [] ) @@ -544,76 +218,153 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "pair" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ( PrimBinOp Nothing PrimAdd + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ) + ( LiteralInt Nothing 1 :| [] ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ) + ( LiteralInt Nothing 2 :| [] ) + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "single" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 10 :| [] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ) + ( LiteralInt Nothing 10 :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sumLoop$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 4 ] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sumLoop$w" ) ) + ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 4 ] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "fibby" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 5 :| [] ) :| [] + ( PrimBinOp Nothing PrimAdd + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sub$w" ) ) + ) + ( LiteralInt Nothing 5 :| [ LiteralInt Nothing 1 ] ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sub$w" ) ) + ) + ( LiteralInt Nothing 5 :| [ LiteralInt Nothing 2 ] ) :| [] + ) + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "closed" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 5 :| [] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "apply2" ) ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y$247" ) :| [] ) + ( PrimBinOp Nothing PrimAdd + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ) + ( LiteralInt Nothing 5 :| [] ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) + ) + ( Ref Nothing ( Local ( Name "y$247" ) ) :| [] ) + ) + ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.FieldCaching.Test/golden.lua b/test/ps/output/Golden.FieldCaching.Test/golden.lua index 25d8aa9c..56623613 100644 --- a/test/ps/output/Golden.FieldCaching.Test/golden.lua +++ b/test/ps/output/Golden.FieldCaching.Test/golden.lua @@ -1,101 +1,19 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Semiring_semiringInt = { - add = function(x_S_192) - return function(y_S_193) return x_S_192 + y_S_193 end - end, - zero = 0, - mul = function(x_S_190) - return function(y_S_191) return x_S_190 * y_S_191 end - end, - one = 1 -} -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_28) - return function(a_S_29) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_28))(a_S_29) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_7 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_9) - return function(a_S_10) - return bind_S_7(f_S_9)(function(fPrime_S_11) - return bind_S_7(a_S_10)(function(aPrime_S_12) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_11(aPrime_S_12)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_FieldCaching_Test_add = M.Data_Semiring_semiringInt.add M.Golden_FieldCaching_Test_sub_S_w = function(x_S_188_S_219, y_S_189_S_220) return x_S_188_S_219 - y_S_189_S_220 end -M.Golden_FieldCaching_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_FieldCaching_Test_logShow = function(a_S_2) - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_2)) -end -M.Golden_FieldCaching_Test_weigh = function(x) - return M.Golden_FieldCaching_Test_add(M.Data_Semiring_semiringInt.mul(x)(2))(1) -end +M.Golden_FieldCaching_Test_weigh = function(x) return x * 2 + 1 end M.Golden_FieldCaching_Test_sumLoop_S_w = function(acc, n) - local Golden_FieldCaching_Test_add, Golden_FieldCaching_Test_sub_S_w, Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_add, M.Golden_FieldCaching_Test_sub_S_w, M.Golden_FieldCaching_Test_weigh + local Golden_FieldCaching_Test_sub_S_w, Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_sub_S_w, M.Golden_FieldCaching_Test_weigh while true do if n == 0 then return acc else - acc, n = Golden_FieldCaching_Test_add(acc)(Golden_FieldCaching_Test_weigh(n)), Golden_FieldCaching_Test_sub_S_w(n, 1) + acc, n = acc + Golden_FieldCaching_Test_weigh(n), Golden_FieldCaching_Test_sub_S_w(n, 1) end end end @@ -108,36 +26,39 @@ M.Golden_FieldCaching_Test_single = function(n) return M.Golden_FieldCaching_Test_weigh(n) end M.Golden_FieldCaching_Test_pair = function(n) - local Golden_FieldCaching_Test_add, Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_add, M.Golden_FieldCaching_Test_weigh - return Golden_FieldCaching_Test_add(Golden_FieldCaching_Test_weigh(n))(Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_add(n)(1))) + local Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_weigh + return Golden_FieldCaching_Test_weigh(n) + Golden_FieldCaching_Test_weigh(n + 1) end M.Golden_FieldCaching_Test_fibby = function(n) - if "Data.Ordering∷Ordering.LT" == ((function() + if "Data.Ordering∷Ordering.LT" == (function() if n < 2 then - return { ["$ctor"] = "Data.Ordering∷Ordering.LT" } + return "Data.Ordering∷Ordering.LT" elseif n == 2 then - return { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } + return "Data.Ordering∷Ordering.EQ" else - return { ["$ctor"] = "Data.Ordering∷Ordering.GT" } + return "Data.Ordering∷Ordering.GT" end - end)())["$ctor"] then + end)() then return n else - return M.Golden_FieldCaching_Test_add(M.Golden_FieldCaching_Test_weigh(M.Golden_FieldCaching_Test_sub_S_w(n, 1)))(M.Golden_FieldCaching_Test_weigh(M.Golden_FieldCaching_Test_sub_S_w(n, 2))) + return M.Golden_FieldCaching_Test_weigh(M.Golden_FieldCaching_Test_sub_S_w(n, 1)) + M.Golden_FieldCaching_Test_weigh(M.Golden_FieldCaching_Test_sub_S_w(n, 2)) end end M.Golden_FieldCaching_Test_apply2 = function(f) return f(2) end M.Golden_FieldCaching_Test_closed = function(x) return M.Golden_FieldCaching_Test_apply2(function(y) local Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_weigh - return M.Golden_FieldCaching_Test_add(Golden_FieldCaching_Test_weigh(x))(Golden_FieldCaching_Test_weigh(y)) + return Golden_FieldCaching_Test_weigh(x) + Golden_FieldCaching_Test_weigh(y) end) end return (function() - local Golden_FieldCaching_Test_logShow = M.Golden_FieldCaching_Test_logShow - local _ = Golden_FieldCaching_Test_logShow(M.Golden_FieldCaching_Test_pair(1))() - local _ = Golden_FieldCaching_Test_logShow(M.Golden_FieldCaching_Test_single(10))() - local _ = Golden_FieldCaching_Test_logShow(M.Golden_FieldCaching_Test_sumLoop_S_w(0, 4))() - local _ = Golden_FieldCaching_Test_logShow(M.Golden_FieldCaching_Test_fibby(5))() - return Golden_FieldCaching_Test_logShow(M.Golden_FieldCaching_Test_closed(5))() + local Data_Show_foreign, Effect_Console_foreign, Golden_FieldCaching_Test_weigh, Golden_FieldCaching_Test_sub_S_w = M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_FieldCaching_Test_weigh, M.Golden_FieldCaching_Test_sub_S_w + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(1) + Golden_FieldCaching_Test_weigh(2)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(10)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_FieldCaching_Test_sumLoop_S_w(0, 4)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(5, 1)) + Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(5, 2))))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_FieldCaching_Test_apply2(function( y_S_247 ) + local Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_weigh + return Golden_FieldCaching_Test_weigh(5) + Golden_FieldCaching_Test_weigh(y_S_247) + end)))() end)() diff --git a/test/ps/output/Golden.FloatIn.Test/golden.ir b/test/ps/output/Golden.FloatIn.Test/golden.ir index f76748a6..a25c1d1d 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.ir +++ b/test/ps/output/Golden.FloatIn.Test/golden.ir @@ -13,12 +13,6 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing @@ -31,278 +25,6 @@ UberModule ( ModuleName "Golden.FloatIn.Test" ) "src/Golden/FloatIn/Test.purs" [ ( Nothing, Name "tick" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "semiringInt" - }, LiteralObject Nothing - [ - ( PropName "add", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$192" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$193" ) :| [] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$192" ) ) ) - ( Ref Nothing ( Local ( Name "y$193" ) ) ) - ) - ) - ), - ( PropName "zero", LiteralInt Nothing 0 ), - ( PropName "mul", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$190" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$191" ) :| [] ) - ( PrimBinOp Nothing PrimMul - ( Ref Nothing ( Local ( Name "x$190" ) ) ) - ( Ref Nothing ( Local ( Name "y$191" ) ) ) - ) - ) - ), - ( PropName "one", LiteralInt Nothing 1 ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$28" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$29" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$28" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$29" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$7", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$9" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$10" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "f$9" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$11" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "a$10" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$12" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$11" ) ) ) - ( Ref Nothing ( Local ( Name "a'$12" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "add" - }, ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ( PropName "add" ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$2" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) - ( Ref Nothing ( Local ( Name "a$2" ) ) :| [] ) :| [] - ) - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pickShared$w" }, AbsN Nothing @@ -325,26 +47,18 @@ UberModule ( Standalone ( Nothing, Name "f", AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) - ) - ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "shared" ) ) ) + ( Ref Nothing ( Local ( Name "shared" ) ) ) ) ) :| [] ) - ( AppN Nothing + ( PrimBinOp Nothing PrimAdd ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) :| [] + ( Ref Nothing ( Local ( Name "f" ) ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) :| [] ) ) ( AppN Nothing @@ -352,7 +66,7 @@ UberModule ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) ( PropName "unit" ) :| [] - ) :| [] + ) ) ) ) @@ -364,23 +78,12 @@ UberModule { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "expensive" }, AbsN Nothing ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) - ) - ( PropName "mul" ) - ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] - ) + ( PrimBinOp Nothing PrimAdd + ( PrimBinOp Nothing PrimMul + ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "x" ) ) ) ) - ( LiteralInt Nothing 1 :| [] ) + ( LiteralInt Nothing 1 ) ) ), Standalone ( QName @@ -391,19 +94,17 @@ UberModule ( Ref Nothing ( Local ( Name "useIt" ) ) ) ( Let Nothing ( Standalone - ( Nothing, Name "shared", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "expensive" ) ) + ( Nothing, Name "shared", PrimBinOp Nothing PrimAdd + ( PrimBinOp Nothing PrimMul + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) ) ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) + ( LiteralInt Nothing 1 ) ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "add" ) ) ) - ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "shared" ) ) :| [] ) + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "shared" ) ) ) + ( Ref Nothing ( Local ( Name "shared" ) ) ) ) ) ( LiteralInt Nothing 0 ) @@ -452,60 +153,90 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralBool Nothing True :| [ LiteralInt Nothing 3 ] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) + ) + ( LiteralBool Nothing True :| [ LiteralInt Nothing 3 ] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralBool Nothing False :| [ LiteralInt Nothing 3 ] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) + ) + ( LiteralBool Nothing False :| [ LiteralInt Nothing 3 ] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralBool Nothing True :| [ LiteralInt Nothing 3 ] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) + ) + ( LiteralBool Nothing True :| [ LiteralInt Nothing 3 ] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "logShow" ) ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralBool Nothing False :| [ LiteralInt Nothing 3 ] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) + ) + ( LiteralBool Nothing False :| [ LiteralInt Nothing 3 ] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.FloatIn.Test/golden.lua b/test/ps/output/Golden.FloatIn.Test/golden.lua index 65ab8fb0..bb363d13 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.lua +++ b/test/ps/output/Golden.FloatIn.Test/golden.lua @@ -1,116 +1,34 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Unit_foreign = { unit = {} } M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } M.Golden_FloatIn_Test_foreign = { tick = function(n) print("tick") return n + n end } -M.Data_Semiring_semiringInt = { - add = function(x_S_192) - return function(y_S_193) return x_S_192 + y_S_193 end - end, - zero = 0, - mul = function(x_S_190) - return function(y_S_191) return x_S_190 * y_S_191 end - end, - one = 1 -} -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_28) - return function(a_S_29) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_28))(a_S_29) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_7 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_9) - return function(a_S_10) - return bind_S_7(f_S_9)(function(fPrime_S_11) - return bind_S_7(a_S_10)(function(aPrime_S_12) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_11(aPrime_S_12)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_FloatIn_Test_add = M.Data_Semiring_semiringInt.add -M.Golden_FloatIn_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_FloatIn_Test_logShow = function(a_S_2) - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_2)) -end M.Golden_FloatIn_Test_pickShared_S_w = function(useIt, n) if useIt then local shared = M.Golden_FloatIn_Test_foreign.tick(n) - local f = function() return M.Golden_FloatIn_Test_add(shared)(shared) end - return M.Golden_FloatIn_Test_add(f(M.Data_Unit_foreign.unit))(f(M.Data_Unit_foreign.unit)) + local f = function() return shared + shared end + return f(M.Data_Unit_foreign.unit) + f(M.Data_Unit_foreign.unit) else return 0 end end -M.Golden_FloatIn_Test_expensive = function(x) - return M.Golden_FloatIn_Test_add(M.Data_Semiring_semiringInt.mul(x)(x))(1) -end +M.Golden_FloatIn_Test_expensive = function(x) return x * x + 1 end M.Golden_FloatIn_Test_pick_S_w = function(useIt, n) if useIt then - local shared = M.Golden_FloatIn_Test_expensive(n) - return M.Golden_FloatIn_Test_add(shared)(shared) + local shared = n * n + 1 + return shared + shared else return 0 end end return (function() - local Golden_FloatIn_Test_logShow, Golden_FloatIn_Test_pickShared_S_w, Golden_FloatIn_Test_pick_S_w = M.Golden_FloatIn_Test_logShow, M.Golden_FloatIn_Test_pickShared_S_w, M.Golden_FloatIn_Test_pick_S_w - local _ = Golden_FloatIn_Test_logShow(Golden_FloatIn_Test_pick_S_w(true, 3))() - local _ = Golden_FloatIn_Test_logShow(Golden_FloatIn_Test_pick_S_w(false, 3))() - local _ = Golden_FloatIn_Test_logShow(Golden_FloatIn_Test_pickShared_S_w(true, 3))() - return Golden_FloatIn_Test_logShow(Golden_FloatIn_Test_pickShared_S_w(false, 3))() + local Data_Show_foreign, Effect_Console_foreign, Golden_FloatIn_Test_pickShared_S_w, Golden_FloatIn_Test_pick_S_w = M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_FloatIn_Test_pickShared_S_w, M.Golden_FloatIn_Test_pick_S_w + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pick_S_w(true, 3)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pick_S_w(false, 3)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pickShared_S_w(true, 3)))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pickShared_S_w(false, 3)))() end)() diff --git a/test/ps/output/Golden.ForeignSharing.Test/golden.ir b/test/ps/output/Golden.ForeignSharing.Test/golden.ir index 5f24e8cc..ed40606f 100644 --- a/test/ps/output/Golden.ForeignSharing.Test/golden.ir +++ b/test/ps/output/Golden.ForeignSharing.Test/golden.ir @@ -18,17 +18,6 @@ UberModule }, ForeignImport Nothing ( ModuleName "Golden.ForeignSharing.Test" ) "src/Golden/ForeignSharing/Test.purs" [ ( Nothing, Name "same" ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.ForeignSharing.Test", qnameName = Name "sharedToken" - }, AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "foreign" ) ) - ) - ( PropName "token" ) - ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -46,18 +35,18 @@ UberModule ) ( PropName "same" ) ) - ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported ( ModuleName "Golden.ForeignSharing.Test" ) ( Name "sharedToken" ) ) + ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "foreign" ) ) ) - ( LiteralInt Nothing 0 :| [] ) :| [] + ( PropName "token" ) :| [] ) ) - ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported ( ModuleName "Golden.ForeignSharing.Test" ) ( Name "sharedToken" ) ) + ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "foreign" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ( PropName "token" ) :| [] ) ) ( LiteralString Nothing "shared" ) diff --git a/test/ps/output/Golden.ForeignSharing.Test/golden.lua b/test/ps/output/Golden.ForeignSharing.Test/golden.lua index f6bb2dab..2d67735b 100644 --- a/test/ps/output/Golden.ForeignSharing.Test/golden.lua +++ b/test/ps/output/Golden.ForeignSharing.Test/golden.lua @@ -6,12 +6,9 @@ M.Golden_ForeignSharing_Token_foreign = { token = {} } M.Golden_ForeignSharing_Test_foreign = { same = function(a) return function(b) return rawequal(a, b) end end } -M.Golden_ForeignSharing_Test_sharedToken = function() - return M.Golden_ForeignSharing_Token_foreign.token -end return M.Effect_Console_foreign.log((function() - local Golden_ForeignSharing_Test_sharedToken = M.Golden_ForeignSharing_Test_sharedToken - if M.Golden_ForeignSharing_Test_foreign.same(Golden_ForeignSharing_Test_sharedToken(0))(Golden_ForeignSharing_Test_sharedToken(1)) then + local Golden_ForeignSharing_Token_foreign = M.Golden_ForeignSharing_Token_foreign + if M.Golden_ForeignSharing_Test_foreign.same(Golden_ForeignSharing_Token_foreign.token)(Golden_ForeignSharing_Token_foreign.token) then return "shared" else return "fresh" diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir index 9b9efbb9..ffebc51c 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir @@ -7,12 +7,6 @@ UberModule ( ModuleName "Record.Unsafe" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Record/Unsafe.purs" [ ( Nothing, Name "unsafeGet" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing @@ -92,11 +86,6 @@ UberModule ] ) :| [] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRecord" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eqRecord" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqInt" }, LiteralObject Nothing [ @@ -112,11 +101,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eq" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqRowCons$w" }, AbsN Nothing ( ParamNamed Nothing @@ -171,9 +155,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictEq" ) ) ) + ( PropName "eq" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "get" ) ) ) @@ -189,11 +173,9 @@ UberModule ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) - ) - ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictEqRecord" ) ) ) + ( PropName "eqRecord" ) ) ( Ref Nothing ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] @@ -211,17 +193,6 @@ UberModule ] ) ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Generic.Rep", qnameName = Name "Inl" }, Ctor Nothing SumType @@ -246,766 +217,418 @@ UberModule ( CtorName "NoArguments" ) [] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEqArgument" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictEq" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "genericEq'", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) - ) - ) - ) - ] - ) + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "Leaf" + }, Ctor Nothing SumType + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( TyName "Tree" ) + ( CtorName "Leaf" ) [] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEq'" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "genericEq'" ) ) + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "Node" + }, Ctor Nothing SumType + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( TyName "Tree" ) + ( CtorName "Node" ) + [ FieldName "value0" ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "Nil" + }, Ctor Nothing SumType + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( TyName "List" ) + ( CtorName "Nil" ) [] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "Cons" + }, Ctor Nothing SumType + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( TyName "List" ) + ( CtorName "Cons" ) + [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEqConstructor" + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "node$w" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictGenericEq" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "genericEq'", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( ParamNamed Nothing + ( Name "left" ) :| + [ ParamNamed Nothing ( Name "value" ), ParamNamed Nothing ( Name "right" ) ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) + ) + ( LiteralObject Nothing + [ + ( PropName "left", Ref Nothing ( Local ( Name "left" ) ) ), + ( PropName "value", Ref Nothing ( Local ( Name "value" ) ) ), + ( PropName "right", Ref Nothing ( Local ( Name "right" ) ) ) + ] :| [] + ) + ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericTree" + }, LiteralObject Nothing + [ + ( PropName "to", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) + ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) - ) - ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "x" ) ) ) + ( PropName "value0" ) :| [] ) - ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) ) + ( Exception Nothing "No patterns matched" ) ) ) - ] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEq" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictGeneric" ) :| [] ) - ( Let Nothing - ( Standalone - ( Nothing, Name "from", ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictGeneric" ) ) ) - ( PropName "from" ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "dictGenericEq" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y" ) :| [] ) + ), + ( PropName "from", AbsN Nothing + ( ParamNamed Nothing ( Name "x0" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inl" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "NoArguments" ) ) :| [] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Node" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) + ) ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) - ) - ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "from" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "from" ) ) ) - ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inr" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "x0" ) ) ) + ( PropName "value0" ) :| [] ) ) + ( Exception Nothing "No patterns matched" ) ) ) ) - ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| + ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericList" + }, LiteralObject Nothing [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) + ( PropName "to", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Nil" ) ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "x" ) ) ) + ( PropName "value0" ) :| [] + ) ) + ( Exception Nothing "No patterns matched" ) ) - ] + ) ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) + ( PropName "from", AbsN Nothing + ( ParamNamed Nothing ( Name "x0" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Nil" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inl" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "NoArguments" ) ) :| [] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Cons" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inr" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "x0" ) ) ) + ( PropName "value0" ) :| [] + ) ) + ( Exception Nothing "No patterns matched" ) ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$42" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$43" ) :| [] ) + ) + ] + ), RecursiveGroup + ( + ( QName + { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqTree" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictEq" ) :| [] ) + ( LiteralObject Nothing + [ + ( PropName "eq", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y" ) :| [] ) + ( AppN Nothing + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "from$271", AbsN Nothing + ( ParamNamed Nothing ( Name "x0$275" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "x0$275" ) ) ) + ) ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$42" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$43" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$21", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$23" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$24" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$21" ) ) ) - ( Ref Nothing ( Local ( Name "f$23" ) ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inl" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Generic.Rep" ) + ( Name "NoArguments" ) + ) :| [] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Node" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "x0$275" ) ) ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inr" ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "x0$275" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( Exception Nothing "No patterns matched" ) + ) + ) + ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$25" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$21" ) ) ) - ( Ref Nothing ( Local ( Name "a$24" ) ) :| [] ) - ) + ( ParamNamed Nothing ( Name "dictGenericEq$272" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$273" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$26" ) :| [] ) + ( ParamNamed Nothing ( Name "y$274" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictGenericEq$272" ) ) ) + ( PropName "genericEq'" ) ) ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] + ( Ref Nothing ( Local ( Name "from$271" ) ) ) + ( Ref Nothing ( Local ( Name "x$273" ) ) :| [] ) :| [] ) ) ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$25" ) ) ) - ( Ref Nothing ( Local ( Name "a'$26" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericEqSum" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictGenericEq1$5" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "genericEq'", AbsN Nothing - ( ParamNamed Nothing ( Name "v$7" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1$8" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$7" ) ) ) ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$8" ) ) ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEqConstructor" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "genericEq'", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) + ( Ref Nothing ( Local ( Name "from$271" ) ) ) + ( Ref Nothing ( Local ( Name "y$274" ) ) :| [] ) :| [] ) ) - ] :| [] - ) :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$7" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1$8" ) ) ) - ( PropName "value0" ) :| [] - ) - ) ( LiteralBool Nothing False ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$7" ) ) ) ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$8" ) ) ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) ) + ) ) - ( Ref Nothing ( Local ( Name "dictGenericEq1$5" ) ) :| [] ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$7" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1$8" ) ) ) - ( PropName "value0" ) :| [] - ) - ) ( LiteralBool Nothing False ) - ) ( LiteralBool Nothing False ) - ) - ) - ) - ) - ] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqRec" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictEqRecord$226" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "eq", AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRecord" ) ) ) - ( Ref Nothing ( Local ( Name "dictEqRecord$226" ) ) :| [] ) - ) - ( Ref Nothing ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] ) - ) - ] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqRowCons" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "eqRowCons$p3$238" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "eqRowCons$p4$239" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "eqRecord", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) ) - ) - ) - ] :| - [ Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ), Ref Nothing - ( Local ( Name "eqRowCons$p3$238" ) ), Ref Nothing - ( Local ( Name "eqRowCons$p4$239" ) ) - ] - ) - ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$2" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "a$2" ) ) ) - ( LiteralString Nothing "true" ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralBool Nothing False ) ( Ref Nothing ( Local ( Name "a$2" ) ) ) ) - ( LiteralString Nothing "false" ) - ( Exception Nothing "No patterns matched" ) - ) :| [] - ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "Leaf" - }, Ctor Nothing SumType - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( TyName "Tree" ) - ( CtorName "Leaf" ) [] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "Node" - }, Ctor Nothing SumType - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( TyName "Tree" ) - ( CtorName "Node" ) - [ FieldName "value0" ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "Nil" - }, Ctor Nothing SumType - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( TyName "List" ) - ( CtorName "Nil" ) [] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "Cons" - }, Ctor Nothing SumType - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( TyName "List" ) - ( CtorName "Cons" ) - [ FieldName "value0" ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "node$w" - }, AbsN Nothing - ( ParamNamed Nothing - ( Name "left" ) :| - [ ParamNamed Nothing ( Name "value" ), ParamNamed Nothing ( Name "right" ) ] - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "left", Ref Nothing ( Local ( Name "left" ) ) ), - ( PropName "value", Ref Nothing ( Local ( Name "value" ) ) ), - ( PropName "right", Ref Nothing ( Local ( Name "right" ) ) ) - ] :| [] - ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericTree" - }, LiteralObject Nothing - [ - ( PropName "to", AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "x" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ), - ( PropName "from", AbsN Nothing - ( ParamNamed Nothing ( Name "x0" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inl" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "NoArguments" ) ) :| [] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷Tree.Node" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inr" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "x0" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericList" - }, LiteralObject Nothing - [ - ( PropName "to", AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Nil" ) ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "x" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ), - ( PropName "from", AbsN Nothing - ( ParamNamed Nothing ( Name "x0" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Nil" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inl" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "NoArguments" ) ) :| [] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Cons" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inr" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "x0" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ) - ] - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqTree" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictEq" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "eq", AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "genericTree" ) - ) :| [] ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "genericEqSum" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEqConstructor" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEqArgument" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqRec" ) + ( LiteralObject Nothing + [ + ( PropName "genericEq'", AbsN Nothing + ( ParamNamed Nothing ( Name "v$7$290" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$8$291" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$7$290" ) ) ) + ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v1$8$291" ) ) ) + ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$7$290" ) ) ) + ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqRowCons" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralString Nothing "value" ) - ) - ] :| [] + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v1$8$291" ) ) ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| - [ Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ), LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralString Nothing "right" ) + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) + ) + ( LiteralObject Nothing + [ + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) + ) + ) + ) + ] :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "value" ) + ) + ], Ref Nothing + ( Local ( Name "dictEq" ) ) + ] + ) :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "right" ) + ) + ], AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "eqTree" ) + ) + ) + ( Ref Nothing + ( Local ( Name "dictEq" ) ) :| [] + ) + ] + ) :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "left" ) + ) + ], AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "eqTree" ) + ) + ) + ( Ref Nothing + ( Local ( Name "dictEq" ) ) :| [] + ) + ] + ) + ) + ( PropName "eqRecord" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Type.Proxy" ) + ( Name "Proxy" ) + ) :| [] + ) ) - ], AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqTree" ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$7$290" ) ) ) + ( PropName "value0" ) :| [] ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) - ] - ) :| - [ Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ), LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralString Nothing "left" ) - ) - ], AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqTree" ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$8$291" ) ) ) + ( PropName "value0" ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) - ] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ) ( LiteralBool Nothing False ) + ) ( LiteralBool Nothing False ) + ) + ) + ) + ) + ] :| [] ) ) ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) @@ -1020,116 +643,223 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eq" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) + }, ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqTree" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) :| [] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) :| [] ) ) + ( PropName "eq" ) ), RecursiveGroup ( ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqList" }, AbsN Nothing ( ParamNamed Nothing ( Name "dictEq" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "eq", AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "genericList" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "genericEqSum" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEqConstructor" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Eq.Generic" ) - ( Name "genericEqArgument" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqRec" ) + ( LiteralObject Nothing + [ + ( PropName "eq", AbsN Nothing + ( ParamNamed Nothing ( Name "x" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "from$242", AbsN Nothing + ( ParamNamed Nothing ( Name "x0$246" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Nil" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "x0$246" ) ) ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) + ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inl" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Generic.Rep" ) + ( Name "NoArguments" ) + ) :| [] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Golden.GenericEqTwoTypes.Test∷List.Cons" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "x0$246" ) ) ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Generic.Rep" ) ( Name "Inr" ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "x0$246" ) ) ) + ( PropName "value0" ) :| [] + ) ) + ( Exception Nothing "No patterns matched" ) + ) + ) + ) :| [] + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "dictGenericEq$243" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$244" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y$245" ) :| [] ) + ( AppN Nothing ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictGenericEq$243" ) ) ) + ( PropName "genericEq'" ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqRowCons" ) - ) - ) - ( LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralString Nothing "tail" ) - ) - ] :| [] + ( Ref Nothing ( Local ( Name "from$242" ) ) ) + ( Ref Nothing ( Local ( Name "x$244" ) ) :| [] ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "from$242" ) ) ) + ( Ref Nothing ( Local ( Name "y$245" ) ) :| [] ) :| [] + ) + ) + ) + ) + ) + ) + ( LiteralObject Nothing + [ + ( PropName "genericEq'", AbsN Nothing + ( ParamNamed Nothing ( Name "v$7$261" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$8$262" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$7$261" ) ) ) + ) + ) + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v1$8$262" ) ) ) + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$7$261" ) ) ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "eqList" ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v1$8$262" ) ) ) ) ) - ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] ) :| [] - ) :| - [ Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ), LiteralObject Nothing - [ - ( PropName "reflectSymbol", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralString Nothing "head" ) + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Eq" ) + ( Name "eqRowCons$w" ) + ) + ) + ( LiteralObject Nothing + [ + ( PropName "eqRecord", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( LiteralBool Nothing True ) + ) + ) + ) + ] :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "tail" ) + ) + ], AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "eqList" ) + ) + ) + ( Ref Nothing + ( Local ( Name "dictEq" ) ) :| [] + ) + ] + ) :| + [ Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ), LiteralObject Nothing + [ + ( PropName "reflectSymbol", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralString Nothing "head" ) + ) + ], Ref Nothing + ( Local ( Name "dictEq" ) ) + ] + ) + ) + ( PropName "eqRecord" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Type.Proxy" ) + ( Name "Proxy" ) + ) :| [] + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$7$261" ) ) ) + ( PropName "value0" ) :| [] + ) ) - ], Ref Nothing - ( Local ( Name "dictEq" ) ) - ] - ) :| [] - ) :| [] - ) :| [] - ) :| [] - ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$8$262" ) ) ) + ( PropName "value0" ) :| [] + ) + ) ( LiteralBool Nothing False ) + ) ( LiteralBool Nothing False ) + ) + ) + ) + ) + ] :| [] ) ) ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) @@ -1144,14 +874,14 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eq1" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) + }, ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eqList" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) :| [] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) :| [] ) ) + ( PropName "eq" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "cons$w" @@ -1224,14 +954,39 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "_", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq1" ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "a$2$314", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq1" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "cons$w" ) + ) + ) + ( LiteralInt Nothing 1 :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "cons$w" ) + ) + ) + ( LiteralInt Nothing 2 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) + ] + ) + ] + ) :| [] + ) ) ( AppN Nothing ( Ref Nothing @@ -1259,44 +1014,53 @@ UberModule ] ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons$w" ) ) - ) - ( LiteralInt Nothing 1 :| - [ AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "cons$w" ) - ) - ) - ( LiteralInt Nothing 2 :| - [ Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Nil" ) - ) - ] - ) - ] + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "a$2$314" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "a$2$314" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) :| [] - ) :| [] + ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq1" ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "a$2$315", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq1" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "cons$w" ) + ) + ) + ( LiteralInt Nothing 1 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Nil" ) + ) + ] + ) :| [] + ) ) ( AppN Nothing ( Ref Nothing @@ -1305,7 +1069,7 @@ UberModule ( Name "cons$w" ) ) ) - ( LiteralInt Nothing 1 :| + ( LiteralInt Nothing 2 :| [ Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) @@ -1314,33 +1078,72 @@ UberModule ] ) :| [] ) - ) - ( AppN Nothing + ) :| [] + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "cons$w" ) - ) + ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( LiteralInt Nothing 2 :| - [ Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Nil" ) ) - ] + ( PropName "log" ) + ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "a$2$315" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "a$2$315" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) :| [] - ) :| [] + ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq" ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "a$2$316", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "node$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) + ) :| + [ LiteralInt Nothing 1, AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "node$w" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) + ) :| + [ LiteralInt Nothing 2, Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) + ) + ] + ) + ] + ) :| [] + ) ) ( AppN Nothing ( Ref Nothing @@ -1376,6 +1179,39 @@ UberModule ] ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) + ) + ( PropName "log" ) + ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "a$2$316" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "a$2$316" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) + ) :| [] + ) + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ] + ) + ( AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "a$2$317", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq" ) ) ) ( AppN Nothing ( Ref Nothing @@ -1389,43 +1225,14 @@ UberModule ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) :| - [ LiteralInt Nothing 1, AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "node$w" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Leaf" ) - ) :| - [ LiteralInt Nothing 2, Ref Nothing - ( Imported - ( ModuleName "Golden.GenericEqTwoTypes.Test" ) - ( Name "Leaf" ) - ) - ] + [ LiteralInt Nothing 1, Ref Nothing + ( Imported + ( ModuleName "Golden.GenericEqTwoTypes.Test" ) + ( Name "Leaf" ) ) ] ) :| [] - ) :| [] - ) - ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ) - ] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "eq" ) ) + ) ) ( AppN Nothing ( Ref Nothing @@ -1436,26 +1243,32 @@ UberModule ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) :| - [ LiteralInt Nothing 1, Ref Nothing + [ LiteralInt Nothing 2, Ref Nothing ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) ] ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node$w" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) :| - [ LiteralInt Nothing 2, Ref Nothing - ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Leaf" ) ) - ] + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "a$2$317" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "a$2$317" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) :| [] - ) :| [] + ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua index 7e58b660..7a437a39 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua @@ -1,31 +1,7 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Record_Unsafe_foreign = { unsafeGet = function(l) return function(r) return r[l] end end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } @@ -47,13 +23,11 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { end, _not_ = function(b_S_217) return not(b_S_217) end } -M.Data_Eq_eqRecord = function(dict) return dict.eqRecord end M.Data_Eq_eqInt = { eq = function(r1_S_213) return function(r2_S_214) return r1_S_213 == r2_S_214 end end } -M.Data_Eq_eq = function(dict) return dict.eq end M.Data_Eq_eqRowCons_S_w = function( dictEqRecord , eqRowCons_S_u2 , dictIsSymbol @@ -65,14 +39,12 @@ M.Data_Eq_eqRowCons_S_w = function( dictEqRecord local Type_Proxy_Proxy = M.Type_Proxy_Proxy local key = dictIsSymbol.reflectSymbol(Type_Proxy_Proxy) local get = M.Record_Unsafe_foreign.unsafeGet(key) - return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Eq_eq(dictEq)(get(ra))(get(rb)))(M.Data_Eq_eqRecord(dictEqRecord)(Type_Proxy_Proxy)(ra)(rb)) + return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(dictEq.eq(get(ra))(get(rb)))(dictEqRecord.eqRecord(Type_Proxy_Proxy)(ra)(rb)) end end end } end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end M.Data_Generic_Rep_Inl = function(value0) return { ["$ctor"] = "Data.Generic.Rep∷Sum.Inl", value0 = value0 } end @@ -80,121 +52,6 @@ M.Data_Generic_Rep_Inr = function(value0) return { ["$ctor"] = "Data.Generic.Rep∷Sum.Inr", value0 = value0 } end M.Data_Generic_Rep_NoArguments = {} -M.Data_Eq_Generic_genericEqArgument = function(dictEq) - return { - genericEqPrime = function(v) - return function(v1) return M.Data_Eq_eq(dictEq)(v)(v1) end - end - } -end -M.Data_Eq_Generic_genericEqPrime = function(dict) return dict.genericEqPrime end -M.Data_Eq_Generic_genericEqConstructor = function(dictGenericEq) - return { - genericEqPrime = function(v) - return function(v1) - return M.Data_Eq_Generic_genericEqPrime(dictGenericEq)(v)(v1) - end - end - } -end -M.Data_Eq_Generic_genericEq = function(dictGeneric) - local from = dictGeneric.from - return function(dictGenericEq) - return function(x) - return function(y) - return M.Data_Eq_Generic_genericEqPrime(dictGenericEq)(from(x))(from(y)) - end - end - end -end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_42) - return function(a_S_43) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_42))(a_S_43) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_21 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_23) - return function(a_S_24) - return bind_S_21(f_S_23)(function(fPrime_S_25) - return bind_S_21(a_S_24)(function(aPrime_S_26) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_25(aPrime_S_26)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_GenericEqTwoTypes_Test_genericEqSum = function(dictGenericEq1_S_5) - return { - genericEqPrime = function(v_S_7) - return function(v1_S_8) - if "Data.Generic.Rep∷Sum.Inl" == v_S_7["$ctor"] then - if "Data.Generic.Rep∷Sum.Inl" == v1_S_8["$ctor"] then - return M.Data_Eq_Generic_genericEqPrime(M.Data_Eq_Generic_genericEqConstructor({ - genericEqPrime = function() return function() return true end end - }))(v_S_7.value0)(v1_S_8.value0) - else - return false - end - elseif "Data.Generic.Rep∷Sum.Inr" == v_S_7["$ctor"] then - if "Data.Generic.Rep∷Sum.Inr" == v1_S_8["$ctor"] then - return M.Data_Eq_Generic_genericEqPrime(dictGenericEq1_S_5)(v_S_7.value0)(v1_S_8.value0) - else - return false - end - else - return false - end - end - end - } -end -M.Golden_GenericEqTwoTypes_Test_eqRec = function(dictEqRecord_S_226) - return { eq = M.Data_Eq_eqRecord(dictEqRecord_S_226)(M.Type_Proxy_Proxy) } -end -M.Golden_GenericEqTwoTypes_Test_eqRowCons = function(eqRowCons_S_p3_S_238) - return function(eqRowCons_S_p4_S_239) - return M.Data_Eq_eqRowCons_S_w({ - eqRecord = function() - return function() return function() return true end end - end - }, nil, eqRowCons_S_p3_S_238, eqRowCons_S_p4_S_239) - end -end -M.Golden_GenericEqTwoTypes_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_GenericEqTwoTypes_Test_logShow = function(a_S_2) - return M.Effect_Console_foreign.log((function() - if a_S_2 then - return "true" - elseif false == a_S_2 then - return "false" - else - return error("No patterns matched") - end - end)()) -end M.Golden_GenericEqTwoTypes_Test_Leaf = { ["$ctor"] = "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" } @@ -264,40 +121,157 @@ M.Golden_GenericEqTwoTypes_Test_eqTree = function(dictEq) return { eq = function(x) return function(y) - local Data_Eq_eqRowCons_S_w, Golden_GenericEqTwoTypes_Test_eqTree = M.Data_Eq_eqRowCons_S_w, M.Golden_GenericEqTwoTypes_Test_eqTree - return M.Data_Eq_Generic_genericEq(M.Golden_GenericEqTwoTypes_Test_genericTree)(M.Golden_GenericEqTwoTypes_Test_genericEqSum(M.Data_Eq_Generic_genericEqConstructor(M.Data_Eq_Generic_genericEqArgument(M.Golden_GenericEqTwoTypes_Test_eqRec(Data_Eq_eqRowCons_S_w(Data_Eq_eqRowCons_S_w(M.Golden_GenericEqTwoTypes_Test_eqRowCons({ - reflectSymbol = function() return "value" end - })(dictEq), nil, { - reflectSymbol = function() return "right" end - }, Golden_GenericEqTwoTypes_Test_eqTree(dictEq)), nil, { - reflectSymbol = function() return "left" end - }, Golden_GenericEqTwoTypes_Test_eqTree(dictEq)))))))(x)(y) + return (function() + local from_S_271 = function(x0_S_275) + if "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" == x0_S_275["$ctor"] then + return M.Data_Generic_Rep_Inl(M.Data_Generic_Rep_NoArguments) + elseif "Golden.GenericEqTwoTypes.Test∷Tree.Node" == x0_S_275["$ctor"] then + return M.Data_Generic_Rep_Inr(x0_S_275.value0) + else + return error("No patterns matched") + end + end + return function(dictGenericEq_S_272) + return function(x_S_273) + return function(y_S_274) + return dictGenericEq_S_272.genericEqPrime(from_S_271(x_S_273))(from_S_271(y_S_274)) + end + end + end + end)()({ + genericEqPrime = function(v_S_7_S_290) + return function(v1_S_8_S_291) + if "Data.Generic.Rep∷Sum.Inl" == v_S_7_S_290["$ctor"] then + return "Data.Generic.Rep∷Sum.Inl" == v1_S_8_S_291["$ctor"] + elseif "Data.Generic.Rep∷Sum.Inr" == v_S_7_S_290["$ctor"] then + if "Data.Generic.Rep∷Sum.Inr" == v1_S_8_S_291["$ctor"] then + return (M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w({ + eqRecord = function() + return function() return function() return true end end + end + }, nil, { + reflectSymbol = function() return "value" end + }, dictEq), nil, { + reflectSymbol = function() return "right" end + }, M.Golden_GenericEqTwoTypes_Test_eqTree(dictEq)), nil, { + reflectSymbol = function() return "left" end + }, M.Golden_GenericEqTwoTypes_Test_eqTree(dictEq))).eqRecord(M.Type_Proxy_Proxy)(v_S_7_S_290.value0)(v1_S_8_S_291.value0) + else + return false + end + else + return false + end + end + end + })(x)(y) end end } end -M.Golden_GenericEqTwoTypes_Test_eq = M.Data_Eq_eq(M.Golden_GenericEqTwoTypes_Test_eqTree(M.Data_Eq_eqInt)) +M.Golden_GenericEqTwoTypes_Test_eq = (M.Golden_GenericEqTwoTypes_Test_eqTree(M.Data_Eq_eqInt)).eq M.Golden_GenericEqTwoTypes_Test_eqList = function(dictEq) return { eq = function(x) return function(y) - return M.Data_Eq_Generic_genericEq(M.Golden_GenericEqTwoTypes_Test_genericList)(M.Golden_GenericEqTwoTypes_Test_genericEqSum(M.Data_Eq_Generic_genericEqConstructor(M.Data_Eq_Generic_genericEqArgument(M.Golden_GenericEqTwoTypes_Test_eqRec(M.Data_Eq_eqRowCons_S_w(M.Golden_GenericEqTwoTypes_Test_eqRowCons({ - reflectSymbol = function() return "tail" end - })(M.Golden_GenericEqTwoTypes_Test_eqList(dictEq)), nil, { - reflectSymbol = function() return "head" end - }, dictEq))))))(x)(y) + return (function() + local from_S_242 = function(x0_S_246) + if "Golden.GenericEqTwoTypes.Test∷List.Nil" == x0_S_246["$ctor"] then + return M.Data_Generic_Rep_Inl(M.Data_Generic_Rep_NoArguments) + elseif "Golden.GenericEqTwoTypes.Test∷List.Cons" == x0_S_246["$ctor"] then + return M.Data_Generic_Rep_Inr(x0_S_246.value0) + else + return error("No patterns matched") + end + end + return function(dictGenericEq_S_243) + return function(x_S_244) + return function(y_S_245) + return dictGenericEq_S_243.genericEqPrime(from_S_242(x_S_244))(from_S_242(y_S_245)) + end + end + end + end)()({ + genericEqPrime = function(v_S_7_S_261) + return function(v1_S_8_S_262) + if "Data.Generic.Rep∷Sum.Inl" == v_S_7_S_261["$ctor"] then + return "Data.Generic.Rep∷Sum.Inl" == v1_S_8_S_262["$ctor"] + elseif "Data.Generic.Rep∷Sum.Inr" == v_S_7_S_261["$ctor"] then + if "Data.Generic.Rep∷Sum.Inr" == v1_S_8_S_262["$ctor"] then + return (M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w({ + eqRecord = function() + return function() return function() return true end end + end + }, nil, { + reflectSymbol = function() return "tail" end + }, M.Golden_GenericEqTwoTypes_Test_eqList(dictEq)), nil, { + reflectSymbol = function() return "head" end + }, dictEq)).eqRecord(M.Type_Proxy_Proxy)(v_S_7_S_261.value0)(v1_S_8_S_262.value0) + else + return false + end + else + return false + end + end + end + })(x)(y) end end } end -M.Golden_GenericEqTwoTypes_Test_eq1 = M.Data_Eq_eq(M.Golden_GenericEqTwoTypes_Test_eqList(M.Data_Eq_eqInt)) +M.Golden_GenericEqTwoTypes_Test_eq1 = (M.Golden_GenericEqTwoTypes_Test_eqList(M.Data_Eq_eqInt)).eq M.Golden_GenericEqTwoTypes_Test_cons_S_w = function(head, tail) return M.Golden_GenericEqTwoTypes_Test_Cons({ head = head, tail = tail }) end return (function() - local Golden_GenericEqTwoTypes_Test_Leaf, Golden_GenericEqTwoTypes_Test_cons_S_w, Golden_GenericEqTwoTypes_Test_node_S_w, Golden_GenericEqTwoTypes_Test_Nil, Golden_GenericEqTwoTypes_Test_logShow, Golden_GenericEqTwoTypes_Test_eq, Golden_GenericEqTwoTypes_Test_eq1 = M.Golden_GenericEqTwoTypes_Test_Leaf, M.Golden_GenericEqTwoTypes_Test_cons_S_w, M.Golden_GenericEqTwoTypes_Test_node_S_w, M.Golden_GenericEqTwoTypes_Test_Nil, M.Golden_GenericEqTwoTypes_Test_logShow, M.Golden_GenericEqTwoTypes_Test_eq, M.Golden_GenericEqTwoTypes_Test_eq1 - local _ = Golden_GenericEqTwoTypes_Test_logShow(Golden_GenericEqTwoTypes_Test_eq1(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil)))(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil))))() - local _ = Golden_GenericEqTwoTypes_Test_logShow(Golden_GenericEqTwoTypes_Test_eq1(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_Nil))(Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil)))() - local _ = Golden_GenericEqTwoTypes_Test_logShow(Golden_GenericEqTwoTypes_Test_eq(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf)))(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf))))() - return Golden_GenericEqTwoTypes_Test_logShow(Golden_GenericEqTwoTypes_Test_eq(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_Leaf))(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf)))() + local Golden_GenericEqTwoTypes_Test_Leaf, Golden_GenericEqTwoTypes_Test_cons_S_w, Golden_GenericEqTwoTypes_Test_node_S_w, Effect_Console_foreign, Golden_GenericEqTwoTypes_Test_Nil, Golden_GenericEqTwoTypes_Test_eq, Golden_GenericEqTwoTypes_Test_eq1 = M.Golden_GenericEqTwoTypes_Test_Leaf, M.Golden_GenericEqTwoTypes_Test_cons_S_w, M.Golden_GenericEqTwoTypes_Test_node_S_w, M.Effect_Console_foreign, M.Golden_GenericEqTwoTypes_Test_Nil, M.Golden_GenericEqTwoTypes_Test_eq, M.Golden_GenericEqTwoTypes_Test_eq1 + local _ = (function() + local a_S_2_S_314 = Golden_GenericEqTwoTypes_Test_eq1(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil)))(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil))) + return Effect_Console_foreign.log((function() + if a_S_2_S_314 then + return "true" + elseif false == a_S_2_S_314 then + return "false" + else + return error("No patterns matched") + end + end)()) + end)()() + local _ = (function() + local a_S_2_S_315 = Golden_GenericEqTwoTypes_Test_eq1(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_Nil))(Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil)) + return Effect_Console_foreign.log((function() + if a_S_2_S_315 then + return "true" + elseif false == a_S_2_S_315 then + return "false" + else + return error("No patterns matched") + end + end)()) + end)()() + local _ = (function() + local a_S_2_S_316 = Golden_GenericEqTwoTypes_Test_eq(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf)))(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf))) + return Effect_Console_foreign.log((function() + if a_S_2_S_316 then + return "true" + elseif false == a_S_2_S_316 then + return "false" + else + return error("No patterns matched") + end + end)()) + end)()() + return (function() + local a_S_2_S_317 = Golden_GenericEqTwoTypes_Test_eq(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_Leaf))(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf)) + return Effect_Console_foreign.log((function() + if a_S_2_S_317 then + return "true" + elseif false == a_S_2_S_317 then + return "false" + else + return error("No patterns matched") + end + end)()) + end)()() end)() diff --git a/test/ps/output/Golden.HelloPrelude.Test/golden.ir b/test/ps/output/Golden.HelloPrelude.Test/golden.ir index cae7c739..1e44bd57 100644 --- a/test/ps/output/Golden.HelloPrelude.Test/golden.ir +++ b/test/ps/output/Golden.HelloPrelude.Test/golden.ir @@ -12,12 +12,6 @@ UberModule }, ForeignImport Nothing ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) ), RecursiveGroup ( ( QName @@ -101,16 +95,11 @@ UberModule ( PropName "apply" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] + ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( PropName "pure" ) ) ( Ref Nothing ( Local ( Name "f$23" ) ) :| [] ) :| [] ) @@ -170,13 +159,7 @@ UberModule ( AbsN Nothing ( ParamNamed Nothing ( Name "a'$10" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -192,8 +175,9 @@ UberModule ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$9" ) ) ) @@ -225,9 +209,9 @@ UberModule ], uberModuleForeigns = [], uberModuleExports = [ ( Name "main", AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( PropName "pure" ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) diff --git a/test/ps/output/Golden.HelloPrelude.Test/golden.lua b/test/ps/output/Golden.HelloPrelude.Test/golden.lua index c7d7b9f6..e244bbfe 100644 --- a/test/ps/output/Golden.HelloPrelude.Test/golden.lua +++ b/test/ps/output/Golden.HelloPrelude.Test/golden.lua @@ -24,7 +24,6 @@ M.Effect_foreign = { return function(f) return function() return f(a())() end end end } -M.Control_Applicative_pure = function(dict) return dict.pure end M.Effect_monadEffect = { Applicative0 = function() return M.Effect_applicativeEffect end, Bind1 = function() return M.Effect_bindEffect end @@ -42,7 +41,7 @@ M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() map = function(f_S_23) return function(a_S_24) local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_23))(a_S_24) + return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_23))(a_S_24) end end } @@ -55,7 +54,7 @@ M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() return function(a_S_8) return bind_S_5(f_S_7)(function(fPrime_S_9) return bind_S_5(a_S_8)(function(aPrime_S_10) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_9(aPrime_S_10)) + return (M.Effect_monadEffect.Applicative0()).pure(fPrime_S_9(aPrime_S_10)) end) end) end @@ -64,6 +63,4 @@ M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() Functor0 = function() return M.Effect_Lazy_functorEffect(0) end } end) -return { - main = M.Control_Applicative_pure(M.Effect_applicativeEffect)(M.Data_Unit_foreign.unit) -} +return { main = M.Effect_applicativeEffect.pure(M.Data_Unit_foreign.unit) } diff --git a/test/ps/output/Golden.Issue37.Test/golden.ir b/test/ps/output/Golden.Issue37.Test/golden.ir index d383590f..e5b4de9a 100644 --- a/test/ps/output/Golden.Issue37.Test/golden.ir +++ b/test/ps/output/Golden.Issue37.Test/golden.ir @@ -12,17 +12,6 @@ UberModule }, ForeignImport Nothing ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( ( QName @@ -106,16 +95,11 @@ UberModule ( PropName "apply" ) ) ( AppN Nothing - ( AppN Nothing + ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] + ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( PropName "pure" ) ) ( Ref Nothing ( Local ( Name "f$32" ) ) :| [] ) :| [] ) @@ -141,8 +125,7 @@ UberModule [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$11", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + ( Nothing, Name "bind$11", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -152,8 +135,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) :| [] ) ( AbsN Nothing @@ -175,13 +159,7 @@ UberModule ( AbsN Nothing ( ParamNamed Nothing ( Name "a'$16" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -197,8 +175,9 @@ UberModule ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$15" ) ) ) @@ -226,15 +205,6 @@ UberModule ) ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Issue37.Test", qnameName = Name "discard" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictBind$17$219" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "dictBind$17$219" ) ) :| [] ) - ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -249,17 +219,15 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) :| [ Standalone - ( Nothing, Name "pure$4", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) + ( Nothing, Name "pure$4", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) + ( PropName "pure" ) ) ] ) @@ -267,11 +235,9 @@ UberModule ( ParamNamed Nothing ( Name "f$6" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Issue37.Test" ) ( Name "discard" ) ) - ) - ( Ref Nothing ( Local ( Name "Bind1$1" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "Bind1$1" ) ) ) + ( PropName "bind" ) ) ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) ) @@ -279,9 +245,9 @@ UberModule ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "Bind1$1" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "Bind1$1" ) ) ) + ( PropName "bind" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "pure$4" ) ) ) @@ -301,14 +267,9 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "discard1$217", AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.Issue37.Test" ) - ( Name "discard" ) - ) - ) - ( Ref Nothing ( Local ( Name "Bind1$216" ) ) :| [] ) + ( Nothing, Name "discard1$217", ObjectProp Nothing + ( Ref Nothing ( Local ( Name "Bind1$216" ) ) ) + ( PropName "bind" ) ) ] ) @@ -316,11 +277,9 @@ UberModule ( ParamNamed Nothing ( Name "fn1$218" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) - ) - ( Ref Nothing ( Local ( Name "Bind1$216" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "Bind1$216" ) ) ) + ( PropName "bind" ) ) ( Ref Nothing ( Local ( Name "fn1$218" ) ) :| [] ) ) @@ -370,9 +329,9 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( PropName "pure" ) ) ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) diff --git a/test/ps/output/Golden.Issue37.Test/golden.lua b/test/ps/output/Golden.Issue37.Test/golden.lua index db4fc1f8..9aab1dc5 100644 --- a/test/ps/output/Golden.Issue37.Test/golden.lua +++ b/test/ps/output/Golden.Issue37.Test/golden.lua @@ -24,8 +24,6 @@ M.Effect_foreign = { return function(f) return function() return f(a())() end end end } -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end M.Effect_monadEffect = { Applicative0 = function() return M.Effect_applicativeEffect end, Bind1 = function() return M.Effect_bindEffect end @@ -43,7 +41,7 @@ M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() map = function(f_S_32) return function(a_S_33) local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_32))(a_S_33) + return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_32))(a_S_33) end end } @@ -51,12 +49,12 @@ end) M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() return { apply = (function() - local bind_S_11 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) + local bind_S_11 = (M.Effect_monadEffect.Bind1()).bind return function(f_S_13) return function(a_S_14) return bind_S_11(f_S_13)(function(fPrime_S_15) return bind_S_11(a_S_14)(function(aPrime_S_16) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_15(aPrime_S_16)) + return (M.Effect_monadEffect.Applicative0()).pure(fPrime_S_15(aPrime_S_16)) end) end) end @@ -65,22 +63,19 @@ M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() Functor0 = function() return M.Effect_Lazy_functorEffect(0) end } end) -M.Golden_Issue37_Test_discard = function(dictBind_S_17_S_219) - return M.Control_Bind_bind(dictBind_S_17_S_219) -end return { baz = (function() local Effect_monadEffect = M.Effect_monadEffect local Bind1_S_1 = Effect_monadEffect.Bind1() - local pure_S_4 = M.Control_Applicative_pure(Effect_monadEffect.Applicative0()) + local pure_S_4 = (Effect_monadEffect.Applicative0()).pure return function(f_S_6) - return M.Golden_Issue37_Test_discard(Bind1_S_1)(f_S_6)(function() - return M.Control_Bind_bind(Bind1_S_1)(pure_S_4({ + return Bind1_S_1.bind(f_S_6)(function() + return Bind1_S_1.bind(pure_S_4({ [1] = (function() local Bind1_S_216 = M.Effect_monadEffect.Bind1() - local discard1_S_217 = M.Golden_Issue37_Test_discard(Bind1_S_216) + local discard1_S_217 = Bind1_S_216.bind return function(fn1_S_218) - return M.Control_Bind_bind(Bind1_S_216)(fn1_S_218)(function() + return Bind1_S_216.bind(fn1_S_218)(function() return discard1_S_217(fn1_S_218)(function() return discard1_S_217(fn1_S_218)(function() return fn1_S_218 @@ -92,5 +87,5 @@ return { }))(function() return pure_S_4(M.Data_Unit_foreign.unit) end) end) end - end)()(M.Control_Applicative_pure(M.Effect_applicativeEffect)(M.Data_Unit_foreign.unit)) + end)()(M.Effect_applicativeEffect.pure(M.Data_Unit_foreign.unit)) } diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.ir b/test/ps/output/Golden.LongApplyChain.Test/golden.ir index 013372db..8617edb9 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.ir +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.ir @@ -13,16 +13,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "append$w" }, AbsN Nothing ( ParamNamed Nothing @@ -50,115 +40,64 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "functorMaybe" - }, LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( IfThenElse Nothing + { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "applySecond$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "a$131" ) :| [ ParamNamed Nothing ( Name "b$132" ) ] ) + ( AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "v$323", IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$131" ) ) ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$316" ) :| [] ) + ( Ref Nothing ( Local ( Name "x$316" ) ) ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) - ) + ) :| [] ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "applyMaybe" - }, LiteralObject Nothing - [ - ( PropName "apply", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) + ( ParamNamed Nothing ( Name "v1$324" ) :| [] ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$323" ) ) ) ) ) - ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$324" ) ) ) ) + ) ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$323" ) ) ) + ( PropName "value0" ) ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value0" ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$324" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$323" ) ) ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ( Exception Nothing "No patterns matched" ) ) ) ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "applySecond$w" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$131" ) :| [ ParamNamed Nothing ( Name "b$132" ) ] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "applyMaybe" ) ) ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "applyMaybe" ) ) - ) - ( PropName "Functor0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x$316" ) :| [] ) - ( Ref Nothing ( Local ( Name "x$316" ) ) ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$131" ) ) :| [] ) :| [] - ) ) ( Ref Nothing ( Local ( Name "b$132" ) ) :| [] ) ) @@ -167,7 +106,7 @@ UberModule { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$tmp323", AppN Nothing + ( Nothing, Name "$tmp336", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) @@ -777,7 +716,7 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$tmp324", AppN Nothing + ( Nothing, Name "$tmp337", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) @@ -1053,7 +992,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "$tmp323" ) + ( Name "$tmp336" ) ) :| [ AppN Nothing ( Ref Nothing @@ -1407,7 +1346,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp325", AppN Nothing + ( Nothing, Name "$tmp338", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) @@ -1683,7 +1622,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "$tmp324" ) + ( Name "$tmp337" ) ) :| [ AppN Nothing ( Ref Nothing @@ -2037,7 +1976,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp326", AppN Nothing + ( Nothing, Name "$tmp339", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) @@ -2313,7 +2252,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "$tmp325" ) + ( Name "$tmp338" ) ) :| [ AppN Nothing ( Ref Nothing @@ -2667,7 +2606,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp327", AppN Nothing + ( Nothing, Name "$tmp340", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) @@ -2943,7 +2882,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "$tmp326" ) + ( Name "$tmp339" ) ) :| [ AppN Nothing ( Ref Nothing @@ -3297,7 +3236,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp328", AppN Nothing + ( Nothing, Name "$tmp341", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) @@ -3573,7 +3512,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "$tmp327" ) + ( Name "$tmp340" ) ) :| [ AppN Nothing ( Ref Nothing @@ -3927,7 +3866,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp329", AppN Nothing + ( Nothing, Name "$tmp342", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) ) ) @@ -4203,7 +4142,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "$tmp328" ) + ( Name "$tmp341" ) ) :| [ AppN Nothing ( Ref Nothing @@ -4688,7 +4627,7 @@ UberModule ) ) ( Ref Nothing - ( Local ( Name "$tmp329" ) ) :| + ( Local ( Name "$tmp342" ) ) :| [ AppN Nothing ( Ref Nothing ( Imported @@ -4842,65 +4781,47 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "compute" ) ) + ) + ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$20$322" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$20$322" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) - ( LiteralString Nothing "(Just " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$20$322" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$20$322" ) ) ) ) - ) - ( LiteralString Nothing "Nothing" ) - ( Exception Nothing "No patterns matched" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Just " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "compute" ) ) + ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] ) - ] :| [] + ] ) ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "compute" ) ) :| [] + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "compute" ) ) + ) + ) + ) + ( LiteralString Nothing "Nothing" ) + ( Exception Nothing "No patterns matched" ) ) :| [] ) ) diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.lua b/test/ps/output/Golden.LongApplyChain.Test/golden.lua index 6a98dfa4..0b7bba27 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.lua +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.lua @@ -3,8 +3,6 @@ M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Show_show = function(dict) return dict.show end -M.Data_Functor_map = function(dict) return dict.map end M.Data_Maybe_append_S_w = function(s1_S_295_S_314, s2_S_296_S_315) return s1_S_295_S_314 .. s2_S_296_S_315 end @@ -12,58 +10,47 @@ M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } M.Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Data_Maybe_functorMaybe = { - map = function(v) - return function(v1) - if "Data.Maybe∷Maybe.Just" == v1["$ctor"] then - return M.Data_Maybe_Just(v(v1.value0)) +M.Golden_LongApplyChain_Test_applySecond_S_w = function(a_S_131, b_S_132) + return (function() + local v_S_323 = (function() + if "Data.Maybe∷Maybe.Just" == a_S_131["$ctor"] then + return M.Data_Maybe_Just(function(x_S_316) return x_S_316 end) else return M.Data_Maybe_Nothing end - end - end -} -M.Data_Maybe_applyMaybe = { - apply = function(v) - return function(v1) - if "Data.Maybe∷Maybe.Just" == v["$ctor"] then - return M.Data_Functor_map(M.Data_Maybe_functorMaybe)(v.value0)(v1) - elseif "Data.Maybe∷Maybe.Nothing" == v["$ctor"] then + end)() + return function(v1_S_324) + if "Data.Maybe∷Maybe.Just" == v_S_323["$ctor"] then + if "Data.Maybe∷Maybe.Just" == v1_S_324["$ctor"] then + return M.Data_Maybe_Just(v_S_323.value0(v1_S_324.value0)) + else + return M.Data_Maybe_Nothing + end + elseif "Data.Maybe∷Maybe.Nothing" == v_S_323["$ctor"] then return M.Data_Maybe_Nothing else return error("No patterns matched") end end - end, - Functor0 = function() return M.Data_Maybe_functorMaybe end -} -M.Golden_LongApplyChain_Test_applySecond_S_w = function(a_S_131, b_S_132) - local Data_Maybe_applyMaybe = M.Data_Maybe_applyMaybe - return Data_Maybe_applyMaybe.apply(M.Data_Functor_map(Data_Maybe_applyMaybe.Functor0())(function( ) - return function(x_S_316) return x_S_316 end - end)(a_S_131))(b_S_132) + end)()(b_S_132) end M.Golden_LongApplyChain_Test_compute = (function() local Data_Maybe_Just, Golden_LongApplyChain_Test_applySecond_S_w = M.Data_Maybe_Just, M.Golden_LongApplyChain_Test_applySecond_S_w - local _S_tmp323 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Data_Maybe_Just(1), Data_Maybe_Just(2)), Data_Maybe_Just(3)), Data_Maybe_Just(4)), Data_Maybe_Just(5)), Data_Maybe_Just(6)), Data_Maybe_Just(7)), Data_Maybe_Just(8)), Data_Maybe_Just(9)), Data_Maybe_Just(10)), Data_Maybe_Just(11)), Data_Maybe_Just(12)), Data_Maybe_Just(13)), Data_Maybe_Just(14)), Data_Maybe_Just(15)), Data_Maybe_Just(16)), Data_Maybe_Just(17)), Data_Maybe_Just(18)), Data_Maybe_Just(19)), Data_Maybe_Just(20)), Data_Maybe_Just(21)), Data_Maybe_Just(22)), Data_Maybe_Just(23)), Data_Maybe_Just(24)), Data_Maybe_Just(25)), Data_Maybe_Just(26)), Data_Maybe_Just(27)), Data_Maybe_Just(28)), Data_Maybe_Just(29)), Data_Maybe_Just(30)), Data_Maybe_Just(31)), Data_Maybe_Just(32)), Data_Maybe_Just(33)), Data_Maybe_Just(34)), Data_Maybe_Just(35)), Data_Maybe_Just(36)), Data_Maybe_Just(37)), Data_Maybe_Just(38)), Data_Maybe_Just(39)), Data_Maybe_Just(40)) - local _S_tmp324 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp323, Data_Maybe_Just(41)), Data_Maybe_Just(42)), Data_Maybe_Just(43)), Data_Maybe_Just(44)), Data_Maybe_Just(45)), Data_Maybe_Just(46)), Data_Maybe_Just(47)), Data_Maybe_Just(48)), Data_Maybe_Just(49)), Data_Maybe_Just(50)), Data_Maybe_Just(51)), Data_Maybe_Just(52)), Data_Maybe_Just(53)), Data_Maybe_Just(54)), Data_Maybe_Just(55)), Data_Maybe_Just(56)), Data_Maybe_Just(57)), Data_Maybe_Just(58)), Data_Maybe_Just(59)), Data_Maybe_Just(60)), Data_Maybe_Just(61)), Data_Maybe_Just(62)), Data_Maybe_Just(63)), Data_Maybe_Just(64)), Data_Maybe_Just(65)), Data_Maybe_Just(66)), Data_Maybe_Just(67)), Data_Maybe_Just(68)), Data_Maybe_Just(69)), Data_Maybe_Just(70)), Data_Maybe_Just(71)), Data_Maybe_Just(72)), Data_Maybe_Just(73)), Data_Maybe_Just(74)), Data_Maybe_Just(75)), Data_Maybe_Just(76)), Data_Maybe_Just(77)), Data_Maybe_Just(78)), Data_Maybe_Just(79)), Data_Maybe_Just(80)) - local _S_tmp325 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp324, Data_Maybe_Just(81)), Data_Maybe_Just(82)), Data_Maybe_Just(83)), Data_Maybe_Just(84)), Data_Maybe_Just(85)), Data_Maybe_Just(86)), Data_Maybe_Just(87)), Data_Maybe_Just(88)), Data_Maybe_Just(89)), Data_Maybe_Just(90)), Data_Maybe_Just(91)), Data_Maybe_Just(92)), Data_Maybe_Just(93)), Data_Maybe_Just(94)), Data_Maybe_Just(95)), Data_Maybe_Just(96)), Data_Maybe_Just(97)), Data_Maybe_Just(98)), Data_Maybe_Just(99)), Data_Maybe_Just(100)), Data_Maybe_Just(101)), Data_Maybe_Just(102)), Data_Maybe_Just(103)), Data_Maybe_Just(104)), Data_Maybe_Just(105)), Data_Maybe_Just(106)), Data_Maybe_Just(107)), Data_Maybe_Just(108)), Data_Maybe_Just(109)), Data_Maybe_Just(110)), Data_Maybe_Just(111)), Data_Maybe_Just(112)), Data_Maybe_Just(113)), Data_Maybe_Just(114)), Data_Maybe_Just(115)), Data_Maybe_Just(116)), Data_Maybe_Just(117)), Data_Maybe_Just(118)), Data_Maybe_Just(119)), Data_Maybe_Just(120)) - local _S_tmp326 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp325, Data_Maybe_Just(121)), Data_Maybe_Just(122)), Data_Maybe_Just(123)), Data_Maybe_Just(124)), Data_Maybe_Just(125)), Data_Maybe_Just(126)), Data_Maybe_Just(127)), Data_Maybe_Just(128)), Data_Maybe_Just(129)), Data_Maybe_Just(130)), Data_Maybe_Just(131)), Data_Maybe_Just(132)), Data_Maybe_Just(133)), Data_Maybe_Just(134)), Data_Maybe_Just(135)), Data_Maybe_Just(136)), Data_Maybe_Just(137)), Data_Maybe_Just(138)), Data_Maybe_Just(139)), Data_Maybe_Just(140)), Data_Maybe_Just(141)), Data_Maybe_Just(142)), Data_Maybe_Just(143)), Data_Maybe_Just(144)), Data_Maybe_Just(145)), Data_Maybe_Just(146)), Data_Maybe_Just(147)), Data_Maybe_Just(148)), Data_Maybe_Just(149)), Data_Maybe_Just(150)), Data_Maybe_Just(151)), Data_Maybe_Just(152)), Data_Maybe_Just(153)), Data_Maybe_Just(154)), Data_Maybe_Just(155)), Data_Maybe_Just(156)), Data_Maybe_Just(157)), Data_Maybe_Just(158)), Data_Maybe_Just(159)), Data_Maybe_Just(160)) - local _S_tmp327 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp326, Data_Maybe_Just(161)), Data_Maybe_Just(162)), Data_Maybe_Just(163)), Data_Maybe_Just(164)), Data_Maybe_Just(165)), Data_Maybe_Just(166)), Data_Maybe_Just(167)), Data_Maybe_Just(168)), Data_Maybe_Just(169)), Data_Maybe_Just(170)), Data_Maybe_Just(171)), Data_Maybe_Just(172)), Data_Maybe_Just(173)), Data_Maybe_Just(174)), Data_Maybe_Just(175)), Data_Maybe_Just(176)), Data_Maybe_Just(177)), Data_Maybe_Just(178)), Data_Maybe_Just(179)), Data_Maybe_Just(180)), Data_Maybe_Just(181)), Data_Maybe_Just(182)), Data_Maybe_Just(183)), Data_Maybe_Just(184)), Data_Maybe_Just(185)), Data_Maybe_Just(186)), Data_Maybe_Just(187)), Data_Maybe_Just(188)), Data_Maybe_Just(189)), Data_Maybe_Just(190)), Data_Maybe_Just(191)), Data_Maybe_Just(192)), Data_Maybe_Just(193)), Data_Maybe_Just(194)), Data_Maybe_Just(195)), Data_Maybe_Just(196)), Data_Maybe_Just(197)), Data_Maybe_Just(198)), Data_Maybe_Just(199)), Data_Maybe_Just(200)) - local _S_tmp328 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp327, Data_Maybe_Just(201)), Data_Maybe_Just(202)), Data_Maybe_Just(203)), Data_Maybe_Just(204)), Data_Maybe_Just(205)), Data_Maybe_Just(206)), Data_Maybe_Just(207)), Data_Maybe_Just(208)), Data_Maybe_Just(209)), Data_Maybe_Just(210)), Data_Maybe_Just(211)), Data_Maybe_Just(212)), Data_Maybe_Just(213)), Data_Maybe_Just(214)), Data_Maybe_Just(215)), Data_Maybe_Just(216)), Data_Maybe_Just(217)), Data_Maybe_Just(218)), Data_Maybe_Just(219)), Data_Maybe_Just(220)), Data_Maybe_Just(221)), Data_Maybe_Just(222)), Data_Maybe_Just(223)), Data_Maybe_Just(224)), Data_Maybe_Just(225)), Data_Maybe_Just(226)), Data_Maybe_Just(227)), Data_Maybe_Just(228)), Data_Maybe_Just(229)), Data_Maybe_Just(230)), Data_Maybe_Just(231)), Data_Maybe_Just(232)), Data_Maybe_Just(233)), Data_Maybe_Just(234)), Data_Maybe_Just(235)), Data_Maybe_Just(236)), Data_Maybe_Just(237)), Data_Maybe_Just(238)), Data_Maybe_Just(239)), Data_Maybe_Just(240)) - local _S_tmp329 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp328, Data_Maybe_Just(241)), Data_Maybe_Just(242)), Data_Maybe_Just(243)), Data_Maybe_Just(244)), Data_Maybe_Just(245)), Data_Maybe_Just(246)), Data_Maybe_Just(247)), Data_Maybe_Just(248)), Data_Maybe_Just(249)), Data_Maybe_Just(250)), Data_Maybe_Just(251)), Data_Maybe_Just(252)), Data_Maybe_Just(253)), Data_Maybe_Just(254)), Data_Maybe_Just(255)), Data_Maybe_Just(256)), Data_Maybe_Just(257)), Data_Maybe_Just(258)), Data_Maybe_Just(259)), Data_Maybe_Just(260)), Data_Maybe_Just(261)), Data_Maybe_Just(262)), Data_Maybe_Just(263)), Data_Maybe_Just(264)), Data_Maybe_Just(265)), Data_Maybe_Just(266)), Data_Maybe_Just(267)), Data_Maybe_Just(268)), Data_Maybe_Just(269)), Data_Maybe_Just(270)), Data_Maybe_Just(271)), Data_Maybe_Just(272)), Data_Maybe_Just(273)), Data_Maybe_Just(274)), Data_Maybe_Just(275)), Data_Maybe_Just(276)), Data_Maybe_Just(277)), Data_Maybe_Just(278)), Data_Maybe_Just(279)), Data_Maybe_Just(280)) - return Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp329, Data_Maybe_Just(281)), Data_Maybe_Just(282)), Data_Maybe_Just(283)), Data_Maybe_Just(284)), Data_Maybe_Just(285)), Data_Maybe_Just(286)), Data_Maybe_Just(287)), Data_Maybe_Just(288)), Data_Maybe_Just(289)), Data_Maybe_Just(290)), Data_Maybe_Just(291)), Data_Maybe_Just(292)), Data_Maybe_Just(293)), Data_Maybe_Just(294)), Data_Maybe_Just(295)), Data_Maybe_Just(296)), Data_Maybe_Just(297)), Data_Maybe_Just(298)), Data_Maybe_Just(299)), Data_Maybe_Just(300)) + local _S_tmp336 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Data_Maybe_Just(1), Data_Maybe_Just(2)), Data_Maybe_Just(3)), Data_Maybe_Just(4)), Data_Maybe_Just(5)), Data_Maybe_Just(6)), Data_Maybe_Just(7)), Data_Maybe_Just(8)), Data_Maybe_Just(9)), Data_Maybe_Just(10)), Data_Maybe_Just(11)), Data_Maybe_Just(12)), Data_Maybe_Just(13)), Data_Maybe_Just(14)), Data_Maybe_Just(15)), Data_Maybe_Just(16)), Data_Maybe_Just(17)), Data_Maybe_Just(18)), Data_Maybe_Just(19)), Data_Maybe_Just(20)), Data_Maybe_Just(21)), Data_Maybe_Just(22)), Data_Maybe_Just(23)), Data_Maybe_Just(24)), Data_Maybe_Just(25)), Data_Maybe_Just(26)), Data_Maybe_Just(27)), Data_Maybe_Just(28)), Data_Maybe_Just(29)), Data_Maybe_Just(30)), Data_Maybe_Just(31)), Data_Maybe_Just(32)), Data_Maybe_Just(33)), Data_Maybe_Just(34)), Data_Maybe_Just(35)), Data_Maybe_Just(36)), Data_Maybe_Just(37)), Data_Maybe_Just(38)), Data_Maybe_Just(39)), Data_Maybe_Just(40)) + local _S_tmp337 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp336, Data_Maybe_Just(41)), Data_Maybe_Just(42)), Data_Maybe_Just(43)), Data_Maybe_Just(44)), Data_Maybe_Just(45)), Data_Maybe_Just(46)), Data_Maybe_Just(47)), Data_Maybe_Just(48)), Data_Maybe_Just(49)), Data_Maybe_Just(50)), Data_Maybe_Just(51)), Data_Maybe_Just(52)), Data_Maybe_Just(53)), Data_Maybe_Just(54)), Data_Maybe_Just(55)), Data_Maybe_Just(56)), Data_Maybe_Just(57)), Data_Maybe_Just(58)), Data_Maybe_Just(59)), Data_Maybe_Just(60)), Data_Maybe_Just(61)), Data_Maybe_Just(62)), Data_Maybe_Just(63)), Data_Maybe_Just(64)), Data_Maybe_Just(65)), Data_Maybe_Just(66)), Data_Maybe_Just(67)), Data_Maybe_Just(68)), Data_Maybe_Just(69)), Data_Maybe_Just(70)), Data_Maybe_Just(71)), Data_Maybe_Just(72)), Data_Maybe_Just(73)), Data_Maybe_Just(74)), Data_Maybe_Just(75)), Data_Maybe_Just(76)), Data_Maybe_Just(77)), Data_Maybe_Just(78)), Data_Maybe_Just(79)), Data_Maybe_Just(80)) + local _S_tmp338 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp337, Data_Maybe_Just(81)), Data_Maybe_Just(82)), Data_Maybe_Just(83)), Data_Maybe_Just(84)), Data_Maybe_Just(85)), Data_Maybe_Just(86)), Data_Maybe_Just(87)), Data_Maybe_Just(88)), Data_Maybe_Just(89)), Data_Maybe_Just(90)), Data_Maybe_Just(91)), Data_Maybe_Just(92)), Data_Maybe_Just(93)), Data_Maybe_Just(94)), Data_Maybe_Just(95)), Data_Maybe_Just(96)), Data_Maybe_Just(97)), Data_Maybe_Just(98)), Data_Maybe_Just(99)), Data_Maybe_Just(100)), Data_Maybe_Just(101)), Data_Maybe_Just(102)), Data_Maybe_Just(103)), Data_Maybe_Just(104)), Data_Maybe_Just(105)), Data_Maybe_Just(106)), Data_Maybe_Just(107)), Data_Maybe_Just(108)), Data_Maybe_Just(109)), Data_Maybe_Just(110)), Data_Maybe_Just(111)), Data_Maybe_Just(112)), Data_Maybe_Just(113)), Data_Maybe_Just(114)), Data_Maybe_Just(115)), Data_Maybe_Just(116)), Data_Maybe_Just(117)), Data_Maybe_Just(118)), Data_Maybe_Just(119)), Data_Maybe_Just(120)) + local _S_tmp339 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp338, Data_Maybe_Just(121)), Data_Maybe_Just(122)), Data_Maybe_Just(123)), Data_Maybe_Just(124)), Data_Maybe_Just(125)), Data_Maybe_Just(126)), Data_Maybe_Just(127)), Data_Maybe_Just(128)), Data_Maybe_Just(129)), Data_Maybe_Just(130)), Data_Maybe_Just(131)), Data_Maybe_Just(132)), Data_Maybe_Just(133)), Data_Maybe_Just(134)), Data_Maybe_Just(135)), Data_Maybe_Just(136)), Data_Maybe_Just(137)), Data_Maybe_Just(138)), Data_Maybe_Just(139)), Data_Maybe_Just(140)), Data_Maybe_Just(141)), Data_Maybe_Just(142)), Data_Maybe_Just(143)), Data_Maybe_Just(144)), Data_Maybe_Just(145)), Data_Maybe_Just(146)), Data_Maybe_Just(147)), Data_Maybe_Just(148)), Data_Maybe_Just(149)), Data_Maybe_Just(150)), Data_Maybe_Just(151)), Data_Maybe_Just(152)), Data_Maybe_Just(153)), Data_Maybe_Just(154)), Data_Maybe_Just(155)), Data_Maybe_Just(156)), Data_Maybe_Just(157)), Data_Maybe_Just(158)), Data_Maybe_Just(159)), Data_Maybe_Just(160)) + local _S_tmp340 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp339, Data_Maybe_Just(161)), Data_Maybe_Just(162)), Data_Maybe_Just(163)), Data_Maybe_Just(164)), Data_Maybe_Just(165)), Data_Maybe_Just(166)), Data_Maybe_Just(167)), Data_Maybe_Just(168)), Data_Maybe_Just(169)), Data_Maybe_Just(170)), Data_Maybe_Just(171)), Data_Maybe_Just(172)), Data_Maybe_Just(173)), Data_Maybe_Just(174)), Data_Maybe_Just(175)), Data_Maybe_Just(176)), Data_Maybe_Just(177)), Data_Maybe_Just(178)), Data_Maybe_Just(179)), Data_Maybe_Just(180)), Data_Maybe_Just(181)), Data_Maybe_Just(182)), Data_Maybe_Just(183)), Data_Maybe_Just(184)), Data_Maybe_Just(185)), Data_Maybe_Just(186)), Data_Maybe_Just(187)), Data_Maybe_Just(188)), Data_Maybe_Just(189)), Data_Maybe_Just(190)), Data_Maybe_Just(191)), Data_Maybe_Just(192)), Data_Maybe_Just(193)), Data_Maybe_Just(194)), Data_Maybe_Just(195)), Data_Maybe_Just(196)), Data_Maybe_Just(197)), Data_Maybe_Just(198)), Data_Maybe_Just(199)), Data_Maybe_Just(200)) + local _S_tmp341 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp340, Data_Maybe_Just(201)), Data_Maybe_Just(202)), Data_Maybe_Just(203)), Data_Maybe_Just(204)), Data_Maybe_Just(205)), Data_Maybe_Just(206)), Data_Maybe_Just(207)), Data_Maybe_Just(208)), Data_Maybe_Just(209)), Data_Maybe_Just(210)), Data_Maybe_Just(211)), Data_Maybe_Just(212)), Data_Maybe_Just(213)), Data_Maybe_Just(214)), Data_Maybe_Just(215)), Data_Maybe_Just(216)), Data_Maybe_Just(217)), Data_Maybe_Just(218)), Data_Maybe_Just(219)), Data_Maybe_Just(220)), Data_Maybe_Just(221)), Data_Maybe_Just(222)), Data_Maybe_Just(223)), Data_Maybe_Just(224)), Data_Maybe_Just(225)), Data_Maybe_Just(226)), Data_Maybe_Just(227)), Data_Maybe_Just(228)), Data_Maybe_Just(229)), Data_Maybe_Just(230)), Data_Maybe_Just(231)), Data_Maybe_Just(232)), Data_Maybe_Just(233)), Data_Maybe_Just(234)), Data_Maybe_Just(235)), Data_Maybe_Just(236)), Data_Maybe_Just(237)), Data_Maybe_Just(238)), Data_Maybe_Just(239)), Data_Maybe_Just(240)) + local _S_tmp342 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp341, Data_Maybe_Just(241)), Data_Maybe_Just(242)), Data_Maybe_Just(243)), Data_Maybe_Just(244)), Data_Maybe_Just(245)), Data_Maybe_Just(246)), Data_Maybe_Just(247)), Data_Maybe_Just(248)), Data_Maybe_Just(249)), Data_Maybe_Just(250)), Data_Maybe_Just(251)), Data_Maybe_Just(252)), Data_Maybe_Just(253)), Data_Maybe_Just(254)), Data_Maybe_Just(255)), Data_Maybe_Just(256)), Data_Maybe_Just(257)), Data_Maybe_Just(258)), Data_Maybe_Just(259)), Data_Maybe_Just(260)), Data_Maybe_Just(261)), Data_Maybe_Just(262)), Data_Maybe_Just(263)), Data_Maybe_Just(264)), Data_Maybe_Just(265)), Data_Maybe_Just(266)), Data_Maybe_Just(267)), Data_Maybe_Just(268)), Data_Maybe_Just(269)), Data_Maybe_Just(270)), Data_Maybe_Just(271)), Data_Maybe_Just(272)), Data_Maybe_Just(273)), Data_Maybe_Just(274)), Data_Maybe_Just(275)), Data_Maybe_Just(276)), Data_Maybe_Just(277)), Data_Maybe_Just(278)), Data_Maybe_Just(279)), Data_Maybe_Just(280)) + return Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp342, Data_Maybe_Just(281)), Data_Maybe_Just(282)), Data_Maybe_Just(283)), Data_Maybe_Just(284)), Data_Maybe_Just(285)), Data_Maybe_Just(286)), Data_Maybe_Just(287)), Data_Maybe_Just(288)), Data_Maybe_Just(289)), Data_Maybe_Just(290)), Data_Maybe_Just(291)), Data_Maybe_Just(292)), Data_Maybe_Just(293)), Data_Maybe_Just(294)), Data_Maybe_Just(295)), Data_Maybe_Just(296)), Data_Maybe_Just(297)), Data_Maybe_Just(298)), Data_Maybe_Just(299)), Data_Maybe_Just(300)) end)() -return M.Effect_Console_foreign.log(M.Data_Show_show({ - show = function(v_S_20_S_322) - if "Data.Maybe∷Maybe.Just" == v_S_20_S_322["$ctor"] then - return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showIntImpl - })(v_S_20_S_322.value0), ")")) - elseif "Data.Maybe∷Maybe.Nothing" == v_S_20_S_322["$ctor"] then - return "Nothing" - else - return error("No patterns matched") - end +return M.Effect_Console_foreign.log((function() + if "Data.Maybe∷Maybe.Just" == M.Golden_LongApplyChain_Test_compute["$ctor"] then + return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongApplyChain_Test_compute.value0), ")")) + elseif "Data.Maybe∷Maybe.Nothing" == M.Golden_LongApplyChain_Test_compute["$ctor"] then + return "Nothing" + else + return error("No patterns matched") end -})(M.Golden_LongApplyChain_Test_compute))() +end)())() diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir index 9a6e2497..4eb242ae 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir @@ -13,11 +13,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "append$w" }, AbsN Nothing ( ParamNamed Nothing @@ -83,7 +78,7 @@ UberModule { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$tmp322", AppN Nothing + ( Nothing, Name "$tmp324", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) @@ -624,7 +619,7 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$tmp323", AppN Nothing + ( Nothing, Name "$tmp325", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) @@ -1094,7 +1089,7 @@ UberModule ) :| [ Ref Nothing ( Local - ( Name "$tmp322" ) + ( Name "$tmp324" ) ) ] ) @@ -1177,7 +1172,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp324", AppN Nothing + ( Nothing, Name "$tmp326", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) @@ -1647,7 +1642,7 @@ UberModule ) :| [ Ref Nothing ( Local - ( Name "$tmp323" ) + ( Name "$tmp325" ) ) ] ) @@ -1730,7 +1725,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp325", AppN Nothing + ( Nothing, Name "$tmp327", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) @@ -2200,7 +2195,7 @@ UberModule ) :| [ Ref Nothing ( Local - ( Name "$tmp324" ) + ( Name "$tmp326" ) ) ] ) @@ -2283,7 +2278,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp326", AppN Nothing + ( Nothing, Name "$tmp328", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) @@ -2753,7 +2748,7 @@ UberModule ) :| [ Ref Nothing ( Local - ( Name "$tmp325" ) + ( Name "$tmp327" ) ) ] ) @@ -2836,7 +2831,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp327", AppN Nothing + ( Nothing, Name "$tmp329", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) @@ -3306,7 +3301,7 @@ UberModule ) :| [ Ref Nothing ( Local - ( Name "$tmp326" ) + ( Name "$tmp328" ) ) ] ) @@ -3389,7 +3384,7 @@ UberModule ] ) ), Standalone - ( Nothing, Name "$tmp328", AppN Nothing + ( Nothing, Name "$tmp330", AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) ) ) @@ -3859,7 +3854,7 @@ UberModule ) :| [ Ref Nothing ( Local - ( Name "$tmp327" ) + ( Name "$tmp329" ) ) ] ) @@ -4180,7 +4175,7 @@ UberModule ) :| [ Ref Nothing ( Local - ( Name "$tmp328" ) + ( Name "$tmp330" ) ) ] ) @@ -4239,65 +4234,47 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "compute" ) ) + ) + ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$16$321" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$16$321" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) - ( LiteralString Nothing "(Just " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$16$321" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$16$321" ) ) ) ) - ) - ( LiteralString Nothing "Nothing" ) - ( Exception Nothing "No patterns matched" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Just " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "compute" ) ) + ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] ) - ] :| [] + ] ) ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "compute" ) ) :| [] + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "compute" ) ) + ) + ) + ) + ( LiteralString Nothing "Nothing" ) + ( Exception Nothing "No patterns matched" ) ) :| [] ) ) diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.lua b/test/ps/output/Golden.LongBindFlipped.Test/golden.lua index 487a0c83..3ae3c630 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.lua +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.lua @@ -3,7 +3,6 @@ M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Show_show = function(dict) return dict.show end M.Data_Maybe_append_S_w = function(s1_S_286_S_318, s2_S_287_S_319) return s1_S_286_S_318 .. s2_S_287_S_319 end @@ -25,25 +24,21 @@ M.Golden_LongBindFlipped_Test_inc = function(x) end M.Golden_LongBindFlipped_Test_compute = (function() local Golden_LongBindFlipped_Test_bindFlipped_S_w, Golden_LongBindFlipped_Test_inc = M.Golden_LongBindFlipped_Test_bindFlipped_S_w, M.Golden_LongBindFlipped_Test_inc - local _S_tmp322 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, M.Data_Maybe_Just(1)))))))))))))))))))))))))))))))))))))))) - local _S_tmp323 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp322)))))))))))))))))))))))))))))))))))))))) - local _S_tmp324 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp323)))))))))))))))))))))))))))))))))))))))) + local _S_tmp324 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, M.Data_Maybe_Just(1)))))))))))))))))))))))))))))))))))))))) local _S_tmp325 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp324)))))))))))))))))))))))))))))))))))))))) local _S_tmp326 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp325)))))))))))))))))))))))))))))))))))))))) local _S_tmp327 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp326)))))))))))))))))))))))))))))))))))))))) local _S_tmp328 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp327)))))))))))))))))))))))))))))))))))))))) - return Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp328))))))))))))))))))))) + local _S_tmp329 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp328)))))))))))))))))))))))))))))))))))))))) + local _S_tmp330 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp329)))))))))))))))))))))))))))))))))))))))) + return Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp330))))))))))))))))))))) end)() -return M.Effect_Console_foreign.log(M.Data_Show_show({ - show = function(v_S_16_S_321) - if "Data.Maybe∷Maybe.Just" == v_S_16_S_321["$ctor"] then - return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showIntImpl - })(v_S_16_S_321.value0), ")")) - elseif "Data.Maybe∷Maybe.Nothing" == v_S_16_S_321["$ctor"] then - return "Nothing" - else - return error("No patterns matched") - end +return M.Effect_Console_foreign.log((function() + if "Data.Maybe∷Maybe.Just" == M.Golden_LongBindFlipped_Test_compute["$ctor"] then + return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongBindFlipped_Test_compute.value0), ")")) + elseif "Data.Maybe∷Maybe.Nothing" == M.Golden_LongBindFlipped_Test_compute["$ctor"] then + return "Nothing" + else + return error("No patterns matched") end -})(M.Golden_LongBindFlipped_Test_compute))() +end)())() diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir index 1a010acc..4b7ab861 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir @@ -30,30 +30,16 @@ UberModule ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor Nothing + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 0 ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( IfThenElse Nothing - ( PrimBinOp Nothing PrimLt - ( Ref Nothing ( Local ( Name "n" ) ) ) - ( LiteralInt Nothing 0 ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "LT" ) [] - ) - ( IfThenElse Nothing - ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "EQ" ) [] - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "GT" ) [] - ) - ) + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ) ) ) diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.lua b/test/ps/output/Golden.LongCallbackChain.Test/golden.lua index 34416b06..4d2df55c 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.lua +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.lua @@ -9,15 +9,15 @@ end M.Golden_LongCallbackChain_Test_withInc_S_w = function(n, k) local Golden_LongCallbackChain_Test_add_S_w = M.Golden_LongCallbackChain_Test_add_S_w while true do - if "Data.Ordering∷Ordering.LT" == ((function() + if "Data.Ordering∷Ordering.LT" == (function() if n < 0 then - return { ["$ctor"] = "Data.Ordering∷Ordering.LT" } + return "Data.Ordering∷Ordering.LT" elseif n == 0 then - return { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } + return "Data.Ordering∷Ordering.EQ" else - return { ["$ctor"] = "Data.Ordering∷Ordering.GT" } + return "Data.Ordering∷Ordering.GT" end - end)())["$ctor"] then + end)() then n, k = Golden_LongCallbackChain_Test_add_S_w(n, 1), k else return k(Golden_LongCallbackChain_Test_add_S_w(n, 1)) diff --git a/test/ps/output/Golden.LongDoBlock.Test/golden.ir b/test/ps/output/Golden.LongDoBlock.Test/golden.ir index d3abb285..059fec85 100644 --- a/test/ps/output/Golden.LongDoBlock.Test/golden.ir +++ b/test/ps/output/Golden.LongDoBlock.Test/golden.ir @@ -1,237 +1,11 @@ UberModule { uberModuleBindings = [ Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$25" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$26" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$25" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$26" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$4", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$6" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$7" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$8" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "a$7" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$9" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$8" ) ) ) - ( Ref Nothing ( Local ( Name "a'$9" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongDoBlock.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -247,7 +21,7 @@ UberModule ) ( LiteralString Nothing "1" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing @@ -258,7 +32,7 @@ UberModule ) ( LiteralString Nothing "2" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -268,7 +42,7 @@ UberModule ) ( LiteralString Nothing "3" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -278,7 +52,7 @@ UberModule ) ( LiteralString Nothing "4" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -288,7 +62,7 @@ UberModule ) ( LiteralString Nothing "5" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -298,7 +72,7 @@ UberModule ) ( LiteralString Nothing "6" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -308,7 +82,7 @@ UberModule ) ( LiteralString Nothing "7" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -318,7 +92,7 @@ UberModule ) ( LiteralString Nothing "8" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -328,7 +102,7 @@ UberModule ) ( LiteralString Nothing "9" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -338,7 +112,7 @@ UberModule ) ( LiteralString Nothing "10" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -348,7 +122,7 @@ UberModule ) ( LiteralString Nothing "11" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -358,7 +132,7 @@ UberModule ) ( LiteralString Nothing "12" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -368,7 +142,7 @@ UberModule ) ( LiteralString Nothing "13" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -378,7 +152,7 @@ UberModule ) ( LiteralString Nothing "14" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -388,7 +162,7 @@ UberModule ) ( LiteralString Nothing "15" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -398,7 +172,7 @@ UberModule ) ( LiteralString Nothing "16" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -408,7 +182,7 @@ UberModule ) ( LiteralString Nothing "17" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -418,7 +192,7 @@ UberModule ) ( LiteralString Nothing "18" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -428,7 +202,7 @@ UberModule ) ( LiteralString Nothing "19" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -438,7 +212,7 @@ UberModule ) ( LiteralString Nothing "20" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -448,7 +222,7 @@ UberModule ) ( LiteralString Nothing "21" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -458,7 +232,7 @@ UberModule ) ( LiteralString Nothing "22" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -468,7 +242,7 @@ UberModule ) ( LiteralString Nothing "23" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -478,7 +252,7 @@ UberModule ) ( LiteralString Nothing "24" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -488,7 +262,7 @@ UberModule ) ( LiteralString Nothing "25" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -498,7 +272,7 @@ UberModule ) ( LiteralString Nothing "26" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -508,7 +282,7 @@ UberModule ) ( LiteralString Nothing "27" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -518,7 +292,7 @@ UberModule ) ( LiteralString Nothing "28" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -528,7 +302,7 @@ UberModule ) ( LiteralString Nothing "29" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -538,7 +312,7 @@ UberModule ) ( LiteralString Nothing "30" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -548,7 +322,7 @@ UberModule ) ( LiteralString Nothing "31" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -558,7 +332,7 @@ UberModule ) ( LiteralString Nothing "32" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -568,7 +342,7 @@ UberModule ) ( LiteralString Nothing "33" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -578,7 +352,7 @@ UberModule ) ( LiteralString Nothing "34" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -588,7 +362,7 @@ UberModule ) ( LiteralString Nothing "35" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -598,7 +372,7 @@ UberModule ) ( LiteralString Nothing "36" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -608,7 +382,7 @@ UberModule ) ( LiteralString Nothing "37" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -618,7 +392,7 @@ UberModule ) ( LiteralString Nothing "38" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -628,7 +402,7 @@ UberModule ) ( LiteralString Nothing "39" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -638,7 +412,7 @@ UberModule ) ( LiteralString Nothing "40" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -648,7 +422,7 @@ UberModule ) ( LiteralString Nothing "41" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -658,7 +432,7 @@ UberModule ) ( LiteralString Nothing "42" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -668,7 +442,7 @@ UberModule ) ( LiteralString Nothing "43" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -678,7 +452,7 @@ UberModule ) ( LiteralString Nothing "44" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -688,7 +462,7 @@ UberModule ) ( LiteralString Nothing "45" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -698,7 +472,7 @@ UberModule ) ( LiteralString Nothing "46" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -708,7 +482,7 @@ UberModule ) ( LiteralString Nothing "47" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -718,7 +492,7 @@ UberModule ) ( LiteralString Nothing "48" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -728,7 +502,7 @@ UberModule ) ( LiteralString Nothing "49" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -738,7 +512,7 @@ UberModule ) ( LiteralString Nothing "50" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -748,7 +522,7 @@ UberModule ) ( LiteralString Nothing "51" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -758,7 +532,7 @@ UberModule ) ( LiteralString Nothing "52" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -768,7 +542,7 @@ UberModule ) ( LiteralString Nothing "53" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -778,7 +552,7 @@ UberModule ) ( LiteralString Nothing "54" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -788,7 +562,7 @@ UberModule ) ( LiteralString Nothing "55" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -798,7 +572,7 @@ UberModule ) ( LiteralString Nothing "56" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -808,7 +582,7 @@ UberModule ) ( LiteralString Nothing "57" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -818,7 +592,7 @@ UberModule ) ( LiteralString Nothing "58" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -828,7 +602,7 @@ UberModule ) ( LiteralString Nothing "59" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -838,7 +612,7 @@ UberModule ) ( LiteralString Nothing "60" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -848,7 +622,7 @@ UberModule ) ( LiteralString Nothing "61" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -858,7 +632,7 @@ UberModule ) ( LiteralString Nothing "62" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -868,7 +642,7 @@ UberModule ) ( LiteralString Nothing "63" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -878,7 +652,7 @@ UberModule ) ( LiteralString Nothing "64" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -888,7 +662,7 @@ UberModule ) ( LiteralString Nothing "65" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -898,7 +672,7 @@ UberModule ) ( LiteralString Nothing "66" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -908,7 +682,7 @@ UberModule ) ( LiteralString Nothing "67" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -918,7 +692,7 @@ UberModule ) ( LiteralString Nothing "68" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -928,7 +702,7 @@ UberModule ) ( LiteralString Nothing "69" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -938,7 +712,7 @@ UberModule ) ( LiteralString Nothing "70" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -948,7 +722,7 @@ UberModule ) ( LiteralString Nothing "71" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -958,7 +732,7 @@ UberModule ) ( LiteralString Nothing "72" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -968,7 +742,7 @@ UberModule ) ( LiteralString Nothing "73" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -978,7 +752,7 @@ UberModule ) ( LiteralString Nothing "74" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -988,7 +762,7 @@ UberModule ) ( LiteralString Nothing "75" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -998,7 +772,7 @@ UberModule ) ( LiteralString Nothing "76" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1008,7 +782,7 @@ UberModule ) ( LiteralString Nothing "77" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1018,7 +792,7 @@ UberModule ) ( LiteralString Nothing "78" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1028,7 +802,7 @@ UberModule ) ( LiteralString Nothing "79" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1038,7 +812,7 @@ UberModule ) ( LiteralString Nothing "80" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1048,7 +822,7 @@ UberModule ) ( LiteralString Nothing "81" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1058,7 +832,7 @@ UberModule ) ( LiteralString Nothing "82" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1068,7 +842,7 @@ UberModule ) ( LiteralString Nothing "83" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1078,7 +852,7 @@ UberModule ) ( LiteralString Nothing "84" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1088,7 +862,7 @@ UberModule ) ( LiteralString Nothing "85" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1098,7 +872,7 @@ UberModule ) ( LiteralString Nothing "86" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1108,7 +882,7 @@ UberModule ) ( LiteralString Nothing "87" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1118,7 +892,7 @@ UberModule ) ( LiteralString Nothing "88" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1128,7 +902,7 @@ UberModule ) ( LiteralString Nothing "89" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1138,7 +912,7 @@ UberModule ) ( LiteralString Nothing "90" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1148,7 +922,7 @@ UberModule ) ( LiteralString Nothing "91" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1158,7 +932,7 @@ UberModule ) ( LiteralString Nothing "92" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1168,7 +942,7 @@ UberModule ) ( LiteralString Nothing "93" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1178,7 +952,7 @@ UberModule ) ( LiteralString Nothing "94" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1188,7 +962,7 @@ UberModule ) ( LiteralString Nothing "95" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1198,7 +972,7 @@ UberModule ) ( LiteralString Nothing "96" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1208,7 +982,7 @@ UberModule ) ( LiteralString Nothing "97" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1218,7 +992,7 @@ UberModule ) ( LiteralString Nothing "98" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1228,7 +1002,7 @@ UberModule ) ( LiteralString Nothing "99" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1238,7 +1012,7 @@ UberModule ) ( LiteralString Nothing "100" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1248,7 +1022,7 @@ UberModule ) ( LiteralString Nothing "101" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1258,7 +1032,7 @@ UberModule ) ( LiteralString Nothing "102" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1268,7 +1042,7 @@ UberModule ) ( LiteralString Nothing "103" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1278,7 +1052,7 @@ UberModule ) ( LiteralString Nothing "104" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1288,7 +1062,7 @@ UberModule ) ( LiteralString Nothing "105" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1298,7 +1072,7 @@ UberModule ) ( LiteralString Nothing "106" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1308,7 +1082,7 @@ UberModule ) ( LiteralString Nothing "107" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1318,7 +1092,7 @@ UberModule ) ( LiteralString Nothing "108" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1328,7 +1102,7 @@ UberModule ) ( LiteralString Nothing "109" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1338,7 +1112,7 @@ UberModule ) ( LiteralString Nothing "110" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1348,7 +1122,7 @@ UberModule ) ( LiteralString Nothing "111" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1358,7 +1132,7 @@ UberModule ) ( LiteralString Nothing "112" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1368,7 +1142,7 @@ UberModule ) ( LiteralString Nothing "113" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1378,7 +1152,7 @@ UberModule ) ( LiteralString Nothing "114" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1388,7 +1162,7 @@ UberModule ) ( LiteralString Nothing "115" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1398,7 +1172,7 @@ UberModule ) ( LiteralString Nothing "116" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1408,7 +1182,7 @@ UberModule ) ( LiteralString Nothing "117" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1418,7 +1192,7 @@ UberModule ) ( LiteralString Nothing "118" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1428,7 +1202,7 @@ UberModule ) ( LiteralString Nothing "119" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1438,7 +1212,7 @@ UberModule ) ( LiteralString Nothing "120" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1448,7 +1222,7 @@ UberModule ) ( LiteralString Nothing "121" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1458,7 +1232,7 @@ UberModule ) ( LiteralString Nothing "122" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1468,7 +1242,7 @@ UberModule ) ( LiteralString Nothing "123" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1478,7 +1252,7 @@ UberModule ) ( LiteralString Nothing "124" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1488,7 +1262,7 @@ UberModule ) ( LiteralString Nothing "125" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1498,7 +1272,7 @@ UberModule ) ( LiteralString Nothing "126" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1508,7 +1282,7 @@ UberModule ) ( LiteralString Nothing "127" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1518,7 +1292,7 @@ UberModule ) ( LiteralString Nothing "128" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1528,7 +1302,7 @@ UberModule ) ( LiteralString Nothing "129" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1538,7 +1312,7 @@ UberModule ) ( LiteralString Nothing "130" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1548,7 +1322,7 @@ UberModule ) ( LiteralString Nothing "131" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1558,7 +1332,7 @@ UberModule ) ( LiteralString Nothing "132" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1568,7 +1342,7 @@ UberModule ) ( LiteralString Nothing "133" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1578,7 +1352,7 @@ UberModule ) ( LiteralString Nothing "134" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1588,7 +1362,7 @@ UberModule ) ( LiteralString Nothing "135" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1598,7 +1372,7 @@ UberModule ) ( LiteralString Nothing "136" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1608,7 +1382,7 @@ UberModule ) ( LiteralString Nothing "137" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1618,7 +1392,7 @@ UberModule ) ( LiteralString Nothing "138" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1628,7 +1402,7 @@ UberModule ) ( LiteralString Nothing "139" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1638,7 +1412,7 @@ UberModule ) ( LiteralString Nothing "140" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1648,7 +1422,7 @@ UberModule ) ( LiteralString Nothing "141" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1658,7 +1432,7 @@ UberModule ) ( LiteralString Nothing "142" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1668,7 +1442,7 @@ UberModule ) ( LiteralString Nothing "143" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1678,7 +1452,7 @@ UberModule ) ( LiteralString Nothing "144" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1688,7 +1462,7 @@ UberModule ) ( LiteralString Nothing "145" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1698,7 +1472,7 @@ UberModule ) ( LiteralString Nothing "146" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1708,7 +1482,7 @@ UberModule ) ( LiteralString Nothing "147" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1718,7 +1492,7 @@ UberModule ) ( LiteralString Nothing "148" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1728,7 +1502,7 @@ UberModule ) ( LiteralString Nothing "149" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1738,7 +1512,7 @@ UberModule ) ( LiteralString Nothing "150" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) @@ -1757,7 +1531,7 @@ UberModule ) ( LiteralString Nothing "151" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing @@ -1770,7 +1544,9 @@ UberModule ) ( LiteralString Nothing "152" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1782,7 +1558,9 @@ UberModule ) ( LiteralString Nothing "153" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1794,7 +1572,9 @@ UberModule ) ( LiteralString Nothing "154" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1806,7 +1586,9 @@ UberModule ) ( LiteralString Nothing "155" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1818,7 +1600,9 @@ UberModule ) ( LiteralString Nothing "156" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1830,7 +1614,9 @@ UberModule ) ( LiteralString Nothing "157" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1842,7 +1628,9 @@ UberModule ) ( LiteralString Nothing "158" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1854,7 +1642,9 @@ UberModule ) ( LiteralString Nothing "159" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1866,7 +1656,9 @@ UberModule ) ( LiteralString Nothing "160" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1878,7 +1670,9 @@ UberModule ) ( LiteralString Nothing "161" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1890,7 +1684,9 @@ UberModule ) ( LiteralString Nothing "162" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1902,7 +1698,9 @@ UberModule ) ( LiteralString Nothing "163" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1914,7 +1712,9 @@ UberModule ) ( LiteralString Nothing "164" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1926,7 +1726,9 @@ UberModule ) ( LiteralString Nothing "165" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1938,7 +1740,9 @@ UberModule ) ( LiteralString Nothing "166" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1950,7 +1754,9 @@ UberModule ) ( LiteralString Nothing "167" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1962,7 +1768,9 @@ UberModule ) ( LiteralString Nothing "168" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1974,7 +1782,9 @@ UberModule ) ( LiteralString Nothing "169" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1986,7 +1796,9 @@ UberModule ) ( LiteralString Nothing "170" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -1998,7 +1810,9 @@ UberModule ) ( LiteralString Nothing "171" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2010,7 +1824,9 @@ UberModule ) ( LiteralString Nothing "172" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2022,7 +1838,9 @@ UberModule ) ( LiteralString Nothing "173" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2034,7 +1852,9 @@ UberModule ) ( LiteralString Nothing "174" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2046,7 +1866,9 @@ UberModule ) ( LiteralString Nothing "175" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2058,7 +1880,9 @@ UberModule ) ( LiteralString Nothing "176" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2070,7 +1894,9 @@ UberModule ) ( LiteralString Nothing "177" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2082,7 +1908,9 @@ UberModule ) ( LiteralString Nothing "178" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2094,7 +1922,9 @@ UberModule ) ( LiteralString Nothing "179" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2106,7 +1936,9 @@ UberModule ) ( LiteralString Nothing "180" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2118,7 +1950,9 @@ UberModule ) ( LiteralString Nothing "181" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2130,7 +1964,9 @@ UberModule ) ( LiteralString Nothing "182" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2142,7 +1978,9 @@ UberModule ) ( LiteralString Nothing "183" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2154,7 +1992,9 @@ UberModule ) ( LiteralString Nothing "184" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2166,7 +2006,9 @@ UberModule ) ( LiteralString Nothing "185" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2178,7 +2020,9 @@ UberModule ) ( LiteralString Nothing "186" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2190,7 +2034,9 @@ UberModule ) ( LiteralString Nothing "187" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2202,7 +2048,9 @@ UberModule ) ( LiteralString Nothing "188" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2214,7 +2062,9 @@ UberModule ) ( LiteralString Nothing "189" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2226,7 +2076,9 @@ UberModule ) ( LiteralString Nothing "190" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2238,7 +2090,9 @@ UberModule ) ( LiteralString Nothing "191" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2250,7 +2104,9 @@ UberModule ) ( LiteralString Nothing "192" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2262,7 +2118,9 @@ UberModule ) ( LiteralString Nothing "193" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2274,7 +2132,9 @@ UberModule ) ( LiteralString Nothing "194" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2286,7 +2146,9 @@ UberModule ) ( LiteralString Nothing "195" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2298,7 +2160,9 @@ UberModule ) ( LiteralString Nothing "196" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2310,7 +2174,9 @@ UberModule ) ( LiteralString Nothing "197" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2322,7 +2188,9 @@ UberModule ) ( LiteralString Nothing "198" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2334,7 +2202,9 @@ UberModule ) ( LiteralString Nothing "199" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2346,7 +2216,9 @@ UberModule ) ( LiteralString Nothing "200" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2358,7 +2230,9 @@ UberModule ) ( LiteralString Nothing "201" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2370,7 +2244,9 @@ UberModule ) ( LiteralString Nothing "202" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2382,7 +2258,9 @@ UberModule ) ( LiteralString Nothing "203" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2394,7 +2272,9 @@ UberModule ) ( LiteralString Nothing "204" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2406,7 +2286,9 @@ UberModule ) ( LiteralString Nothing "205" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2418,7 +2300,9 @@ UberModule ) ( LiteralString Nothing "206" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2430,7 +2314,9 @@ UberModule ) ( LiteralString Nothing "207" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2442,7 +2328,9 @@ UberModule ) ( LiteralString Nothing "208" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2454,7 +2342,9 @@ UberModule ) ( LiteralString Nothing "209" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2466,7 +2356,9 @@ UberModule ) ( LiteralString Nothing "210" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2478,7 +2370,9 @@ UberModule ) ( LiteralString Nothing "211" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2490,7 +2384,9 @@ UberModule ) ( LiteralString Nothing "212" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2502,7 +2398,9 @@ UberModule ) ( LiteralString Nothing "213" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2514,7 +2412,9 @@ UberModule ) ( LiteralString Nothing "214" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2526,7 +2426,9 @@ UberModule ) ( LiteralString Nothing "215" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2538,7 +2440,9 @@ UberModule ) ( LiteralString Nothing "216" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2550,7 +2454,9 @@ UberModule ) ( LiteralString Nothing "217" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2562,7 +2468,9 @@ UberModule ) ( LiteralString Nothing "218" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2574,7 +2482,9 @@ UberModule ) ( LiteralString Nothing "219" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2586,7 +2496,9 @@ UberModule ) ( LiteralString Nothing "220" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2598,7 +2510,9 @@ UberModule ) ( LiteralString Nothing "221" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2610,7 +2524,9 @@ UberModule ) ( LiteralString Nothing "222" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2622,7 +2538,9 @@ UberModule ) ( LiteralString Nothing "223" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2634,7 +2552,9 @@ UberModule ) ( LiteralString Nothing "224" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2646,7 +2566,9 @@ UberModule ) ( LiteralString Nothing "225" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2658,7 +2580,9 @@ UberModule ) ( LiteralString Nothing "226" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2670,7 +2594,9 @@ UberModule ) ( LiteralString Nothing "227" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2682,7 +2608,9 @@ UberModule ) ( LiteralString Nothing "228" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2694,7 +2622,9 @@ UberModule ) ( LiteralString Nothing "229" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2706,7 +2636,9 @@ UberModule ) ( LiteralString Nothing "230" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2718,7 +2650,9 @@ UberModule ) ( LiteralString Nothing "231" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2730,7 +2664,9 @@ UberModule ) ( LiteralString Nothing "232" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2742,7 +2678,9 @@ UberModule ) ( LiteralString Nothing "233" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2754,7 +2692,9 @@ UberModule ) ( LiteralString Nothing "234" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2766,7 +2706,9 @@ UberModule ) ( LiteralString Nothing "235" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2778,7 +2720,9 @@ UberModule ) ( LiteralString Nothing "236" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2790,7 +2734,9 @@ UberModule ) ( LiteralString Nothing "237" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2802,7 +2748,9 @@ UberModule ) ( LiteralString Nothing "238" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2814,7 +2762,9 @@ UberModule ) ( LiteralString Nothing "239" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2826,7 +2776,9 @@ UberModule ) ( LiteralString Nothing "240" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2838,7 +2790,9 @@ UberModule ) ( LiteralString Nothing "241" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2850,7 +2804,9 @@ UberModule ) ( LiteralString Nothing "242" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2862,7 +2818,9 @@ UberModule ) ( LiteralString Nothing "243" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2874,7 +2832,9 @@ UberModule ) ( LiteralString Nothing "244" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2886,7 +2846,9 @@ UberModule ) ( LiteralString Nothing "245" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2898,7 +2860,9 @@ UberModule ) ( LiteralString Nothing "246" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2910,7 +2874,9 @@ UberModule ) ( LiteralString Nothing "247" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2922,7 +2888,9 @@ UberModule ) ( LiteralString Nothing "248" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2934,7 +2902,9 @@ UberModule ) ( LiteralString Nothing "249" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2946,7 +2916,9 @@ UberModule ) ( LiteralString Nothing "250" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2958,7 +2930,9 @@ UberModule ) ( LiteralString Nothing "251" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2970,7 +2944,9 @@ UberModule ) ( LiteralString Nothing "252" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2982,7 +2958,9 @@ UberModule ) ( LiteralString Nothing "253" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2994,7 +2972,9 @@ UberModule ) ( LiteralString Nothing "254" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3006,7 +2986,9 @@ UberModule ) ( LiteralString Nothing "255" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3018,7 +3000,9 @@ UberModule ) ( LiteralString Nothing "256" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3030,7 +3014,9 @@ UberModule ) ( LiteralString Nothing "257" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3042,7 +3028,9 @@ UberModule ) ( LiteralString Nothing "258" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3054,7 +3042,9 @@ UberModule ) ( LiteralString Nothing "259" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3066,7 +3056,9 @@ UberModule ) ( LiteralString Nothing "260" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3078,7 +3070,9 @@ UberModule ) ( LiteralString Nothing "261" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3090,7 +3084,9 @@ UberModule ) ( LiteralString Nothing "262" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3102,7 +3098,9 @@ UberModule ) ( LiteralString Nothing "263" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3114,7 +3112,9 @@ UberModule ) ( LiteralString Nothing "264" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3126,7 +3126,9 @@ UberModule ) ( LiteralString Nothing "265" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3138,7 +3140,9 @@ UberModule ) ( LiteralString Nothing "266" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3150,7 +3154,9 @@ UberModule ) ( LiteralString Nothing "267" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3162,7 +3168,9 @@ UberModule ) ( LiteralString Nothing "268" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3174,7 +3182,9 @@ UberModule ) ( LiteralString Nothing "269" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3186,7 +3196,9 @@ UberModule ) ( LiteralString Nothing "270" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3198,7 +3210,9 @@ UberModule ) ( LiteralString Nothing "271" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3210,7 +3224,9 @@ UberModule ) ( LiteralString Nothing "272" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3222,7 +3238,9 @@ UberModule ) ( LiteralString Nothing "273" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3234,7 +3252,9 @@ UberModule ) ( LiteralString Nothing "274" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3246,7 +3266,9 @@ UberModule ) ( LiteralString Nothing "275" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3258,7 +3280,9 @@ UberModule ) ( LiteralString Nothing "276" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3270,7 +3294,9 @@ UberModule ) ( LiteralString Nothing "277" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3282,7 +3308,9 @@ UberModule ) ( LiteralString Nothing "278" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3294,7 +3322,9 @@ UberModule ) ( LiteralString Nothing "279" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3306,7 +3336,9 @@ UberModule ) ( LiteralString Nothing "280" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3318,7 +3350,9 @@ UberModule ) ( LiteralString Nothing "281" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3330,7 +3364,9 @@ UberModule ) ( LiteralString Nothing "282" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3342,7 +3378,9 @@ UberModule ) ( LiteralString Nothing "283" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3354,7 +3392,9 @@ UberModule ) ( LiteralString Nothing "284" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3366,7 +3406,9 @@ UberModule ) ( LiteralString Nothing "285" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3378,7 +3420,9 @@ UberModule ) ( LiteralString Nothing "286" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3390,7 +3434,9 @@ UberModule ) ( LiteralString Nothing "287" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3402,7 +3448,9 @@ UberModule ) ( LiteralString Nothing "288" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3414,7 +3462,9 @@ UberModule ) ( LiteralString Nothing "289" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3426,7 +3476,9 @@ UberModule ) ( LiteralString Nothing "290" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3438,7 +3490,9 @@ UberModule ) ( LiteralString Nothing "291" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3450,7 +3504,9 @@ UberModule ) ( LiteralString Nothing "292" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3462,7 +3518,9 @@ UberModule ) ( LiteralString Nothing "293" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3474,7 +3532,9 @@ UberModule ) ( LiteralString Nothing "294" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3486,7 +3546,9 @@ UberModule ) ( LiteralString Nothing "295" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3498,7 +3560,9 @@ UberModule ) ( LiteralString Nothing "296" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3510,7 +3574,9 @@ UberModule ) ( LiteralString Nothing "297" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3522,7 +3588,9 @@ UberModule ) ( LiteralString Nothing "298" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -3534,7 +3602,9 @@ UberModule ) ( LiteralString Nothing "299" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) ) ] ) @@ -3548,11 +3618,11 @@ UberModule ) ( LiteralString Nothing "300" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.LongDoBlock.Test/golden.lua b/test/ps/output/Golden.LongDoBlock.Test/golden.lua index 33579808..22856315 100644 --- a/test/ps/output/Golden.LongDoBlock.Test/golden.lua +++ b/test/ps/output/Golden.LongDoBlock.Test/golden.lua @@ -1,73 +1,7 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_25) - return function(a_S_26) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_25))(a_S_26) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_4 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_6) - return function(a_S_7) - return bind_S_4(f_S_6)(function(fPrime_S_8) - return bind_S_4(a_S_7)(function(aPrime_S_9) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_8(aPrime_S_9)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_LongDoBlock_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) return (function() local _ = M.Effect_Console_foreign.log("1")() local _ = M.Effect_Console_foreign.log("2")() diff --git a/test/ps/output/Golden.LongEitherBind.Test/golden.ir b/test/ps/output/Golden.LongEitherBind.Test/golden.ir index 999aa284..7156009e 100644 --- a/test/ps/output/Golden.LongEitherBind.Test/golden.ir +++ b/test/ps/output/Golden.LongEitherBind.Test/golden.ir @@ -13,11 +13,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Either", qnameName = Name "append$w" }, AbsN Nothing ( ParamNamed Nothing @@ -37,49 +32,6 @@ UberModule ( CtorName "Right" ) [ FieldName "value0" ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongEitherBind.Test", qnameName = Name "bind" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "v2$321" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Left" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$321" ) ) ) ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ctor Nothing SumType - ( ModuleName "Data.Either" ) - ( TyName "Either" ) - ( CtorName "Left" ) - [ FieldName "value0" ] - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v2$321" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Right" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$321" ) ) ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$318" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$318" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v2$321" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongEitherBind.Test", qnameName = Name "add$w" }, AbsN Nothing @@ -93,40 +45,34 @@ UberModule { qnameModuleName = ModuleName "Golden.LongEitherBind.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$kont334", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$335" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x150$336" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x280$337" ) :| [] ) + ( Nothing, Name "x150", Let Nothing + ( Standalone + ( Nothing, Name "$tmp1237", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x280$337" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x281" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -135,26 +81,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x281" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x282" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -163,26 +95,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x282" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x283" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -191,26 +109,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x283" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x284" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -219,28 +123,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x284" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x285" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -250,28 +137,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x285" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x286" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -281,28 +151,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x286" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x287" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -312,28 +165,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x287" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x288" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -343,28 +179,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x288" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x289" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -374,30 +193,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x289" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x290" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -407,30 +207,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x290" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x291" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -440,30 +221,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x291" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x292" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -473,32 +235,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x292" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x293" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -508,32 +249,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x293" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x294" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -543,32 +263,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x294" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x295" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -578,32 +277,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x295" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x296" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -613,32 +291,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x296" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x297" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -648,185 +305,112 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x297" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x298" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x298" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x299" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x299" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x300" ) :| [] + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$335" ) - ) :| - [ Ref Nothing - ( Local - ( Name "x150$336" ) - ) - ] - ) :| - [ Ref Nothing - ( Local - ( Name "x300" ) - ) - ] - ) :| [] - ) - ) :| [] ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ( LiteralInt Nothing 1 :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] ) - ) - ) - ) :| - [ Standalone - ( Nothing, Name "$kont338", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$339" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x150$340" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x240$341" ) :| [] ) + ) :| + [ Standalone + ( Nothing, Name "$tmp1238", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing ( Imported @@ -834,23 +418,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x240$341" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x241" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -859,26 +432,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x241" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x242" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -887,26 +446,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x242" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x243" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -915,26 +460,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x243" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x244" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -943,28 +474,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x244" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x245" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -974,28 +488,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x245" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x246" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1005,28 +502,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x246" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x247" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1036,28 +516,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x247" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x248" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1067,28 +530,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x248" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x249" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1098,30 +544,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x249" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x250" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1131,30 +558,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x250" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x251" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1164,32 +572,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x251" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x252" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1199,32 +586,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x252" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x253" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1234,32 +600,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x253" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x254" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1269,32 +614,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x254" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x255" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1304,32 +628,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x255" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x256" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1339,32 +642,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x256" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x257" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -1374,911 +656,114 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x257" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x258" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x258" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x259" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x259" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x260" ) :| [] + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x260" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x261" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x261" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x262" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x262" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x263" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x263" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x264" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x264" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x265" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x265" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x266" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x266" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x267" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x267" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x268" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x268" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x269" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x269" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x270" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x270" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x271" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x271" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x272" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x272" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x273" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x273" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x274" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x274" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x275" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x275" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x276" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x276" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x277" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x277" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x278" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x278" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x279" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x279" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x280" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont334" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$339" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x150$340" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x280" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ( Ref Nothing + ( Local + ( Name "$tmp1237" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) + ), Standalone + ( Nothing, Name "$tmp1239", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ) - ) - ), Standalone - ( Nothing, Name "$kont342", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$343" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x150$344" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x200$345" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing ( Imported @@ -2286,23 +771,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x200$345" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x201" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -2311,54 +785,26 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x201" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x202" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x202" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x203" ) :| [] ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) + ( Name "add$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -2367,26 +813,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x203" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x204" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -2395,28 +827,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x204" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x205" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2426,28 +841,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x205" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x206" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2457,28 +855,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x206" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x207" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2488,28 +869,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x207" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x208" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2519,28 +883,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x208" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x209" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2550,30 +897,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x209" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x210" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2583,30 +911,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x210" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x211" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2616,32 +925,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x211" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x212" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2651,32 +939,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x212" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x213" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2686,32 +953,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x213" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x214" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2721,32 +967,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x214" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x215" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2756,32 +981,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x215" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x216" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2791,32 +995,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x216" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x217" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -2826,911 +1009,124 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x217" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x218" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x218" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x219" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x219" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x220" ) :| [] + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x220" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x221" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x221" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x222" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x222" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x223" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x223" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x224" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x224" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x225" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x225" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x226" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x226" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x227" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x227" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x228" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x228" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x229" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x229" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x230" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x230" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x231" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x231" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x232" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x232" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x233" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x233" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x234" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x234" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x235" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x235" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x236" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x236" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x237" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x237" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x238" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x238" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x239" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x239" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x240" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont338" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$343" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x150$344" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x240" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ( Ref Nothing + ( Local + ( Name "$tmp1238" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] ) ) + ] + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ), Standalone - ( Nothing, Name "$kont346", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$347" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x150$348" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x160$349" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing ( Imported @@ -3738,23 +1134,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x160$349" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x161" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -3763,26 +1148,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x161" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x162" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -3791,26 +1162,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x162" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x163" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -3819,26 +1176,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x163" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x164" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -3847,28 +1190,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x164" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x165" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -3878,28 +1204,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x165" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x166" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -3909,28 +1218,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x166" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x167" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -3940,28 +1232,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x167" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x168" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -3971,28 +1246,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x168" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x169" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -4002,30 +1260,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x169" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x170" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -4035,30 +1274,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x170" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x171" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -4070,1138 +1290,101 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x171" ) + ( Name "$tmp1239" ) ) :| [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x172" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x172" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x173" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x173" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x174" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x174" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x175" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x175" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x176" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x176" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x177" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x177" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x178" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x178" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x179" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x179" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x180" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x180" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x181" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x181" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x182" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x182" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x183" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x183" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x184" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x184" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x185" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x185" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x186" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x186" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x187" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x187" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x188" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x188" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x189" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x189" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x190" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x190" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x191" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x191" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x192" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x192" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x193" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x193" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x194" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x194" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x195" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x195" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x196" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x196" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x197" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x197" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x198" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x198" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x199" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x199" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x200" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont342" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$347" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x150$348" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x200" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) + ) + ) :| [] + ) + ( Let Nothing + ( Standalone + ( Nothing, Name "$tmp1240", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ), Standalone - ( Nothing, Name "$kont350", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$351" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x120$352" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x120$352" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x121" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -5210,26 +1393,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x121" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x122" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -5238,26 +1407,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x122" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x123" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -5266,56 +1421,25 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x123" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x124" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x124" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x125" ) :| [] ) - ( AppN Nothing + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) + ( Name "add$w" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5325,28 +1449,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x125" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x126" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5356,28 +1463,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x126" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x127" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5387,28 +1477,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x127" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x128" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5418,28 +1491,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x128" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x129" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5449,30 +1505,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x129" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x130" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5482,30 +1519,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x130" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x131" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5515,30 +1533,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x131" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x132" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5548,32 +1547,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x132" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x133" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5583,32 +1561,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x133" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x134" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5618,32 +1575,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x135" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5653,32 +1589,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x135" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x136" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5688,32 +1603,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x136" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x137" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -5725,927 +1619,116 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x137" ) + ( Name "x150" ) ) :| [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x138" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x138" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x139" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x139" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x140" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x141" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x141" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x142" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x142" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x143" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x143" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x144" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x144" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x145" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x145" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x146" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x146" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x147" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x147" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x148" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x148" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x149" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x150" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x151" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x151" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x152" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x152" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x153" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x153" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x154" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x154" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x155" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x155" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x156" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x156" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x157" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x157" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x158" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x158" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x159" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x159" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x160" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont346" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$351" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x160" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ), Standalone - ( Nothing, Name "$kont353", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$354" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x80$355" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing - ( Local ( Name "x80$355" ) ) :| + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) + ) :| + [ Standalone + ( Nothing, Name "$tmp1241", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x81" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -6654,26 +1737,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x81" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x82" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -6682,26 +1751,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x82" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x83" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -6710,26 +1765,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x83" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x84" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -6738,28 +1779,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x84" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x85" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -6769,28 +1793,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x85" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x86" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -6800,28 +1807,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x86" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x87" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -6831,28 +1821,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x87" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x88" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -6862,28 +1835,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x88" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x89" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -6893,28 +1849,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x89" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x90" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -6924,30 +1863,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x90" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x91" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -6957,30 +1877,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x91" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x92" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -6990,32 +1891,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x92" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x93" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -7025,32 +1905,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x93" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x94" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -7060,32 +1919,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x95" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -7095,32 +1933,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x95" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x96" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -7130,32 +1947,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x96" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x97" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -7165,922 +1961,124 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x97" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x98" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x98" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x99" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x99" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x100" ) :| [] + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x101" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x101" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x102" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x102" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x103" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x103" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x104" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x104" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x105" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x105" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x106" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x106" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x107" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x107" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x108" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x108" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x109" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x110" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x110" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x111" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x111" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x112" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x113" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x113" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x114" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x114" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x115" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x116" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x116" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x117" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x117" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x118" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x119" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x119" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x120" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont350" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$354" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x120" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ( Ref Nothing + ( Local + ( Name "$tmp1240" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) + ), Standalone + ( Nothing, Name "$tmp1242", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ) - ), Standalone - ( Nothing, Name "$kont356", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$357" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x40$358" ) :| [] ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x40$358" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x41" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -8089,26 +2087,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x41" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x42" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -8117,26 +2101,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x42" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x43" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -8145,26 +2115,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x43" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x44" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -8173,28 +2129,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x44" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x45" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8204,28 +2143,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x45" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x46" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8235,28 +2157,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x46" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x47" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8266,28 +2171,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x47" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x48" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8297,28 +2185,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x48" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x49" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8328,28 +2199,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x49" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x50" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8359,30 +2213,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x50" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x51" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8392,30 +2227,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x51" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x52" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8425,32 +2241,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x52" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x53" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8460,32 +2255,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x53" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x54" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8495,32 +2269,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x55" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8530,32 +2283,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x55" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x56" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8565,32 +2297,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x56" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x57" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -8600,974 +2311,147 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x57" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x58" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x58" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x59" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x59" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x60" ) :| [] + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x61" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x61" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x62" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x62" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x63" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x63" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x64" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x64" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x65" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x65" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x66" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x66" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x67" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x67" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x68" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x68" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x69" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x69" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x70" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x70" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x71" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x71" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x72" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x72" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x73" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x73" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x74" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x74" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x75" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x75" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x76" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x76" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x77" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x77" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x78" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x78" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x79" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x79" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x80" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont353" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$357" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x80" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x1" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing ( Local ( Name "x1" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x2" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing ( Local ( Name "x2" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x3" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "bind" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x3" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) + ( Ref Nothing + ( Local + ( Name "$tmp1241" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) + ) + ] + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) + ( LiteralInt Nothing 1 :| [ Ref Nothing ( Local ( Name "x150" ) ) ] ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x4" ) :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) + ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) + ( Name "add$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -9576,26 +2460,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x4" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x5" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -9604,26 +2474,12 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x5" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x6" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) + ) ) ( AppN Nothing ( Ref Nothing @@ -9632,28 +2488,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x6" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x7" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9663,28 +2502,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x7" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x8" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9694,28 +2516,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x8" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x9" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9725,28 +2530,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x9" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x10" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9756,28 +2544,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x10" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x11" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9787,28 +2558,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x11" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x12" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9818,30 +2572,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x12" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x13" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9851,30 +2586,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local ( Name "x13" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x14" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9884,32 +2600,11 @@ UberModule ( Name "add$w" ) ) ) - ( Ref Nothing - ( Local - ( Name "x14" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x15" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongEitherBind.Test" ) + ( Name "add$w" ) ) ) ( AppN Nothing @@ -9921,954 +2616,71 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x15" ) + ( Name "$tmp1242" ) ) :| [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x16" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x16" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x17" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x17" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x18" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x18" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x19" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x19" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x20" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x20" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x21" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x21" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x22" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x22" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x23" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x23" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x24" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x24" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x25" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x25" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x26" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x26" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x27" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x27" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x28" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x28" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x29" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x29" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x30" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x30" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x31" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x31" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x32" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x32" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x33" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x33" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x34" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x34" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x35" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x35" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x36" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x36" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x37" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x37" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x38" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x38" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x39" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "bind" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongEitherBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x39" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x40" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont356" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x40" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] + ) :| + [ LiteralInt Nothing 1 ] ) - ) :| [] - ) - ) :| [] + ] + ) :| [] + ) ) ) ) @@ -10882,98 +2694,67 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Left" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) + ) + ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$7$333" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Left" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$7$333" ) ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Left " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showStringImpl" ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) - ( LiteralString Nothing "(Left " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showStringImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$7$333" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] + ) + ] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Right" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) + ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Right " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Right" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$7$333" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( LiteralString Nothing "(Right " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$7$333" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) ) - ( Exception Nothing "No patterns matched" ) - ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] ) - ) - ] :| [] + ] + ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) :| [] + ( Exception Nothing "No patterns matched" ) ) :| [] ) ) diff --git a/test/ps/output/Golden.LongEitherBind.Test/golden.lua b/test/ps/output/Golden.LongEitherBind.Test/golden.lua index d33f082b..df810740 100644 --- a/test/ps/output/Golden.LongEitherBind.Test/golden.lua +++ b/test/ps/output/Golden.LongEitherBind.Test/golden.lua @@ -44,688 +44,34 @@ M.Data_Show_foreign = { M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Show_show = function(dict) return dict.show end M.Data_Either_append_S_w = function(s1_S_299_S_331, s2_S_300_S_332) return s1_S_299_S_331 .. s2_S_300_S_332 end M.Data_Either_Right = function(value0) return { ["$ctor"] = "Data.Either∷Either.Right", value0 = value0 } end -M.Golden_LongEitherBind_Test_bind = function(v2_S_321) - if "Data.Either∷Either.Left" == v2_S_321["$ctor"] then - return function() - return (function(value0) - return { ["$ctor"] = "Data.Either∷Either.Left", value0 = value0 } - end)(v2_S_321.value0) - end - elseif "Data.Either∷Either.Right" == v2_S_321["$ctor"] then - return function(f_S_318) return f_S_318(v2_S_321.value0) end - else - return error("No patterns matched") - end -end M.Golden_LongEitherBind_Test_add_S_w = function(x_S_297_S_326, y_S_298_S_327) return x_S_297_S_326 + y_S_298_S_327 end M.Golden_LongEitherBind_Test_compute = (function() - local _S_kont334 = function(x1_S_335) - return function(x150_S_336) - return function(x280_S_337) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x280_S_337, 1)))(function( x281 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x281, 1)))(function( x282 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x282, 1)))(function( x283 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x283, 1)))(function( x284 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x284, 1)))(function( x285 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x285, 1)))(function( x286 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x286, 1)))(function( x287 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x287, 1)))(function( x288 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x288, 1)))(function( x289 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x289, 1)))(function( x290 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x290, 1)))(function( x291 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x291, 1)))(function( x292 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x292, 1)))(function( x293 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x293, 1)))(function( x294 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x294, 1)))(function( x295 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x295, 1)))(function( x296 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x296, 1)))(function( x297 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x297, 1)))(function( x298 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x298, 1)))(function( x299 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x299, 1)))(function( x300 ) - local Golden_LongEitherBind_Test_add_S_w = M.Golden_LongEitherBind_Test_add_S_w - return M.Data_Either_Right(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(x1_S_335, x150_S_336), x300)) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - end - local _S_kont338 = function(x1_S_339) - return function(x150_S_340) - return function(x240_S_341) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x240_S_341, 1)))(function( x241 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x241, 1)))(function( x242 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x242, 1)))(function( x243 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x243, 1)))(function( x244 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x244, 1)))(function( x245 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x245, 1)))(function( x246 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x246, 1)))(function( x247 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x247, 1)))(function( x248 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x248, 1)))(function( x249 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x249, 1)))(function( x250 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x250, 1)))(function( x251 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x251, 1)))(function( x252 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x252, 1)))(function( x253 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x253, 1)))(function( x254 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x254, 1)))(function( x255 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x255, 1)))(function( x256 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x256, 1)))(function( x257 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x257, 1)))(function( x258 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x258, 1)))(function( x259 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x259, 1)))(function( x260 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x260, 1)))(function( x261 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x261, 1)))(function( x262 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x262, 1)))(function( x263 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x263, 1)))(function( x264 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x264, 1)))(function( x265 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x265, 1)))(function( x266 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x266, 1)))(function( x267 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x267, 1)))(function( x268 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x268, 1)))(function( x269 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x269, 1)))(function( x270 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x270, 1)))(function( x271 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x271, 1)))(function( x272 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x272, 1)))(function( x273 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x273, 1)))(function( x274 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x274, 1)))(function( x275 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x275, 1)))(function( x276 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x276, 1)))(function( x277 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x277, 1)))(function( x278 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x278, 1)))(function( x279 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x279, 1)))(function( x280 ) - return _S_kont334(x1_S_339)(x150_S_340)(x280) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - end - local _S_kont342 = function(x1_S_343) - return function(x150_S_344) - return function(x200_S_345) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x200_S_345, 1)))(function( x201 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x201, 1)))(function( x202 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x202, 1)))(function( x203 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x203, 1)))(function( x204 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x204, 1)))(function( x205 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x205, 1)))(function( x206 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x206, 1)))(function( x207 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x207, 1)))(function( x208 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x208, 1)))(function( x209 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x209, 1)))(function( x210 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x210, 1)))(function( x211 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x211, 1)))(function( x212 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x212, 1)))(function( x213 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x213, 1)))(function( x214 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x214, 1)))(function( x215 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x215, 1)))(function( x216 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x216, 1)))(function( x217 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x217, 1)))(function( x218 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x218, 1)))(function( x219 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x219, 1)))(function( x220 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x220, 1)))(function( x221 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x221, 1)))(function( x222 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x222, 1)))(function( x223 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x223, 1)))(function( x224 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x224, 1)))(function( x225 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x225, 1)))(function( x226 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x226, 1)))(function( x227 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x227, 1)))(function( x228 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x228, 1)))(function( x229 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x229, 1)))(function( x230 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x230, 1)))(function( x231 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x231, 1)))(function( x232 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x232, 1)))(function( x233 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x233, 1)))(function( x234 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x234, 1)))(function( x235 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x235, 1)))(function( x236 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x236, 1)))(function( x237 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x237, 1)))(function( x238 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x238, 1)))(function( x239 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x239, 1)))(function( x240 ) - return _S_kont338(x1_S_343)(x150_S_344)(x240) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - end - local _S_kont346 = function(x1_S_347) - return function(x150_S_348) - return function(x160_S_349) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x160_S_349, 1)))(function( x161 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x161, 1)))(function( x162 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x162, 1)))(function( x163 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x163, 1)))(function( x164 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x164, 1)))(function( x165 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x165, 1)))(function( x166 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x166, 1)))(function( x167 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x167, 1)))(function( x168 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x168, 1)))(function( x169 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x169, 1)))(function( x170 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x170, 1)))(function( x171 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x171, 1)))(function( x172 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x172, 1)))(function( x173 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x173, 1)))(function( x174 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x174, 1)))(function( x175 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x175, 1)))(function( x176 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x176, 1)))(function( x177 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x177, 1)))(function( x178 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x178, 1)))(function( x179 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x179, 1)))(function( x180 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x180, 1)))(function( x181 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x181, 1)))(function( x182 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x182, 1)))(function( x183 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x183, 1)))(function( x184 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x184, 1)))(function( x185 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x185, 1)))(function( x186 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x186, 1)))(function( x187 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x187, 1)))(function( x188 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x188, 1)))(function( x189 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x189, 1)))(function( x190 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x190, 1)))(function( x191 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x191, 1)))(function( x192 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x192, 1)))(function( x193 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x193, 1)))(function( x194 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x194, 1)))(function( x195 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x195, 1)))(function( x196 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x196, 1)))(function( x197 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x197, 1)))(function( x198 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x198, 1)))(function( x199 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x199, 1)))(function( x200 ) - return _S_kont342(x1_S_347)(x150_S_348)(x200) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - end - local _S_kont350 = function(x1_S_351) - return function(x120_S_352) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x120_S_352, 1)))(function( x121 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x121, 1)))(function( x122 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x122, 1)))(function( x123 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x123, 1)))(function( x124 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x124, 1)))(function( x125 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x125, 1)))(function( x126 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x126, 1)))(function( x127 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x127, 1)))(function( x128 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x128, 1)))(function( x129 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x129, 1)))(function( x130 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x130, 1)))(function( x131 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x131, 1)))(function( x132 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x132, 1)))(function( x133 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x133, 1)))(function( x134 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x134, 1)))(function( x135 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x135, 1)))(function( x136 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x136, 1)))(function( x137 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x137, 1)))(function( x138 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x138, 1)))(function( x139 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x139, 1)))(function( x140 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x140, 1)))(function( x141 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x141, 1)))(function( x142 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x142, 1)))(function( x143 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x143, 1)))(function( x144 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x144, 1)))(function( x145 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x145, 1)))(function( x146 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x146, 1)))(function( x147 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x147, 1)))(function( x148 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x148, 1)))(function( x149 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x149, 1)))(function( x150 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x150, 1)))(function( x151 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x151, 1)))(function( x152 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x152, 1)))(function( x153 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x153, 1)))(function( x154 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x154, 1)))(function( x155 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x155, 1)))(function( x156 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x156, 1)))(function( x157 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x157, 1)))(function( x158 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x158, 1)))(function( x159 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x159, 1)))(function( x160 ) - return _S_kont346(x1_S_351)(x150)(x160) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - local _S_kont353 = function(x1_S_354) - return function(x80_S_355) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x80_S_355, 1)))(function( x81 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x81, 1)))(function( x82 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x82, 1)))(function( x83 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x83, 1)))(function( x84 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x84, 1)))(function( x85 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x85, 1)))(function( x86 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x86, 1)))(function( x87 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x87, 1)))(function( x88 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x88, 1)))(function( x89 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x89, 1)))(function( x90 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x90, 1)))(function( x91 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x91, 1)))(function( x92 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x92, 1)))(function( x93 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x93, 1)))(function( x94 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x94, 1)))(function( x95 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x95, 1)))(function( x96 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x96, 1)))(function( x97 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x97, 1)))(function( x98 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x98, 1)))(function( x99 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x99, 1)))(function( x100 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x100, 1)))(function( x101 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x101, 1)))(function( x102 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x102, 1)))(function( x103 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x103, 1)))(function( x104 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x104, 1)))(function( x105 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x105, 1)))(function( x106 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x106, 1)))(function( x107 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x107, 1)))(function( x108 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x108, 1)))(function( x109 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x109, 1)))(function( x110 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x110, 1)))(function( x111 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x111, 1)))(function( x112 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x112, 1)))(function( x113 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x113, 1)))(function( x114 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x114, 1)))(function( x115 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x115, 1)))(function( x116 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x116, 1)))(function( x117 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x117, 1)))(function( x118 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x118, 1)))(function( x119 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x119, 1)))(function( x120 ) - return _S_kont350(x1_S_354)(x120) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - local _S_kont356 = function(x1_S_357) - return function(x40_S_358) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x40_S_358, 1)))(function( x41 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x41, 1)))(function( x42 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x42, 1)))(function( x43 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x43, 1)))(function( x44 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x44, 1)))(function( x45 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x45, 1)))(function( x46 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x46, 1)))(function( x47 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x47, 1)))(function( x48 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x48, 1)))(function( x49 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x49, 1)))(function( x50 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x50, 1)))(function( x51 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x51, 1)))(function( x52 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x52, 1)))(function( x53 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x53, 1)))(function( x54 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x54, 1)))(function( x55 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x55, 1)))(function( x56 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x56, 1)))(function( x57 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x57, 1)))(function( x58 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x58, 1)))(function( x59 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x59, 1)))(function( x60 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x60, 1)))(function( x61 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x61, 1)))(function( x62 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x62, 1)))(function( x63 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x63, 1)))(function( x64 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x64, 1)))(function( x65 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x65, 1)))(function( x66 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x66, 1)))(function( x67 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x67, 1)))(function( x68 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x68, 1)))(function( x69 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x69, 1)))(function( x70 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x70, 1)))(function( x71 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x71, 1)))(function( x72 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x72, 1)))(function( x73 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x73, 1)))(function( x74 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x74, 1)))(function( x75 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x75, 1)))(function( x76 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x76, 1)))(function( x77 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x77, 1)))(function( x78 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x78, 1)))(function( x79 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x79, 1)))(function( x80 ) - return _S_kont353(x1_S_357)(x80) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(1))(function(x1) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x1, 1)))(function( x2 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x2, 1)))(function( x3 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x3, 1)))(function( x4 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x4, 1)))(function( x5 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x5, 1)))(function( x6 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x6, 1)))(function( x7 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x7, 1)))(function( x8 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x8, 1)))(function( x9 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x9, 1)))(function( x10 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x10, 1)))(function( x11 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x11, 1)))(function( x12 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x12, 1)))(function( x13 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x13, 1)))(function( x14 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x14, 1)))(function( x15 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x15, 1)))(function( x16 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x16, 1)))(function( x17 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x17, 1)))(function( x18 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x18, 1)))(function( x19 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x19, 1)))(function( x20 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x20, 1)))(function( x21 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x21, 1)))(function( x22 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x22, 1)))(function( x23 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x23, 1)))(function( x24 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x24, 1)))(function( x25 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x25, 1)))(function( x26 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x26, 1)))(function( x27 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x27, 1)))(function( x28 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x28, 1)))(function( x29 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x29, 1)))(function( x30 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x30, 1)))(function( x31 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x31, 1)))(function( x32 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x32, 1)))(function( x33 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x33, 1)))(function( x34 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x34, 1)))(function( x35 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x35, 1)))(function( x36 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x36, 1)))(function( x37 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x37, 1)))(function( x38 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x38, 1)))(function( x39 ) - return M.Golden_LongEitherBind_Test_bind(M.Data_Either_Right(M.Golden_LongEitherBind_Test_add_S_w(x39, 1)))(function( x40 ) - return _S_kont356(x1)(x40) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) + local Golden_LongEitherBind_Test_add_S_w = M.Golden_LongEitherBind_Test_add_S_w + local x150 = (function() + local _S_tmp1237 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(1, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) + local _S_tmp1238 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1237, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) + local _S_tmp1239 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1238, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) + return Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1239, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) + end)() + local _S_tmp1240 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(x150, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) + local _S_tmp1241 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1240, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) + local _S_tmp1242 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1241, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) + return M.Data_Either_Right(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(1, x150), Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1242, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1))) end)() -return M.Effect_Console_foreign.log(M.Data_Show_show({ - show = function(v_S_7_S_333) - if "Data.Either∷Either.Left" == v_S_7_S_333["$ctor"] then - return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showStringImpl - })(v_S_7_S_333.value0), ")")) - elseif "Data.Either∷Either.Right" == v_S_7_S_333["$ctor"] then - return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showIntImpl - })(v_S_7_S_333.value0), ")")) - else - return error("No patterns matched") - end +return M.Effect_Console_foreign.log((function() + if "Data.Either∷Either.Left" == M.Golden_LongEitherBind_Test_compute["$ctor"] then + return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_foreign.showStringImpl(M.Golden_LongEitherBind_Test_compute.value0), ")")) + elseif "Data.Either∷Either.Right" == M.Golden_LongEitherBind_Test_compute["$ctor"] then + return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongEitherBind_Test_compute.value0), ")")) + else + return error("No patterns matched") end -})(M.Golden_LongEitherBind_Test_compute))() +end)())() diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.ir b/test/ps/output/Golden.LongExceptBind.Test/golden.ir index d821f35c..66fd4115 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.ir +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.ir @@ -19,55 +19,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" - }, LiteralObject Nothing - [ - ( PropName "compose", AbsN Nothing - ( ParamNamed Nothing ( Name "f" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "g" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] - ) - ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Either", qnameName = Name "append$w" }, AbsN Nothing ( ParamNamed Nothing @@ -176,20 +127,6 @@ UberModule ) ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "compose" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "ExceptT" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( Ref Nothing ( Local ( Name "x" ) ) ) ), RecursiveGroup ( ( QName @@ -235,10 +172,7 @@ UberModule ( ParamNamed Nothing ( Name "k" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) @@ -246,8 +180,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) @@ -259,39 +194,26 @@ UberModule ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$539" ) ) ) ) ) ( AppN Nothing - ( AppN Nothing + ( ObjectProp Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Except.Trans" ) - ( Name "compose" ) - ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( PropName "Applicative0" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) + ( PropName "pure" ) + ) + ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) :| [] + ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v2$539" ) ) ) - ( PropName "value0" ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v2$539" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( IfThenElse Nothing @@ -348,8 +270,7 @@ UberModule ) ( Let Nothing ( Standalone - ( Nothing, Name "bind$543", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + ( Nothing, Name "bind$543", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$542" ) ) ) @@ -357,8 +278,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) :| [] ) ( AbsN Nothing @@ -380,13 +302,7 @@ UberModule ( AbsN Nothing ( ParamNamed Nothing ( Name "a'$547" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$542" ) ) ) @@ -397,8 +313,9 @@ UberModule ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$546" ) ) ) @@ -423,10 +340,7 @@ UberModule ( ParamNamed Nothing ( Name "v$533" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( AppN Nothing @@ -456,70 +370,50 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "map" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m$541" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Left" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "m$541" ) ) ) + ) ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$540" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "m$541" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Left" ) - ( ReflectCtor Nothing - ( Ref Nothing ( Local ( Name "m$541" ) ) ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Left" ) - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "m$541" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Right" ) - ( ReflectCtor Nothing - ( Ref Nothing ( Local ( Name "m$541" ) ) ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$540" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "m$541" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] - ) - ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "m$541" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Right" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "m$541" ) ) ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f$531" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "m$541" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] ) - ] :| [] + ) + ( Exception Nothing "No patterns matched" ) ) - ) - ( Ref Nothing ( Local ( Name "f$531" ) ) :| [] ) :| [] + ) :| [] ) ) ( Ref Nothing ( Local ( Name "v$533" ) ) :| [] ) @@ -538,41 +432,25 @@ UberModule ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "pure", AppN Nothing + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "x$575$588" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Except.Trans" ) - ( Name "ExceptT" ) - ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( PropName "Applicative0" ) + ) ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) :| [] ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing ( Local ( Name "x$575$588" ) ) :| [] ) :| [] ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) :| [] - ) :| [] ) ), ( PropName "Apply0", AbsN Nothing @@ -594,34 +472,14 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "bind" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + }, ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "bindExceptT" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] - ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "except" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "ExceptT" ) ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Identity" ) ( Name "applicativeIdentity" ) ) :| [] - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] ) ) + ( PropName "bind" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "add$w" @@ -636,29 +494,24 @@ UberModule { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont557", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$558" ) :| [] ) + ( Nothing, Name "$kont793", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$794" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x160$559" ) :| [] ) + ( ParamNamed Nothing ( Name "x160$795" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing - ( Local ( Name "x160$559" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x160$795" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -671,24 +524,17 @@ UberModule ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x161" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x161" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -702,26 +548,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x162" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x162" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -738,26 +576,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x163" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x163" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -774,26 +604,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x164" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x164" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -810,29 +632,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x165" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x165" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -850,28 +661,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x166" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x166" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -889,28 +692,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x167" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x167" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -928,28 +723,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x168" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x168" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -967,28 +754,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x169" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x169" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1006,28 +785,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x170" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x170" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1047,28 +818,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x171" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x171" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1088,30 +851,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x172" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x172" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1131,30 +886,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x173" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x173" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1174,30 +921,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x174" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x174" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1217,30 +956,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x175" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x175" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1260,30 +991,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x176" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x176" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1303,30 +1026,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x177" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x177" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1346,30 +1061,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x178" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x178" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1389,30 +1096,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x179" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x179" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1432,30 +1131,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x180" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x180" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1475,30 +1166,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x181" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x181" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1518,30 +1201,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x182" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x182" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1561,30 +1236,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x183" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x183" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1604,30 +1271,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x184" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x184" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1647,30 +1306,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x185" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x185" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1690,30 +1341,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x186" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x186" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1733,33 +1376,25 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x187" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) :| [] - ) + ( Ref Nothing + ( Local + ( Name "x187" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) ) ( AbsN Nothing ( ParamNamed Nothing @@ -1776,30 +1411,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x188" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x188" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1819,30 +1446,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x189" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x189" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1862,30 +1481,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x190" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x190" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1905,30 +1516,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x191" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x191" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1948,30 +1551,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x192" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x192" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -1991,30 +1586,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x193" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x193" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2034,30 +1621,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x194" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x194" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2077,30 +1656,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x195" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x195" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2120,30 +1691,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x196" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x196" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2163,30 +1726,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x197" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x197" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2206,30 +1761,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x198" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x198" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2249,30 +1796,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x199" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x199" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2282,13 +1821,7 @@ UberModule ( Name "x200" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported @@ -2301,8 +1834,9 @@ UberModule ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing @@ -2313,7 +1847,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x1$558" ) + ( Name "x1$794" ) ) :| [ Ref Nothing ( Local @@ -2406,32 +1940,24 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont560", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$561" ) :| [] ) + ( Nothing, Name "$kont796", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$797" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x120$562" ) :| [] ) + ( ParamNamed Nothing ( Name "x120$798" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x120$562" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x120$798" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2445,26 +1971,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x121" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x121" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2481,26 +1999,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x122" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x122" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2517,26 +2027,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x123" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x123" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2553,26 +2055,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x124" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x124" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2590,28 +2084,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x125" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x125" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2629,28 +2115,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x126" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x126" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2668,28 +2146,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x127" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x127" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2707,28 +2177,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x128" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x128" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2746,28 +2208,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x129" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x129" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2787,28 +2241,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x130" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x130" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2828,30 +2274,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x131" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x131" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2871,30 +2307,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x132" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x132" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2914,30 +2342,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x133" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x133" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -2957,30 +2377,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x134" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3000,30 +2412,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x135" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x135" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3043,30 +2447,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x136" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x136" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3086,30 +2482,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x137" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x137" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3129,30 +2517,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x138" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x138" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3172,30 +2552,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x139" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x139" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3215,30 +2587,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x140" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3258,30 +2622,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x141" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x141" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3301,30 +2657,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x142" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x142" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3344,30 +2692,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x143" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x143" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3387,30 +2727,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x144" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x144" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3430,30 +2762,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x145" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x145" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3473,30 +2797,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x146" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x146" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3516,30 +2832,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x147" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x147" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3559,30 +2867,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x148" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x148" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3602,30 +2902,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x149" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3645,30 +2937,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x150" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3688,30 +2972,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x151" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x151" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3731,30 +3007,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x152" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x152" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3774,30 +3042,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x153" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x153" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3817,30 +3077,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x154" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x154" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3860,30 +3112,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x155" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x155" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3903,30 +3147,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x156" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x156" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3946,30 +3182,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x157" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x157" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -3989,30 +3217,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x158" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x158" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4032,30 +3252,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x159" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x159" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4068,12 +3280,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont557" ) + ( Name "$kont793" ) ) ) ( Ref Nothing ( Local - ( Name "x1$561" ) + ( Name "x1$797" ) ) :| [] ) ) @@ -4165,32 +3377,24 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont563", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$564" ) :| [] ) + ( Nothing, Name "$kont799", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$800" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x80$565" ) :| [] ) + ( ParamNamed Nothing ( Name "x80$801" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x80$565" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x80$801" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4204,26 +3408,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x81" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x81" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4240,26 +3436,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x82" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x82" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4276,26 +3464,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x83" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x83" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4312,26 +3492,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x84" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x84" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4349,28 +3521,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x85" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x85" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4388,28 +3552,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x86" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x86" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4427,28 +3583,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x87" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x87" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4466,28 +3614,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x88" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x88" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4505,28 +3645,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x89" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x89" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4544,28 +3676,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x90" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x90" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4585,28 +3709,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x91" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x91" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4626,30 +3742,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x92" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x92" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4669,30 +3777,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x93" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x93" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4712,30 +3812,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x94" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4755,30 +3847,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x95" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x95" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4798,30 +3882,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x96" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x96" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4841,30 +3917,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x97" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x97" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4884,30 +3952,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x98" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x98" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4927,30 +3987,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x99" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x99" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -4970,30 +4022,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x100" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5013,30 +4057,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x101" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x101" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5056,30 +4092,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x102" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x102" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5099,30 +4127,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x103" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x103" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5142,30 +4162,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x104" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x104" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5185,30 +4197,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x105" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x105" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5228,30 +4232,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x106" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x106" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5271,30 +4267,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x107" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x107" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5314,30 +4302,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local - ( Name "x108" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local + ( Name "x108" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5357,30 +4337,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x109" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5400,30 +4372,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x110" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x110" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5443,30 +4407,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x111" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x111" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5486,30 +4442,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x112" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5529,30 +4477,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x113" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x113" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5572,30 +4512,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x114" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x114" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5615,30 +4547,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x115" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5658,30 +4582,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x116" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x116" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5701,30 +4617,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x117" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x117" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5744,30 +4652,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x118" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5787,30 +4687,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x119" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x119" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5823,12 +4715,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont560" ) + ( Name "$kont796" ) ) ) ( Ref Nothing ( Local - ( Name "x1$564" ) + ( Name "x1$800" ) ) :| [] ) ) @@ -5920,32 +4812,24 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont566", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$567" ) :| [] ) + ( Nothing, Name "$kont802", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$803" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x40$568" ) :| [] ) + ( ParamNamed Nothing ( Name "x40$804" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x40$568" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "x40$804" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5959,26 +4843,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x41" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x41" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -5995,26 +4871,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x42" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x42" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6031,26 +4899,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x43" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x43" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6067,26 +4927,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x44" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x44" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6104,28 +4956,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x45" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x45" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6143,28 +4987,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x46" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x46" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6182,28 +5018,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x47" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x47" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6221,28 +5049,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x48" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x48" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6260,28 +5080,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x49" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x49" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6299,28 +5111,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x50" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x50" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6340,28 +5144,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x51" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x51" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6381,30 +5177,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local - ( Name "x52" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local + ( Name "x52" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6424,30 +5212,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x53" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x53" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6467,30 +5247,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x54" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6510,30 +5282,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x55" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x55" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6553,30 +5317,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x56" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x56" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6596,30 +5352,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x57" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x57" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6639,30 +5387,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x58" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x58" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6682,30 +5422,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x59" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x59" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6725,30 +5457,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x60" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6768,30 +5492,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x61" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x61" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6811,30 +5527,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x62" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x62" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6854,30 +5562,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x63" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x63" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6897,30 +5597,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x64" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x64" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6940,30 +5632,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x65" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x65" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -6983,30 +5667,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x66" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x66" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7026,30 +5702,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x67" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x67" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7069,30 +5737,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x68" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x68" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7112,30 +5772,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x69" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x69" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7155,30 +5807,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x70" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x70" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7198,30 +5842,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x71" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x71" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7241,30 +5877,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x72" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x72" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7284,30 +5912,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x73" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x73" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7327,30 +5947,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x74" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x74" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7370,30 +5982,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x75" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x75" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7413,30 +6017,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x76" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x76" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7456,30 +6052,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x77" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x77" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7499,30 +6087,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x78" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x78" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7542,30 +6122,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x79" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x79" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7578,12 +6150,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont563" ) + ( Name "$kont799" ) ) ) ( Ref Nothing ( Local - ( Name "x1$567" ) + ( Name "x1$803" ) ) :| [] ) ) @@ -7683,13 +6255,8 @@ UberModule ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( LiteralInt Nothing 1 :| [] ) :| [] ) ) ( AbsN Nothing @@ -7700,17 +6267,12 @@ UberModule ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing ( Local ( Name "x1" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -7722,20 +6284,12 @@ UberModule ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "bind" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "except" ) ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing ( Local ( Name "x2" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x2" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -7748,26 +6302,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x3" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x3" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7784,26 +6330,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x4" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x4" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7820,26 +6358,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x5" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x5" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7856,26 +6386,18 @@ UberModule ) ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) - ) + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) + ( Imported + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) - ( Ref Nothing - ( Local ( Name "x6" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ) + ( Ref Nothing + ( Local ( Name "x6" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7893,28 +6415,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x7" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x7" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7932,28 +6446,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x8" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x8" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -7971,28 +6477,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x9" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x9" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8010,28 +6508,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x10" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x10" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8049,28 +6539,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x11" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x11" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8088,28 +6570,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x12" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x12" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8129,28 +6603,20 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local ( Name "x13" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local ( Name "x13" ) ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8170,30 +6636,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x14" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x14" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8213,30 +6671,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x15" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x15" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8256,30 +6706,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x16" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x16" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8299,30 +6741,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x17" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x17" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8342,30 +6776,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x18" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x18" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8385,30 +6811,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x19" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x19" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8428,30 +6846,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x20" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x20" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8471,30 +6881,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x21" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x21" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8514,30 +6916,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x22" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x22" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8557,30 +6951,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x23" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x23" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8600,30 +6986,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x24" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x24" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8643,30 +7021,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x25" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x25" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8686,30 +7056,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x26" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x26" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8729,30 +7091,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x27" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x27" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8772,30 +7126,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x28" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x28" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8815,30 +7161,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x29" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x29" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8858,30 +7196,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x30" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x30" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8901,30 +7231,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x31" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x31" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8944,30 +7266,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x32" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x32" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -8987,30 +7301,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x33" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x33" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -9030,30 +7336,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x34" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x34" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -9073,30 +7371,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x35" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x35" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -9116,30 +7406,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x36" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x36" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -9159,30 +7441,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x37" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x37" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -9202,30 +7476,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x38" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x38" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -9245,30 +7511,22 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "except" ) + ( ModuleName "Data.Either" ) + ( Name "Right" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Either" ) - ( Name "Right" ) + ( ModuleName "Golden.LongExceptBind.Test" ) + ( Name "add$w" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongExceptBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x39" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( Ref Nothing + ( Local + ( Name "x39" ) + ) :| + [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) @@ -9281,7 +7539,7 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont566" ) + ( Name "$kont802" ) ) ) ( Ref Nothing @@ -9380,23 +7638,9 @@ UberModule ( QName { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "compute" }, AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] - ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$39" ) :| [] ) - ( Ref Nothing ( Local ( Name "v$39" ) ) ) :| [] - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) + ( PropName "unsafeCoerce" ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "go" ) ) :| [] ) ) @@ -9413,98 +7657,67 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Left" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) + ) + ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$189$556" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Left" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$189$556" ) ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Left " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showStringImpl" ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) - ( LiteralString Nothing "(Left " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showStringImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$189$556" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] + ) + ] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Right" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) + ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Right " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Right" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$189$556" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( LiteralString Nothing "(Right " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$189$556" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) ) - ( Exception Nothing "No patterns matched" ) - ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] ) - ) - ] :| [] + ] + ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) :| [] + ( Exception Nothing "No patterns matched" ) ) :| [] ) ) diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.lua b/test/ps/output/Golden.LongExceptBind.Test/golden.lua index 4966ce25..89c2ce1f 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.lua +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.lua @@ -45,16 +45,6 @@ M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Semigroupoid_semigroupoidFn = { - compose = function(f) - return function(g) return function(x) return f(g(x)) end end - end -} -M.Control_Semigroupoid_compose = function(dict) return dict.compose end -M.Data_Show_show = function(dict) return dict.show end -M.Data_Functor_map = function(dict) return dict.map end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end M.Data_Either_append_S_w = function(s1_S_513_S_554, s2_S_514_S_555) return s1_S_513_S_554 .. s2_S_514_S_555 end @@ -89,8 +79,6 @@ M.Data_Identity_monadIdentity = { } end } -M.Control_Monad_Except_Trans_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) -M.Control_Monad_Except_Trans_ExceptT = function(x) return x end M.Control_Monad_Except_Trans_monadExceptT = function(dictMonad) return { Applicative0 = function() @@ -105,9 +93,9 @@ M.Control_Monad_Except_Trans_bindExceptT = function(dictMonad) return { bind = function(v) return function(k) - return M.Control_Bind_bind(dictMonad.Bind1())(v)(function(v2_S_539) + return (dictMonad.Bind1()).bind(v)(function(v2_S_539) if "Data.Either∷Either.Left" == v2_S_539["$ctor"] then - return M.Control_Monad_Except_Trans_compose(M.Control_Applicative_pure(dictMonad.Applicative0()))(M.Data_Either_Left)(v2_S_539.value0) + return (dictMonad.Applicative0()).pure(M.Data_Either_Left(v2_S_539.value0)) elseif "Data.Either∷Either.Right" == v2_S_539["$ctor"] then return k(v2_S_539.value0) else @@ -125,12 +113,12 @@ M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) return { apply = (function() local dictMonad_S_542 = M.Control_Monad_Except_Trans_monadExceptT(dictMonad) - local bind_S_543 = M.Control_Bind_bind(dictMonad_S_542.Bind1()) + local bind_S_543 = (dictMonad_S_542.Bind1()).bind return function(f_S_544) return function(a_S_545) return bind_S_543(f_S_544)(function(fPrime_S_546) return bind_S_543(a_S_545)(function(aPrime_S_547) - return M.Control_Applicative_pure(dictMonad_S_542.Applicative0())(fPrime_S_546(aPrime_S_547)) + return (dictMonad_S_542.Applicative0()).pure(fPrime_S_546(aPrime_S_547)) end) end) end @@ -140,20 +128,15 @@ M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) return { map = function(f_S_531) return function(v_S_533) - local Data_Functor_map = M.Data_Functor_map - return Data_Functor_map(((dictMonad.Bind1()).Apply0()).Functor0())(Data_Functor_map({ - map = function(f_S_540) - return function(m_S_541) - if "Data.Either∷Either.Left" == m_S_541["$ctor"] then - return M.Data_Either_Left(m_S_541.value0) - elseif "Data.Either∷Either.Right" == m_S_541["$ctor"] then - return M.Data_Either_Right(f_S_540(m_S_541.value0)) - else - return error("No patterns matched") - end - end + return (((dictMonad.Bind1()).Apply0()).Functor0()).map(function( m_S_541 ) + if "Data.Either∷Either.Left" == m_S_541["$ctor"] then + return M.Data_Either_Left(m_S_541.value0) + elseif "Data.Either∷Either.Right" == m_S_541["$ctor"] then + return M.Data_Either_Right(f_S_531(m_S_541.value0)) + else + return error("No patterns matched") end - })(f_S_531))(v_S_533) + end)(v_S_533) end end } @@ -161,63 +144,63 @@ M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) } end M.Control_Monad_Except_Trans_applicativeExceptT = function(dictMonad) - local Control_Monad_Except_Trans_compose = M.Control_Monad_Except_Trans_compose return { - pure = Control_Monad_Except_Trans_compose(M.Control_Monad_Except_Trans_ExceptT)(Control_Monad_Except_Trans_compose(M.Control_Applicative_pure(dictMonad.Applicative0()))(M.Data_Either_Right)), + pure = function(x_S_575_S_588) + return (dictMonad.Applicative0()).pure(M.Data_Either_Right(x_S_575_S_588)) + end, Apply0 = function() return M.Control_Monad_Except_Trans_applyExceptT(dictMonad) end } end -M.Golden_LongExceptBind_Test_bind = M.Control_Bind_bind(M.Control_Monad_Except_Trans_bindExceptT(M.Data_Identity_monadIdentity)) -M.Golden_LongExceptBind_Test_except = M.Control_Monad_Except_Trans_compose(M.Control_Monad_Except_Trans_ExceptT)(M.Control_Applicative_pure(M.Data_Identity_applicativeIdentity)) +M.Golden_LongExceptBind_Test_bind = (M.Control_Monad_Except_Trans_bindExceptT(M.Data_Identity_monadIdentity)).bind M.Golden_LongExceptBind_Test_add_S_w = function(x_S_511_S_549, y_S_512_S_550) return x_S_511_S_549 + y_S_512_S_550 end M.Golden_LongExceptBind_Test_go = (function() - local _S_kont557 = function(x1_S_558) - return function(x160_S_559) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x160_S_559, 1))))(function( x161 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x161, 1))))(function( x162 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x162, 1))))(function( x163 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x163, 1))))(function( x164 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x164, 1))))(function( x165 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x165, 1))))(function( x166 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x166, 1))))(function( x167 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x167, 1))))(function( x168 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x168, 1))))(function( x169 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x169, 1))))(function( x170 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x170, 1))))(function( x171 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x171, 1))))(function( x172 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x172, 1))))(function( x173 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x173, 1))))(function( x174 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x174, 1))))(function( x175 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x175, 1))))(function( x176 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x176, 1))))(function( x177 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x177, 1))))(function( x178 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x178, 1))))(function( x179 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x179, 1))))(function( x180 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x180, 1))))(function( x181 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x181, 1))))(function( x182 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x182, 1))))(function( x183 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x183, 1))))(function( x184 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x184, 1))))(function( x185 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x185, 1))))(function( x186 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x186, 1))))(function( x187 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x187, 1))))(function( x188 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x188, 1))))(function( x189 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x189, 1))))(function( x190 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x190, 1))))(function( x191 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x191, 1))))(function( x192 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x192, 1))))(function( x193 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x193, 1))))(function( x194 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x194, 1))))(function( x195 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x195, 1))))(function( x196 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x196, 1))))(function( x197 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x197, 1))))(function( x198 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x198, 1))))(function( x199 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x199, 1))))(function( x200 ) - return M.Control_Applicative_pure(M.Control_Monad_Except_Trans_applicativeExceptT(M.Data_Identity_monadIdentity))(M.Golden_LongExceptBind_Test_add_S_w(x1_S_558, x200)) + local _S_kont793 = function(x1_S_794) + return function(x160_S_795) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x160_S_795, 1)))(function( x161 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x161, 1)))(function( x162 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x162, 1)))(function( x163 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x163, 1)))(function( x164 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x164, 1)))(function( x165 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x165, 1)))(function( x166 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x166, 1)))(function( x167 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x167, 1)))(function( x168 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x168, 1)))(function( x169 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x169, 1)))(function( x170 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x170, 1)))(function( x171 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x171, 1)))(function( x172 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x172, 1)))(function( x173 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x173, 1)))(function( x174 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x174, 1)))(function( x175 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x175, 1)))(function( x176 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x176, 1)))(function( x177 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x177, 1)))(function( x178 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x178, 1)))(function( x179 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x179, 1)))(function( x180 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x180, 1)))(function( x181 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x181, 1)))(function( x182 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x182, 1)))(function( x183 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x183, 1)))(function( x184 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x184, 1)))(function( x185 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x185, 1)))(function( x186 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x186, 1)))(function( x187 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x187, 1)))(function( x188 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x188, 1)))(function( x189 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x189, 1)))(function( x190 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x190, 1)))(function( x191 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x191, 1)))(function( x192 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x192, 1)))(function( x193 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x193, 1)))(function( x194 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x194, 1)))(function( x195 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x195, 1)))(function( x196 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x196, 1)))(function( x197 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x197, 1)))(function( x198 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x198, 1)))(function( x199 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x199, 1)))(function( x200 ) + return (M.Control_Monad_Except_Trans_applicativeExceptT(M.Data_Identity_monadIdentity)).pure(M.Golden_LongExceptBind_Test_add_S_w(x1_S_794, x200)) end) end) end) @@ -260,49 +243,49 @@ M.Golden_LongExceptBind_Test_go = (function() end) end end - local _S_kont560 = function(x1_S_561) - return function(x120_S_562) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x120_S_562, 1))))(function( x121 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x121, 1))))(function( x122 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x122, 1))))(function( x123 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x123, 1))))(function( x124 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x124, 1))))(function( x125 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x125, 1))))(function( x126 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x126, 1))))(function( x127 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x127, 1))))(function( x128 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x128, 1))))(function( x129 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x129, 1))))(function( x130 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x130, 1))))(function( x131 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x131, 1))))(function( x132 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x132, 1))))(function( x133 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x133, 1))))(function( x134 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x134, 1))))(function( x135 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x135, 1))))(function( x136 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x136, 1))))(function( x137 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x137, 1))))(function( x138 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x138, 1))))(function( x139 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x139, 1))))(function( x140 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x140, 1))))(function( x141 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x141, 1))))(function( x142 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x142, 1))))(function( x143 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x143, 1))))(function( x144 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x144, 1))))(function( x145 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x145, 1))))(function( x146 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x146, 1))))(function( x147 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x147, 1))))(function( x148 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x148, 1))))(function( x149 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x149, 1))))(function( x150 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x150, 1))))(function( x151 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x151, 1))))(function( x152 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x152, 1))))(function( x153 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x153, 1))))(function( x154 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x154, 1))))(function( x155 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x155, 1))))(function( x156 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x156, 1))))(function( x157 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x157, 1))))(function( x158 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x158, 1))))(function( x159 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x159, 1))))(function( x160 ) - return _S_kont557(x1_S_561)(x160) + local _S_kont796 = function(x1_S_797) + return function(x120_S_798) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x120_S_798, 1)))(function( x121 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x121, 1)))(function( x122 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x122, 1)))(function( x123 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x123, 1)))(function( x124 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x124, 1)))(function( x125 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x125, 1)))(function( x126 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x126, 1)))(function( x127 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x127, 1)))(function( x128 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x128, 1)))(function( x129 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x129, 1)))(function( x130 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x130, 1)))(function( x131 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x131, 1)))(function( x132 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x132, 1)))(function( x133 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x133, 1)))(function( x134 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x134, 1)))(function( x135 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x135, 1)))(function( x136 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x136, 1)))(function( x137 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x137, 1)))(function( x138 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x138, 1)))(function( x139 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x139, 1)))(function( x140 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x140, 1)))(function( x141 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x141, 1)))(function( x142 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x142, 1)))(function( x143 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x143, 1)))(function( x144 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x144, 1)))(function( x145 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x145, 1)))(function( x146 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x146, 1)))(function( x147 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x147, 1)))(function( x148 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x148, 1)))(function( x149 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x149, 1)))(function( x150 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x150, 1)))(function( x151 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x151, 1)))(function( x152 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x152, 1)))(function( x153 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x153, 1)))(function( x154 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x154, 1)))(function( x155 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x155, 1)))(function( x156 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x156, 1)))(function( x157 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x157, 1)))(function( x158 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x158, 1)))(function( x159 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x159, 1)))(function( x160 ) + return _S_kont793(x1_S_797)(x160) end) end) end) @@ -345,49 +328,49 @@ M.Golden_LongExceptBind_Test_go = (function() end) end end - local _S_kont563 = function(x1_S_564) - return function(x80_S_565) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x80_S_565, 1))))(function( x81 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x81, 1))))(function( x82 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x82, 1))))(function( x83 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x83, 1))))(function( x84 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x84, 1))))(function( x85 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x85, 1))))(function( x86 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x86, 1))))(function( x87 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x87, 1))))(function( x88 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x88, 1))))(function( x89 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x89, 1))))(function( x90 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x90, 1))))(function( x91 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x91, 1))))(function( x92 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x92, 1))))(function( x93 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x93, 1))))(function( x94 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x94, 1))))(function( x95 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x95, 1))))(function( x96 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x96, 1))))(function( x97 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x97, 1))))(function( x98 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x98, 1))))(function( x99 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x99, 1))))(function( x100 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x100, 1))))(function( x101 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x101, 1))))(function( x102 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x102, 1))))(function( x103 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x103, 1))))(function( x104 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x104, 1))))(function( x105 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x105, 1))))(function( x106 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x106, 1))))(function( x107 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x107, 1))))(function( x108 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x108, 1))))(function( x109 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x109, 1))))(function( x110 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x110, 1))))(function( x111 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x111, 1))))(function( x112 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x112, 1))))(function( x113 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x113, 1))))(function( x114 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x114, 1))))(function( x115 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x115, 1))))(function( x116 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x116, 1))))(function( x117 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x117, 1))))(function( x118 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x118, 1))))(function( x119 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x119, 1))))(function( x120 ) - return _S_kont560(x1_S_564)(x120) + local _S_kont799 = function(x1_S_800) + return function(x80_S_801) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x80_S_801, 1)))(function( x81 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x81, 1)))(function( x82 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x82, 1)))(function( x83 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x83, 1)))(function( x84 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x84, 1)))(function( x85 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x85, 1)))(function( x86 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x86, 1)))(function( x87 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x87, 1)))(function( x88 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x88, 1)))(function( x89 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x89, 1)))(function( x90 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x90, 1)))(function( x91 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x91, 1)))(function( x92 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x92, 1)))(function( x93 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x93, 1)))(function( x94 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x94, 1)))(function( x95 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x95, 1)))(function( x96 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x96, 1)))(function( x97 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x97, 1)))(function( x98 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x98, 1)))(function( x99 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x99, 1)))(function( x100 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x100, 1)))(function( x101 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x101, 1)))(function( x102 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x102, 1)))(function( x103 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x103, 1)))(function( x104 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x104, 1)))(function( x105 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x105, 1)))(function( x106 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x106, 1)))(function( x107 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x107, 1)))(function( x108 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x108, 1)))(function( x109 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x109, 1)))(function( x110 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x110, 1)))(function( x111 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x111, 1)))(function( x112 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x112, 1)))(function( x113 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x113, 1)))(function( x114 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x114, 1)))(function( x115 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x115, 1)))(function( x116 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x116, 1)))(function( x117 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x117, 1)))(function( x118 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x118, 1)))(function( x119 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x119, 1)))(function( x120 ) + return _S_kont796(x1_S_800)(x120) end) end) end) @@ -430,49 +413,49 @@ M.Golden_LongExceptBind_Test_go = (function() end) end end - local _S_kont566 = function(x1_S_567) - return function(x40_S_568) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x40_S_568, 1))))(function( x41 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x41, 1))))(function( x42 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x42, 1))))(function( x43 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x43, 1))))(function( x44 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x44, 1))))(function( x45 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x45, 1))))(function( x46 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x46, 1))))(function( x47 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x47, 1))))(function( x48 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x48, 1))))(function( x49 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x49, 1))))(function( x50 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x50, 1))))(function( x51 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x51, 1))))(function( x52 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x52, 1))))(function( x53 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x53, 1))))(function( x54 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x54, 1))))(function( x55 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x55, 1))))(function( x56 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x56, 1))))(function( x57 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x57, 1))))(function( x58 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x58, 1))))(function( x59 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x59, 1))))(function( x60 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x60, 1))))(function( x61 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x61, 1))))(function( x62 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x62, 1))))(function( x63 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x63, 1))))(function( x64 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x64, 1))))(function( x65 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x65, 1))))(function( x66 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x66, 1))))(function( x67 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x67, 1))))(function( x68 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x68, 1))))(function( x69 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x69, 1))))(function( x70 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x70, 1))))(function( x71 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x71, 1))))(function( x72 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x72, 1))))(function( x73 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x73, 1))))(function( x74 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x74, 1))))(function( x75 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x75, 1))))(function( x76 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x76, 1))))(function( x77 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x77, 1))))(function( x78 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x78, 1))))(function( x79 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x79, 1))))(function( x80 ) - return _S_kont563(x1_S_567)(x80) + local _S_kont802 = function(x1_S_803) + return function(x40_S_804) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x40_S_804, 1)))(function( x41 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x41, 1)))(function( x42 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x42, 1)))(function( x43 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x43, 1)))(function( x44 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x44, 1)))(function( x45 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x45, 1)))(function( x46 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x46, 1)))(function( x47 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x47, 1)))(function( x48 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x48, 1)))(function( x49 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x49, 1)))(function( x50 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x50, 1)))(function( x51 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x51, 1)))(function( x52 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x52, 1)))(function( x53 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x53, 1)))(function( x54 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x54, 1)))(function( x55 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x55, 1)))(function( x56 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x56, 1)))(function( x57 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x57, 1)))(function( x58 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x58, 1)))(function( x59 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x59, 1)))(function( x60 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x60, 1)))(function( x61 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x61, 1)))(function( x62 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x62, 1)))(function( x63 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x63, 1)))(function( x64 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x64, 1)))(function( x65 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x65, 1)))(function( x66 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x66, 1)))(function( x67 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x67, 1)))(function( x68 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x68, 1)))(function( x69 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x69, 1)))(function( x70 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x70, 1)))(function( x71 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x71, 1)))(function( x72 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x72, 1)))(function( x73 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x73, 1)))(function( x74 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x74, 1)))(function( x75 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x75, 1)))(function( x76 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x76, 1)))(function( x77 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x77, 1)))(function( x78 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x78, 1)))(function( x79 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x79, 1)))(function( x80 ) + return _S_kont799(x1_S_803)(x80) end) end) end) @@ -515,47 +498,47 @@ M.Golden_LongExceptBind_Test_go = (function() end) end end - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(1)))(function( x1 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x1, 1))))(function( x2 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x2, 1))))(function( x3 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x3, 1))))(function( x4 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x4, 1))))(function( x5 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x5, 1))))(function( x6 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x6, 1))))(function( x7 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x7, 1))))(function( x8 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x8, 1))))(function( x9 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x9, 1))))(function( x10 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x10, 1))))(function( x11 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x11, 1))))(function( x12 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x12, 1))))(function( x13 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x13, 1))))(function( x14 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x14, 1))))(function( x15 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x15, 1))))(function( x16 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x16, 1))))(function( x17 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x17, 1))))(function( x18 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x18, 1))))(function( x19 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x19, 1))))(function( x20 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x20, 1))))(function( x21 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x21, 1))))(function( x22 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x22, 1))))(function( x23 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x23, 1))))(function( x24 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x24, 1))))(function( x25 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x25, 1))))(function( x26 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x26, 1))))(function( x27 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x27, 1))))(function( x28 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x28, 1))))(function( x29 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x29, 1))))(function( x30 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x30, 1))))(function( x31 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x31, 1))))(function( x32 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x32, 1))))(function( x33 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x33, 1))))(function( x34 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x34, 1))))(function( x35 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x35, 1))))(function( x36 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x36, 1))))(function( x37 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x37, 1))))(function( x38 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x38, 1))))(function( x39 ) - return M.Golden_LongExceptBind_Test_bind(M.Golden_LongExceptBind_Test_except(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x39, 1))))(function( x40 ) - return _S_kont566(x1)(x40) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(1))(function(x1) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x1, 1)))(function( x2 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x2, 1)))(function( x3 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x3, 1)))(function( x4 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x4, 1)))(function( x5 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x5, 1)))(function( x6 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x6, 1)))(function( x7 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x7, 1)))(function( x8 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x8, 1)))(function( x9 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x9, 1)))(function( x10 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x10, 1)))(function( x11 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x11, 1)))(function( x12 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x12, 1)))(function( x13 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x13, 1)))(function( x14 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x14, 1)))(function( x15 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x15, 1)))(function( x16 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x16, 1)))(function( x17 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x17, 1)))(function( x18 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x18, 1)))(function( x19 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x19, 1)))(function( x20 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x20, 1)))(function( x21 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x21, 1)))(function( x22 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x22, 1)))(function( x23 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x23, 1)))(function( x24 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x24, 1)))(function( x25 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x25, 1)))(function( x26 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x26, 1)))(function( x27 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x27, 1)))(function( x28 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x28, 1)))(function( x29 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x29, 1)))(function( x30 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x30, 1)))(function( x31 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x31, 1)))(function( x32 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x32, 1)))(function( x33 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x33, 1)))(function( x34 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x34, 1)))(function( x35 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x35, 1)))(function( x36 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x36, 1)))(function( x37 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x37, 1)))(function( x38 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x38, 1)))(function( x39 ) + return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x39, 1)))(function( x40 ) + return _S_kont802(x1)(x40) end) end) end) @@ -597,21 +580,13 @@ M.Golden_LongExceptBind_Test_go = (function() end) end) end)() -M.Golden_LongExceptBind_Test_compute = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn)(M.Unsafe_Coerce_foreign.unsafeCoerce)(function( v_S_39 ) - return v_S_39 -end)(M.Golden_LongExceptBind_Test_go) -return M.Effect_Console_foreign.log(M.Data_Show_show({ - show = function(v_S_189_S_556) - if "Data.Either∷Either.Left" == v_S_189_S_556["$ctor"] then - return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showStringImpl - })(v_S_189_S_556.value0), ")")) - elseif "Data.Either∷Either.Right" == v_S_189_S_556["$ctor"] then - return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showIntImpl - })(v_S_189_S_556.value0), ")")) - else - return error("No patterns matched") - end +M.Golden_LongExceptBind_Test_compute = M.Unsafe_Coerce_foreign.unsafeCoerce(M.Golden_LongExceptBind_Test_go) +return M.Effect_Console_foreign.log((function() + if "Data.Either∷Either.Left" == M.Golden_LongExceptBind_Test_compute["$ctor"] then + return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_foreign.showStringImpl(M.Golden_LongExceptBind_Test_compute.value0), ")")) + elseif "Data.Either∷Either.Right" == M.Golden_LongExceptBind_Test_compute["$ctor"] then + return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongExceptBind_Test_compute.value0), ")")) + else + return error("No patterns matched") end -})(M.Golden_LongExceptBind_Test_compute))() +end)())() diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir index 4be7d9cd..1f3372b3 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir @@ -19,11 +19,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "append$w" }, AbsN Nothing ( ParamNamed Nothing @@ -86,10 +81,10 @@ UberModule { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "compute" }, Let Nothing ( Standalone - ( Nothing, Name "$kont318", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$319" ) :| [] ) + ( Nothing, Name "$kont320", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$321" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x277$320" ) :| [] ) + ( ParamNamed Nothing ( Name "x277$322" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) @@ -100,7 +95,7 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) ) - ( Ref Nothing ( Local ( Name "x277$320" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ( Ref Nothing ( Local ( Name "x277$322" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [ AbsN Nothing ( ParamNamed Nothing ( Name "x278" ) :| [] ) @@ -778,7 +773,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x1$319" ) + ( Name "x1$321" ) ) :| [ Ref Nothing ( Local @@ -860,10 +855,10 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont321", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$322" ) :| [] ) + ( Nothing, Name "$kont323", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$324" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x238$323" ) :| [] ) + ( ParamNamed Nothing ( Name "x238$325" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) @@ -875,7 +870,7 @@ UberModule ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) ) ( Ref Nothing - ( Local ( Name "x238$323" ) ) :| + ( Local ( Name "x238$325" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| @@ -2088,12 +2083,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont318" ) + ( Name "$kont320" ) ) ) ( Ref Nothing ( Local - ( Name "x1$322" ) + ( Name "x1$324" ) ) :| [] ) ) @@ -2225,10 +2220,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont324", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$325" ) :| [] ) + ( Nothing, Name "$kont326", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$327" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x198$326" ) :| [] ) + ( ParamNamed Nothing ( Name "x198$328" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) @@ -2240,7 +2235,7 @@ UberModule ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) ) ( Ref Nothing - ( Local ( Name "x198$326" ) ) :| + ( Local ( Name "x198$328" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| @@ -3460,12 +3455,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont321" ) + ( Name "$kont323" ) ) ) ( Ref Nothing ( Local - ( Name "x1$325" ) + ( Name "x1$327" ) ) :| [] ) ) @@ -3597,10 +3592,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont327", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$328" ) :| [] ) + ( Nothing, Name "$kont329", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$330" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x158$329" ) :| [] ) + ( ParamNamed Nothing ( Name "x158$331" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) @@ -3612,7 +3607,7 @@ UberModule ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) ) ( Ref Nothing - ( Local ( Name "x158$329" ) ) :| + ( Local ( Name "x158$331" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| @@ -4832,12 +4827,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont324" ) + ( Name "$kont326" ) ) ) ( Ref Nothing ( Local - ( Name "x1$328" ) + ( Name "x1$330" ) ) :| [] ) ) @@ -4969,10 +4964,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont330", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$331" ) :| [] ) + ( Nothing, Name "$kont332", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$333" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x119$332" ) :| [] ) + ( ParamNamed Nothing ( Name "x119$334" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) @@ -4984,7 +4979,7 @@ UberModule ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) ) ( Ref Nothing - ( Local ( Name "x119$332" ) ) :| + ( Local ( Name "x119$334" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| @@ -6197,12 +6192,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont327" ) + ( Name "$kont329" ) ) ) ( Ref Nothing ( Local - ( Name "x1$331" ) + ( Name "x1$333" ) ) :| [] ) ) @@ -6334,10 +6329,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont333", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$334" ) :| [] ) + ( Nothing, Name "$kont335", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$336" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x79$335" ) :| [] ) + ( ParamNamed Nothing ( Name "x79$337" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) @@ -6348,7 +6343,7 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) ) - ( Ref Nothing ( Local ( Name "x79$335" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ( Ref Nothing ( Local ( Name "x79$337" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [ AbsN Nothing ( ParamNamed Nothing ( Name "x80" ) :| [] ) @@ -7564,12 +7559,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont330" ) + ( Name "$kont332" ) ) ) ( Ref Nothing ( Local - ( Name "x1$334" ) + ( Name "x1$336" ) ) :| [] ) ) @@ -7701,10 +7696,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont336", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$337" ) :| [] ) + ( Nothing, Name "$kont338", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$339" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x40$338" ) :| [] ) + ( ParamNamed Nothing ( Name "x40$340" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) @@ -7715,7 +7710,7 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "add$w" ) ) ) - ( Ref Nothing ( Local ( Name "x40$338" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ( Ref Nothing ( Local ( Name "x40$340" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [ AbsN Nothing ( ParamNamed Nothing ( Name "x41" ) :| [] ) @@ -8924,12 +8919,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont333" ) + ( Name "$kont335" ) ) ) ( Ref Nothing ( Local - ( Name "x1$337" ) + ( Name "x1$339" ) ) :| [] ) ) @@ -10253,7 +10248,7 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont336" ) + ( Name "$kont338" ) ) ) ( Ref Nothing @@ -10399,65 +10394,47 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "compute" ) ) + ) + ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$16$317" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$16$317" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) - ( LiteralString Nothing "(Just " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$16$317" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$16$317" ) ) ) ) - ) - ( LiteralString Nothing "Nothing" ) - ( Exception Nothing "No patterns matched" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Just " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "compute" ) ) + ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] ) - ] :| [] + ] ) ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "compute" ) ) :| [] + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "compute" ) ) + ) + ) + ) + ( LiteralString Nothing "Nothing" ) + ( Exception Nothing "No patterns matched" ) ) :| [] ) ) diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua index 52ef2cfd..d9453cd2 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua @@ -4,7 +4,6 @@ M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Show_show = function(dict) return dict.show end M.Data_Maybe_append_S_w = function(s1_S_286_S_314, s2_S_287_S_315) return s1_S_286_S_314 .. s2_S_287_S_315 end @@ -24,9 +23,9 @@ M.Golden_LongMaybeBind_Test_add_S_w = function(x_S_284_S_309, y_S_285_S_310) return x_S_284_S_309 + y_S_285_S_310 end M.Golden_LongMaybeBind_Test_compute = (function() - local _S_kont318 = function(x1_S_319) - return function(x277_S_320) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x277_S_320, 1)), function( x278 ) + local _S_kont320 = function(x1_S_321) + return function(x277_S_322) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x277_S_322, 1)), function( x278 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x278, 1)), function( x279 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x279, 1)), function( x280 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x280, 1)), function( x281 ) @@ -49,7 +48,7 @@ M.Golden_LongMaybeBind_Test_compute = (function() return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x297, 1)), function( x298 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x298, 1)), function( x299 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x299, 1)), function( x300 ) - return M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x1_S_319, x300)) + return M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x1_S_321, x300)) end) end) end) @@ -75,9 +74,9 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end end - local _S_kont321 = function(x1_S_322) - return function(x238_S_323) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x238_S_323, 1)), function( x239 ) + local _S_kont323 = function(x1_S_324) + return function(x238_S_325) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x238_S_325, 1)), function( x239 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x239, 1)), function( x240 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x240, 1)), function( x241 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x241, 1)), function( x242 ) @@ -117,7 +116,7 @@ M.Golden_LongMaybeBind_Test_compute = (function() return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x274, 1)), function( x275 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x275, 1)), function( x276 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x276, 1)), function( x277 ) - return _S_kont318(x1_S_322)(x277) + return _S_kont320(x1_S_324)(x277) end) end) end) @@ -160,9 +159,9 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end end - local _S_kont324 = function(x1_S_325) - return function(x198_S_326) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x198_S_326, 1)), function( x199 ) + local _S_kont326 = function(x1_S_327) + return function(x198_S_328) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x198_S_328, 1)), function( x199 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x199, 1)), function( x200 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x200, 1)), function( x201 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x201, 1)), function( x202 ) @@ -202,7 +201,7 @@ M.Golden_LongMaybeBind_Test_compute = (function() return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x235, 1)), function( x236 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x236, 1)), function( x237 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x237, 1)), function( x238 ) - return _S_kont321(x1_S_325)(x238) + return _S_kont323(x1_S_327)(x238) end) end) end) @@ -245,9 +244,9 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end end - local _S_kont327 = function(x1_S_328) - return function(x158_S_329) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x158_S_329, 1)), function( x159 ) + local _S_kont329 = function(x1_S_330) + return function(x158_S_331) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x158_S_331, 1)), function( x159 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x159, 1)), function( x160 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x160, 1)), function( x161 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x161, 1)), function( x162 ) @@ -287,7 +286,7 @@ M.Golden_LongMaybeBind_Test_compute = (function() return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x195, 1)), function( x196 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x196, 1)), function( x197 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x197, 1)), function( x198 ) - return _S_kont324(x1_S_328)(x198) + return _S_kont326(x1_S_330)(x198) end) end) end) @@ -330,9 +329,9 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end end - local _S_kont330 = function(x1_S_331) - return function(x119_S_332) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x119_S_332, 1)), function( x120 ) + local _S_kont332 = function(x1_S_333) + return function(x119_S_334) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x119_S_334, 1)), function( x120 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x120, 1)), function( x121 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x121, 1)), function( x122 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x122, 1)), function( x123 ) @@ -372,7 +371,7 @@ M.Golden_LongMaybeBind_Test_compute = (function() return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x155, 1)), function( x156 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x156, 1)), function( x157 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x157, 1)), function( x158 ) - return _S_kont327(x1_S_331)(x158) + return _S_kont329(x1_S_333)(x158) end) end) end) @@ -415,9 +414,9 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end end - local _S_kont333 = function(x1_S_334) - return function(x79_S_335) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x79_S_335, 1)), function( x80 ) + local _S_kont335 = function(x1_S_336) + return function(x79_S_337) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x79_S_337, 1)), function( x80 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x80, 1)), function( x81 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x81, 1)), function( x82 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x82, 1)), function( x83 ) @@ -457,7 +456,7 @@ M.Golden_LongMaybeBind_Test_compute = (function() return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x116, 1)), function( x117 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x117, 1)), function( x118 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x118, 1)), function( x119 ) - return _S_kont330(x1_S_334)(x119) + return _S_kont332(x1_S_336)(x119) end) end) end) @@ -500,9 +499,9 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end end - local _S_kont336 = function(x1_S_337) - return function(x40_S_338) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x40_S_338, 1)), function( x41 ) + local _S_kont338 = function(x1_S_339) + return function(x40_S_340) + return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x40_S_340, 1)), function( x41 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x41, 1)), function( x42 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x42, 1)), function( x43 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x43, 1)), function( x44 ) @@ -542,7 +541,7 @@ M.Golden_LongMaybeBind_Test_compute = (function() return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x76, 1)), function( x77 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x77, 1)), function( x78 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x78, 1)), function( x79 ) - return _S_kont333(x1_S_337)(x79) + return _S_kont335(x1_S_339)(x79) end) end) end) @@ -625,7 +624,7 @@ M.Golden_LongMaybeBind_Test_compute = (function() return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x37, 1)), function( x38 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x38, 1)), function( x39 ) return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x39, 1)), function( x40 ) - return _S_kont336(x1)(x40) + return _S_kont338(x1)(x40) end) end) end) @@ -667,16 +666,12 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end) end)() -return M.Effect_Console_foreign.log(M.Data_Show_show({ - show = function(v_S_16_S_317) - if "Data.Maybe∷Maybe.Just" == v_S_16_S_317["$ctor"] then - return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showIntImpl - })(v_S_16_S_317.value0), ")")) - elseif "Data.Maybe∷Maybe.Nothing" == v_S_16_S_317["$ctor"] then - return "Nothing" - else - return error("No patterns matched") - end +return M.Effect_Console_foreign.log((function() + if "Data.Maybe∷Maybe.Just" == M.Golden_LongMaybeBind_Test_compute["$ctor"] then + return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongMaybeBind_Test_compute.value0), ")")) + elseif "Data.Maybe∷Maybe.Nothing" == M.Golden_LongMaybeBind_Test_compute["$ctor"] then + return "Nothing" + else + return error("No patterns matched") end -})(M.Golden_LongMaybeBind_Test_compute))() +end)())() diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.ir b/test/ps/output/Golden.LongReaderBind.Test/golden.ir index 047bf038..6f99a7c5 100644 --- a/test/ps/output/Golden.LongReaderBind.Test/golden.ir +++ b/test/ps/output/Golden.LongReaderBind.Test/golden.ir @@ -19,45 +19,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" - }, LiteralObject Nothing - [ - ( PropName "compose", AbsN Nothing - ( ParamNamed Nothing ( Name "f" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "g" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] - ) - ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applyIdentity" }, LiteralObject Nothing @@ -125,217 +86,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "compose" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "applyReaderT" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictApply" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "r" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictApply" ) ) ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$491" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$492" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Reader.Trans" ) - ( Name "compose" ) - ) - ) - ( Ref Nothing ( Local ( Name "f$491" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "v$492" ) ) :| [] ) - ) - ) :| [] - ) - ) - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictApply" ) ) ) - ( PropName "Functor0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "map" ) :| [] - ) - ) - ] - ) - ) - ] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "bindReaderT" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictBind" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "bind", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "k" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "r" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "dictBind" ) ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "k" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "applyReaderT" ) ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictBind" ) ) ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) - ) - ] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Reader.Trans", qnameName = Name "applicativeReaderT" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictApplicative" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "pure", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x$493" ) :| [] ) - ( Ref Nothing ( Local ( Name "x$493" ) ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "compose" ) ) - ) - ( AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "a$306" ) :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Local ( Name "a$306" ) ) ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Local ( Name "dictApplicative" ) ) :| [] ) :| [] - ) :| [] - ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "applyReaderT" ) ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictApplicative" ) ) ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) - ) - ] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "bind" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Reader.Trans" ) ( Name "bindReaderT" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) :| [] - ) :| [] - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "ask" }, ObjectProp Nothing @@ -360,17 +110,15 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "ask", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) + ( PropName "ask", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$488" ) ) ) ( PropName "Applicative0" ) ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) + ( PropName "pure" ) ), ( PropName "Monad0", AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -378,3963 +126,355 @@ UberModule [ ( PropName "Applicative0", AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Reader.Trans" ) - ( Name "applicativeReaderT" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad$488" ) ) ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Reader.Trans" ) - ( Name "bindReaderT" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad$488" ) ) ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ( Let Nothing + ( Standalone + ( Nothing, Name "dictApplicative$527", AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad$488" ) ) ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) ) :| [] ) - ) - ) - ] - ) - ) - ] - ) - ) - ( PropName "ask" ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "add$w" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "x$469$501" ) :| [ ParamNamed Nothing ( Name "y$470$502" ) ] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$469$501" ) ) ) - ( Ref Nothing ( Local ( Name "y$470$502" ) ) ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "go" - }, Let Nothing - ( Standalone - ( Nothing, Name "$kont506", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$507" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x100$508" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) + ( LiteralObject Nothing + [ + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "x$585$1194" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictApplicative$527" ) ) ) + ( PropName "pure" ) + ) + ( Ref Nothing ( Local ( Name "x$585$1194" ) ) :| [] ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing + ), + ( PropName "Apply0", AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) + ( Let Nothing + ( Standalone + ( Nothing, Name "dictApply$531", AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictApplicative$527" ) ) ) + ( PropName "Apply0" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) + ) :| [] + ) + ( LiteralObject Nothing + [ + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v$532" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$533" ) :| [] ) ( AbsN Nothing - ( ParamUnused Nothing :| [] ) + ( ParamNamed Nothing ( Name "r$534" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictApply$531" ) ) ) + ( PropName "apply" ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$532" ) ) ) + ( Ref Nothing + ( Local ( Name "r$534" ) ) :| [] ) :| [] ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v1$533" ) ) ) + ( Ref Nothing ( Local ( Name "r$534" ) ) :| [] ) :| [] + ) + ) + ) + ) + ), + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralObject Nothing + [ + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "x$585$1203" ) :| [] ) ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing + ( ParamNamed Nothing ( Name "v$492$536" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$585$1200" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) + ( ObjectProp Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] + ( Local ( Name "dictApply$531" ) ) ) + ( PropName "Functor0" ) ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x200" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Reader.Trans" ) - ( Name "applicativeReaderT" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Identity" ) - ( Name "applicativeIdentity" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "add$w" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "add$w" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$507" ) - ) :| - [ Ref Nothing - ( Local - ( Name "x100$508" ) - ) - ] - ) :| - [ Ref Nothing - ( Local - ( Name "x200" ) - ) - ] - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) ) :| [] ) - ) :| [] + ) + ( PropName "map" ) ) - ) :| [] + ( Ref Nothing + ( Local ( Name "x$585$1203" ) ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$492$536" ) ) ) + ( Ref Nothing + ( Local ( Name "x$585$1200" ) ) :| [] + ) :| [] + ) ) - ) :| [] + ) ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] + ) ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) :| - [ Standalone - ( Nothing, Name "$kont509", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$510" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x100$511" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] + ] ) ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) + ), + ( PropName "Bind1", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "dictBind$537", AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad$488" ) ) ) + ( PropName "Bind1" ) ) ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) + ) :| [] + ) + ( LiteralObject Nothing + [ + ( PropName "bind", AbsN Nothing + ( ParamNamed Nothing ( Name "v$538" ) :| [] ) ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing + ( ParamNamed Nothing ( Name "k$539" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "r$540" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictBind$537" ) ) ) + ( PropName "bind" ) ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont506" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$510" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x100$511" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ), Standalone - ( Nothing, Name "$kont512", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$513" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$538" ) ) ) + ( Ref Nothing ( Local ( Name "r$540" ) ) :| [] ) :| [] ) ) ( AbsN Nothing - ( ParamUnused Nothing :| [] ) + ( ParamNamed Nothing ( Name "a$541" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing - ( Name "x100" ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont509" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$513" ) - ) :| [] - ) - ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] + ( Ref Nothing ( Local ( Name "k$539" ) ) ) + ( Ref Nothing ( Local ( Name "a$541" ) ) :| [] ) ) + ( Ref Nothing ( Local ( Name "r$540" ) ) :| [] ) ) :| [] ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ), Standalone - ( Nothing, Name "$kont514", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$515" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) + ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing + ), + ( PropName "Apply0", AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) + ( Let Nothing + ( Standalone + ( Nothing, Name "dictApply$543", AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictBind$537" ) ) ) + ( PropName "Apply0" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) + ) :| [] + ) + ( LiteralObject Nothing + [ + ( PropName "apply", AbsN Nothing + ( ParamNamed Nothing ( Name "v$544" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v1$545" ) :| [] ) ( AbsN Nothing - ( ParamUnused Nothing :| [] ) + ( ParamNamed Nothing ( Name "r$546" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictApply$543" ) ) ) + ( PropName "apply" ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$544" ) ) ) + ( Ref Nothing + ( Local ( Name "r$546" ) ) :| [] ) :| [] ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v1$545" ) ) ) + ( Ref Nothing ( Local ( Name "r$546" ) ) :| [] ) :| [] + ) + ) + ) + ) + ), + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralObject Nothing + [ + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "x$585$1209" ) :| [] ) ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing + ( ParamNamed Nothing ( Name "v$492$548" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$585$1206" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) + ( ObjectProp Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] + ( Local ( Name "dictApply$543" ) ) ) + ( PropName "Functor0" ) ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont512" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1$515" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) ) :| [] ) - ) :| [] + ) + ( PropName "map" ) ) - ) :| [] + ( Ref Nothing + ( Local ( Name "x$585$1209" ) ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "v$492$548" ) ) ) + ( Ref Nothing + ( Local ( Name "x$585$1206" ) ) :| [] + ) :| [] + ) ) - ) :| [] + ) ) - ) :| [] - ) - ) :| [] + ) + ] + ) ) - ) :| [] + ] ) - ) :| [] + ) ) - ) :| [] + ] ) - ) :| [] + ) ) - ) :| [] + ] ) ) - ) - ] + ] + ) + ) + ( PropName "ask" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "add$w" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x$469$501" ) :| [ ParamNamed Nothing ( Name "y$470$502" ) ] ) + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "x$469$501" ) ) ) + ( Ref Nothing ( Local ( Name "y$470$502" ) ) ) ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "go" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "r$552$588" ) :| [] ) ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "add$w" ) ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x1" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ) + ( Ref Nothing ( Local ( Name "r$552$588" ) ) :| [] ) :| + [ AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) ) + ( Ref Nothing ( Local ( Name "r$552$588" ) ) :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "bind" ) - ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongReaderBind.Test" ) - ( Name "ask" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Local - ( Name "$kont514" ) - ) - ) - ( Ref Nothing - ( Local - ( Name "x1" ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) :| [] + ( Ref Nothing ( Local ( Name "r$552$588" ) ) :| [] ) + ] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "compute" }, AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) + ( PropName "unsafeCoerce" ) + ) ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "add$w" ) ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "add$w" ) ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) :| [] - ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "go" ) ) :| [] - ) + ( LiteralInt Nothing 3 :| [] ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ) + ( LiteralInt Nothing 3 :| [] ) + ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "ask" ) ) + ) + ( LiteralInt Nothing 3 :| [] ) + ] + ) :| [] ) - ( LiteralInt Nothing 3 :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.lua b/test/ps/output/Golden.LongReaderBind.Test/golden.lua index 70807c64..54c333a4 100644 --- a/test/ps/output/Golden.LongReaderBind.Test/golden.lua +++ b/test/ps/output/Golden.LongReaderBind.Test/golden.lua @@ -4,14 +4,6 @@ M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Semigroupoid_semigroupoidFn = { - compose = function(f) - return function(g) return function(x) return f(g(x)) end end - end -} -M.Control_Semigroupoid_compose = function(dict) return dict.compose end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end M.Data_Identity_applyIdentity = { apply = function(v) return function(v1) return v(v1) end end, Functor0 = function() @@ -30,484 +22,19 @@ M.Data_Identity_applicativeIdentity = { pure = function(x_S_496) return x_S_496 end, Apply0 = function() return M.Data_Identity_applyIdentity end } -M.Control_Monad_Reader_Trans_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) -M.Control_Monad_Reader_Trans_applyReaderT = function(dictApply) - return { - apply = function(v) - return function(v1) - return function(r) return dictApply.apply(v(r))(v1(r)) end - end - end, - Functor0 = function() - return { - map = M.Control_Monad_Reader_Trans_compose(function(f_S_491) - return function(v_S_492) - return M.Control_Monad_Reader_Trans_compose(f_S_491)(v_S_492) - end - end)((dictApply.Functor0()).map) - } - end - } -end -M.Control_Monad_Reader_Trans_bindReaderT = function(dictBind) - return { - bind = function(v) - return function(k) - return function(r) - return M.Control_Bind_bind(dictBind)(v(r))(function(a) - return k(a)(r) - end) - end - end - end, - Apply0 = function() - return M.Control_Monad_Reader_Trans_applyReaderT(dictBind.Apply0()) - end - } -end -M.Control_Monad_Reader_Trans_applicativeReaderT = function(dictApplicative) - local Control_Monad_Reader_Trans_compose = M.Control_Monad_Reader_Trans_compose - return { - pure = Control_Monad_Reader_Trans_compose(function(x_S_493) - return x_S_493 - end)(Control_Monad_Reader_Trans_compose(function(a_S_306) - return function() return a_S_306 end - end)(M.Control_Applicative_pure(dictApplicative))), - Apply0 = function() - return M.Control_Monad_Reader_Trans_applyReaderT(dictApplicative.Apply0()) - end - } -end -M.Golden_LongReaderBind_Test_bind = M.Control_Bind_bind(M.Control_Monad_Reader_Trans_bindReaderT(M.Data_Identity_bindIdentity)) M.Golden_LongReaderBind_Test_ask = (function() local dictMonad_S_488 = { Applicative0 = function() return M.Data_Identity_applicativeIdentity end, Bind1 = function() return M.Data_Identity_bindIdentity end } - return M.Control_Applicative_pure(dictMonad_S_488.Applicative0()) + return (dictMonad_S_488.Applicative0()).pure end)() M.Golden_LongReaderBind_Test_add_S_w = function(x_S_469_S_501, y_S_470_S_502) return x_S_469_S_501 + y_S_470_S_502 end -M.Golden_LongReaderBind_Test_go = (function() - local _S_kont506 = function(x1_S_507) - return function(x100_S_508) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( x200 ) - local Golden_LongReaderBind_Test_add_S_w = M.Golden_LongReaderBind_Test_add_S_w - return M.Control_Applicative_pure(M.Control_Monad_Reader_Trans_applicativeReaderT(M.Data_Identity_applicativeIdentity))(Golden_LongReaderBind_Test_add_S_w(Golden_LongReaderBind_Test_add_S_w(x1_S_507, x100_S_508), x200)) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - local _S_kont509 = function(x1_S_510) - return function(x100_S_511) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return _S_kont506(x1_S_510)(x100_S_511) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - end - local _S_kont512 = function(x1_S_513) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( x100 ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return _S_kont509(x1_S_513)(x100) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - local _S_kont514 = function(x1_S_515) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return _S_kont512(x1_S_515) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( x1 ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return M.Golden_LongReaderBind_Test_bind(M.Golden_LongReaderBind_Test_ask)(function( ) - return _S_kont514(x1) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) - end) -end)() -M.Golden_LongReaderBind_Test_compute = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn)(M.Unsafe_Coerce_foreign.unsafeCoerce)(M.Golden_LongReaderBind_Test_go)(3) +M.Golden_LongReaderBind_Test_go = function(r_S_552_S_588) + local Golden_LongReaderBind_Test_ask, Golden_LongReaderBind_Test_add_S_w = M.Golden_LongReaderBind_Test_ask, M.Golden_LongReaderBind_Test_add_S_w + return Golden_LongReaderBind_Test_add_S_w(Golden_LongReaderBind_Test_add_S_w(Golden_LongReaderBind_Test_ask(r_S_552_S_588), Golden_LongReaderBind_Test_ask(r_S_552_S_588)), Golden_LongReaderBind_Test_ask(r_S_552_S_588)) +end +M.Golden_LongReaderBind_Test_compute = M.Unsafe_Coerce_foreign.unsafeCoerce(M.Golden_LongReaderBind_Test_add_S_w(M.Golden_LongReaderBind_Test_add_S_w(M.Golden_LongReaderBind_Test_ask(3), M.Golden_LongReaderBind_Test_ask(3)), M.Golden_LongReaderBind_Test_ask(3))) return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(M.Golden_LongReaderBind_Test_compute))() diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.ir b/test/ps/output/Golden.LongStackBind.Test/golden.ir index 1a10f61b..b594b04b 100644 --- a/test/ps/output/Golden.LongStackBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStackBind.Test/golden.ir @@ -25,117 +25,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" - }, LiteralObject Nothing - [ - ( PropName "compose", AbsN Nothing - ( ParamNamed Nothing ( Name "f" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "g" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] - ) - ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad", qnameName = Name "ap" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) - ( Let Nothing - ( Standalone - ( Nothing, Name "bind", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) - ( PropName "Bind1" ) - ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'" ) ) ) - ( Ref Nothing ( Local ( Name "a'" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Either", qnameName = Name "append$w" }, AbsN Nothing ( ParamNamed Nothing @@ -206,98 +95,6 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "functorIdentity" ) ) ) ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.State.Class", qnameName = Name "state" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "state" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "compose" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "functorExceptT" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictFunctor" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$575" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing ( Local ( Name "dictFunctor" ) ) :| [] ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$584" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "m$585" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Left" ) - ( ReflectCtor Nothing - ( Ref Nothing ( Local ( Name "m$585" ) ) ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "m$585" ) ) ) - ( PropName "value0" ) :| [] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Right" ) - ( ReflectCtor Nothing - ( Ref Nothing ( Local ( Name "m$585" ) ) ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$584" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "m$585" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] - ) - ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ) - ) - ] :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "v$575" ) ) :| [] ) - ) - ) - ) - ] - ) ), RecursiveGroup ( ( QName @@ -343,10 +140,7 @@ UberModule ( ParamNamed Nothing ( Name "k" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) @@ -354,8 +148,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) @@ -367,39 +162,26 @@ UberModule ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$583" ) ) ) ) ) ( AppN Nothing - ( AppN Nothing + ( ObjectProp Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Except.Trans" ) - ( Name "compose" ) - ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( PropName "Applicative0" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) + ( PropName "pure" ) + ) + ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) :| [] + ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v2$583" ) ) ) - ( PropName "value0" ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v2$583" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] ) ) ( IfThenElse Nothing @@ -442,96 +224,201 @@ UberModule ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "apply", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Monad" ) ( Name "ap" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Except.Trans" ) - ( Name "monadExceptT" ) + ( PropName "apply", Let Nothing + ( Standalone + ( Nothing, Name "dictMonad$1846", AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Except.Trans" ) + ( Name "monadExceptT" ) + ) ) - ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) :| [] + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) + ) :| [] ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Except.Trans" ) - ( Name "functorExceptT" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "bind$1847", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "Apply0" ) + ( Ref Nothing ( Local ( Name "dictMonad$1846" ) ) ) + ( PropName "Bind1" ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) - ( PropName "Functor0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ( PropName "bind" ) ) :| [] ) - ) - ) - ] - ) - ), - ( QName - { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "applicativeExceptT" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "pure", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) - ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x$576" ) :| [] ) - ( Ref Nothing ( Local ( Name "x$576" ) ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "compose" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) + ( ParamNamed Nothing ( Name "f$1848" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$1849" ) :| [] ) ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) - ( PropName "Applicative0" ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "bind$1847" ) ) ) + ( Ref Nothing ( Local ( Name "f$1848" ) ) :| [] ) ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) :| [] + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$1850" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "bind$1847" ) ) ) + ( Ref Nothing ( Local ( Name "a$1849" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$1851" ) :| [] ) + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad$1846" ) ) ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f'$1850" ) ) ) + ( Ref Nothing ( Local ( Name "a'$1851" ) ) :| [] ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) :| [] - ) :| [] + ) + ), + ( PropName "Functor0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( LiteralObject Nothing + [ + ( PropName "map", AbsN Nothing + ( ParamNamed Nothing ( Name "f$1855" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$575$1856" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( PropName "Bind1" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "Apply0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "Functor0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "map" ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "m$585$1858" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Left" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "m$585$1858" ) ) ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "m$585$1858" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Right" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "m$585$1858" ) ) ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f$1855" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "m$585$1858" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] + ) + ) + ( Exception Nothing "No patterns matched" ) + ) + ) :| [] + ) + ) + ( Ref Nothing ( Local ( Name "v$575$1856" ) ) :| [] ) + ) + ) + ) + ] + ) + ) + ] + ) + ), + ( QName + { qnameModuleName = ModuleName "Control.Monad.Except.Trans", qnameName = Name "applicativeExceptT" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) + ( LiteralObject Nothing + [ + ( PropName "pure", AbsN Nothing + ( ParamNamed Nothing ( Name "x$1867$1878" ) :| [] ) + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( Ref Nothing ( Local ( Name "x$1867$1878" ) ) :| [] ) :| [] + ) ) ), ( PropName "Apply0", AbsN Nothing @@ -597,10 +484,7 @@ UberModule ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) @@ -608,8 +492,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) @@ -654,13 +539,78 @@ UberModule ( ParamNamed Nothing ( Name "dictMonad" ) :| [] ) ( LiteralObject Nothing [ - ( PropName "apply", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Monad" ) ( Name "ap" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) + ( PropName "apply", Let Nothing + ( Standalone + ( Nothing, Name "dictMonad$1834", AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.State.Trans" ) + ( Name "monadStateT" ) + ) + ) + ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) + ) :| [] + ) + ( Let Nothing + ( Standalone + ( Nothing, Name "bind$1835", ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad$1834" ) ) ) + ( PropName "Bind1" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "bind" ) + ) :| [] + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f$1836" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$1837" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "bind$1835" ) ) ) + ( Ref Nothing ( Local ( Name "f$1836" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "f'$1838" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "bind$1835" ) ) ) + ( Ref Nothing ( Local ( Name "a$1837" ) ) :| [] ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a'$1839" ) :| [] ) + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad$1834" ) ) ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f'$1838" ) ) ) + ( Ref Nothing ( Local ( Name "a'$1839" ) ) :| [] ) :| [] + ) + ) :| [] + ) + ) :| [] + ) + ) + ) ) - ( Ref Nothing ( Local ( Name "dictMonad" ) ) :| [] ) :| [] ) ), ( PropName "Functor0", AbsN Nothing @@ -675,10 +625,7 @@ UberModule ( ParamNamed Nothing ( Name "s$572" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( AppN Nothing @@ -708,8 +655,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "map" ) ) ( AbsN Nothing ( ParamNamed Nothing ( Name "v1$573" ) :| [] ) @@ -758,10 +706,7 @@ UberModule ( AbsN Nothing ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) @@ -769,8 +714,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( AppN Nothing @@ -859,129 +805,45 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "bind" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + }, ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) ) :| [] + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) ) ) + ( PropName "bind" ) ), Standalone ( QName - { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "monadStateStateT" - }, LiteralObject Nothing - [ - ( PropName "state", AbsN Nothing - ( ParamNamed Nothing ( Name "f$21" ) :| [] ) + { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "get" + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x$1825" ) :| [] ) + ( AppN Nothing + ( ObjectProp Nothing ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Control.Semigroupoid" ) - ( Name "semigroupoidFn" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "monadExceptT" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) :| [] + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadExceptT" ) ) ) + ( PropName "Applicative0" ) ) - ( Ref Nothing ( Local ( Name "f$21" ) ) :| [] ) - ) - ), - ( PropName "Monad0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "monadExceptT" ) - ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) + ( PropName "pure" ) ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "get" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Class" ) ( Name "state" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "monadStateStateT" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "s$106" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( Ref Nothing ( Local ( Name "s$106" ) ) :| [] ) + ( Ref Nothing ( Local ( Name "x$1825" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "s$106" ) ) :| [] ) - ) :| [] + ( Ref Nothing ( Local ( Name "x$1825" ) ) :| [] ) :| [] + ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + }, ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "put" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "s$109" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.State.Class" ) ( Name "state" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "monadStateStateT" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "s$109" ) ) :| [] ) - ) :| [] - ) + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) ) ) + ( PropName "bind" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "add$w" @@ -996,8 +858,8 @@ UberModule { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont597", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$598" ) :| [] ) + ( Nothing, Name "$kont1882", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1883" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1014,60 +876,123 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) - ) - ( Ref Nothing ( Local ( Name "x141" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "get" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x142" ) :| [] ) - ( AppN Nothing + ( ObjectProp Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) + ( Name "monadExceptT" ) ) ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x141" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "get" ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x142" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "discard" ) + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x142" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x142" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1098,24 +1023,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x143" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x143" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1146,24 +1107,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x144" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x144" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1194,24 +1191,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x145" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x145" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1244,24 +1277,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x146" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x146" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1294,26 +1363,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x147" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x147" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1346,26 +1451,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x148" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x148" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1398,26 +1539,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x149" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1450,26 +1627,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x150" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1495,13 +1708,7 @@ UberModule ( Name "final" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported @@ -1514,8 +1721,9 @@ UberModule ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadExceptT" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing @@ -1526,7 +1734,7 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x1$598" ) + ( Name "x1$1883" ) ) :| [ Ref Nothing ( Local @@ -1580,8 +1788,8 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont599", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$600" ) :| [] ) + ( Nothing, Name "$kont1884", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1885" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1598,18 +1806,51 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x121" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x121" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1637,24 +1878,54 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x122" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x122" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1685,24 +1956,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x123" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x123" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1733,24 +2040,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x124" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x124" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1776,29 +2119,65 @@ UberModule ( AppN Nothing ( AppN Nothing ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "discard" ) ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x125" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x125" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1831,24 +2210,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x126" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x126" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1881,26 +2298,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x127" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x127" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1933,26 +2386,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x128" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x128" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -1985,26 +2474,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x129" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x129" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2037,26 +2562,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x130" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x130" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2089,26 +2650,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x131" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x131" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2141,26 +2738,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x132" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x132" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2193,26 +2826,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x133" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x133" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2245,26 +2914,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x134" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2297,26 +3002,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x135" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x135" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2349,26 +3090,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x136" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x136" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2401,26 +3178,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x137" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x137" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2453,26 +3266,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x138" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x138" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2505,26 +3354,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x139" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x139" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2557,26 +3442,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x140" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2585,12 +3506,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont597" ) + ( Name "$kont1882" ) ) ) ( Ref Nothing ( Local - ( Name "x1$600" ) + ( Name "x1$1885" ) ) :| [] ) ) :| [] @@ -2675,8 +3596,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont601", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$602" ) :| [] ) + ( Nothing, Name "$kont1886", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1887" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2693,18 +3614,51 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x101" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x101" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2732,24 +3686,54 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x102" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x102" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2780,24 +3764,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x103" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x103" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2828,24 +3848,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x104" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x104" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2876,24 +3932,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x105" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x105" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2926,24 +4018,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x106" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x106" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -2976,26 +4106,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x107" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x107" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3024,30 +4190,66 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "discard" ) ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x108" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x108" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3080,26 +4282,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x109" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3132,26 +4370,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x110" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x110" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3184,26 +4458,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x111" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x111" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3236,26 +4546,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x112" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3288,26 +4634,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x113" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x113" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3340,26 +4722,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x114" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x114" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3392,26 +4810,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x115" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3444,26 +4898,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x116" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x116" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3496,26 +4986,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x117" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x117" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3548,26 +5074,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x118" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3597,29 +5159,65 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) + ( Name "discard" ) ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x119" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x119" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3652,26 +5250,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x120" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x120" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3680,12 +5314,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont599" ) + ( Name "$kont1884" ) ) ) ( Ref Nothing ( Local - ( Name "x1$602" ) + ( Name "x1$1887" ) ) :| [] ) ) :| [] @@ -3770,8 +5404,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont603", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$604" ) :| [] ) + ( Nothing, Name "$kont1888", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1889" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3788,15 +5422,51 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x81" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x81" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -3824,24 +5494,54 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x82" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x82" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3872,24 +5572,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x83" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x83" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3920,24 +5656,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x84" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x84" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -3968,24 +5740,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x85" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x85" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4018,24 +5826,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x86" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x86" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4068,26 +5912,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x87" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x87" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4120,26 +6000,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x88" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x88" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4172,26 +6088,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x89" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x89" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4224,26 +6176,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x90" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x90" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4275,27 +6263,63 @@ UberModule ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x91" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x91" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4328,26 +6352,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x92" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x92" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4380,26 +6440,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x93" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x93" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4432,26 +6528,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x94" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4484,26 +6616,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x95" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x95" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4536,26 +6704,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x96" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x96" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4588,26 +6792,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x97" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x97" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4640,26 +6880,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x98" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x98" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4692,26 +6968,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x99" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x99" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4744,26 +7056,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x100" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4772,12 +7120,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont601" ) + ( Name "$kont1886" ) ) ) ( Ref Nothing ( Local - ( Name "x1$604" ) + ( Name "x1$1889" ) ) :| [] ) ) :| [] @@ -4862,8 +7210,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont605", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$606" ) :| [] ) + ( Nothing, Name "$kont1890", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1891" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4880,15 +7228,51 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x61" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x61" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -4916,24 +7300,54 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x62" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x62" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -4960,28 +7374,64 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "discard" ) ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x63" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x63" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5012,24 +7462,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x64" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x64" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5060,24 +7546,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x65" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x65" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5110,24 +7632,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x66" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x66" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5160,26 +7718,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x67" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x67" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5212,26 +7806,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x68" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x68" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5264,26 +7894,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x69" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x69" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5316,26 +7982,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x70" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x70" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5368,26 +8070,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x71" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x71" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5420,26 +8158,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x72" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x72" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5472,26 +8246,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x73" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x73" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5521,29 +8331,65 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) + ( Name "discard" ) ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x74" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x74" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5576,26 +8422,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x75" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x75" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5628,26 +8510,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x76" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x76" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5680,26 +8598,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x77" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x77" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5732,26 +8686,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x78" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x78" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5784,26 +8774,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x79" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x79" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5836,26 +8862,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x80" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x80" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -5864,12 +8926,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont603" ) + ( Name "$kont1888" ) ) ) ( Ref Nothing ( Local - ( Name "x1$606" ) + ( Name "x1$1891" ) ) :| [] ) ) :| [] @@ -5954,8 +9016,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont607", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$608" ) :| [] ) + ( Nothing, Name "$kont1892", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1893" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5972,15 +9034,51 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x41" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x41" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -6008,24 +9106,54 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x42" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x42" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6056,24 +9184,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x43" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x43" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6104,24 +9268,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x44" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x44" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6152,24 +9352,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x45" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x45" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6199,27 +9435,63 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) + ( Name "discard" ) ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x46" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x46" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6252,26 +9524,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x47" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x47" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6304,26 +9612,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x48" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x48" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6356,26 +9700,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x49" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x49" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6408,26 +9788,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x50" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x50" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6460,26 +9876,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x51" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x51" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6512,26 +9964,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x52" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x52" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6564,26 +10052,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x53" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x53" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6616,26 +10140,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x54" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6668,26 +10228,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x55" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x55" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6720,26 +10316,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x56" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x56" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6768,30 +10400,66 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "discard" ) ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x57" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x57" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6824,26 +10492,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x58" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x58" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6876,26 +10580,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x59" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x59" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6928,26 +10668,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x60" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6956,12 +10732,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont605" ) + ( Name "$kont1890" ) ) ) ( Ref Nothing ( Local - ( Name "x1$608" ) + ( Name "x1$1893" ) ) :| [] ) ) :| [] @@ -7046,8 +10822,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont609", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$610" ) :| [] ) + ( Nothing, Name "$kont1894", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1895" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -7064,15 +10840,51 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x21" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x21" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -7100,24 +10912,54 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x22" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x22" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7148,24 +10990,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x23" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x23" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7196,24 +11074,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x24" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x24" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7244,24 +11158,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x25" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x25" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7294,24 +11244,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x26" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x26" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7344,26 +11330,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x27" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x27" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7396,26 +11418,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x28" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x28" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7448,26 +11506,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x29" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x29" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7500,26 +11594,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x30" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x30" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7552,26 +11682,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x31" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x31" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7604,26 +11770,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x32" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x32" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7656,26 +11858,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x33" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x33" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7708,26 +11946,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x34" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x34" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7760,26 +12034,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x35" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x35" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7812,26 +12122,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x36" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x36" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7864,26 +12210,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x37" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x37" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7916,26 +12298,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x38" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x38" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7968,26 +12386,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x39" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x39" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8020,26 +12474,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x40" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x40" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8048,12 +12538,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont607" ) + ( Name "$kont1892" ) ) ) ( Ref Nothing ( Local - ( Name "x1$610" ) + ( Name "x1$1895" ) ) :| [] ) ) :| [] @@ -8154,15 +12644,43 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x1" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -8184,21 +12702,51 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x2" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x2" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8229,24 +12777,57 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x3" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x3" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8277,24 +12858,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x4" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x4" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8325,24 +12942,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x5" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x5" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8373,24 +13026,60 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x6" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x6" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8423,24 +13112,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x7" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x7" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8473,26 +13200,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x8" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x8" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8525,26 +13288,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x9" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x9" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8577,26 +13376,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x10" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x10" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8629,26 +13464,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x11" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x11" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8681,26 +13552,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x12" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x12" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8733,26 +13640,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x13" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x13" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8785,26 +13728,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x14" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x14" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8837,26 +13816,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x15" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x15" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8889,26 +13904,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x16" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x16" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8941,26 +13992,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) + ) + ( PropName "pure" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x17" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x17" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8993,26 +14080,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x18" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x18" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -9045,26 +14168,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x19" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x19" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -9097,26 +14256,62 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStackBind.Test" ) - ( Name "add$w" ) + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "monadExceptT" ) + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "undefined" ) + ) :| [] + ) ) + ( PropName "pure" ) + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStackBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x20" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x20" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -9125,7 +14320,7 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont609" ) + ( Name "$kont1894" ) ) ) ( Ref Nothing @@ -9218,48 +14413,46 @@ UberModule ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "compute" }, AppN Nothing - ( AppN Nothing - ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) + ( PropName "unsafeCoerce" ) + ) + ( Let Nothing + ( Standalone + ( Nothing, Name "v$575$603", AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "go" ) ) ) + ( LiteralInt Nothing 0 :| [] ) + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Left" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$575$603" ) ) ) ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Left" ) ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$575$603" ) ) ) + ( PropName "value0" ) :| [] ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$82" ) :| [] ) - ( Ref Nothing ( Local ( Name "v$82" ) ) ) :| [] - ) - ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Right" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$575$603" ) ) ) ) + ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Except.Trans" ) ( Name "functorExceptT" ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "Right" ) ) ) + ( ObjectProp Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$575$603" ) ) ) + ( PropName "value0" ) + ) + ( PropName "value0" ) :| [] ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Identity" ) ( Name "functorIdentity" ) ) :| [] - ) :| [] ) + ( Exception Nothing "No patterns matched" ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$580" ) :| [] ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$580" ) ) ) - ( PropName "value0" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "go" ) ) ) - ( LiteralInt Nothing 0 :| [] ) :| [] ) :| [] ) ) @@ -9276,98 +14469,67 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) - ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Left" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) + ) + ) + ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$228$596" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Left" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$228$596" ) ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Left " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showStringImpl" ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) - ( LiteralString Nothing "(Left " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showStringImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$228$596" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] + ) + ] + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Either∷Either.Right" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) + ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( LiteralString Nothing "(Right " :| + [ AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Either∷Either.Right" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$228$596" ) ) ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( LiteralString Nothing "(Right " :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Either" ) ( Name "append$w" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) - ) - ] :| [] - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$228$596" ) ) ) - ( PropName "value0" ) :| [] - ) :| - [ LiteralString Nothing ")" ] - ) - ] - ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) ) - ( Exception Nothing "No patterns matched" ) - ) + ( PropName "value0" ) :| [] + ) :| + [ LiteralString Nothing ")" ] ) - ) - ] :| [] + ] + ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) :| [] + ( Exception Nothing "No patterns matched" ) ) :| [] ) ) diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.lua b/test/ps/output/Golden.LongStackBind.Test/golden.lua index 65d255d8..829a0a21 100644 --- a/test/ps/output/Golden.LongStackBind.Test/golden.lua +++ b/test/ps/output/Golden.LongStackBind.Test/golden.lua @@ -46,28 +46,6 @@ M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Semigroupoid_semigroupoidFn = { - compose = function(f) - return function(g) return function(x) return f(g(x)) end end - end -} -M.Control_Semigroupoid_compose = function(dict) return dict.compose end -M.Data_Show_show = function(dict) return dict.show end -M.Data_Functor_map = function(dict) return dict.map end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Control_Monad_ap = function(dictMonad) - local bind = M.Control_Bind_bind(dictMonad.Bind1()) - return function(f) - return function(a) - return bind(f)(function(fPrime) - return bind(a)(function(aPrime) - return M.Control_Applicative_pure(dictMonad.Applicative0())(fPrime(aPrime)) - end) - end) - end - end -end M.Data_Either_append_S_w = function(s1_S_552_S_594, s2_S_553_S_595) return s1_S_552_S_594 .. s2_S_553_S_595 end @@ -87,30 +65,6 @@ M.Data_Identity_applyIdentity = { apply = function(v) return function(v1) return v(v1) end end, Functor0 = function() return M.Data_Identity_functorIdentity end } -M.Control_Monad_State_Class_state = function(dict) return dict.state end -M.Control_Monad_Except_Trans_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) -M.Control_Monad_Except_Trans_functorExceptT = function(dictFunctor) - return { - map = function(f) - return function(v_S_575) - local Data_Functor_map = M.Data_Functor_map - return Data_Functor_map(dictFunctor)(Data_Functor_map({ - map = function(f_S_584) - return function(m_S_585) - if "Data.Either∷Either.Left" == m_S_585["$ctor"] then - return M.Data_Either_Left(m_S_585.value0) - elseif "Data.Either∷Either.Right" == m_S_585["$ctor"] then - return M.Data_Either_Right(f_S_584(m_S_585.value0)) - else - return error("No patterns matched") - end - end - end - })(f))(v_S_575) - end - end - } -end M.Control_Monad_Except_Trans_monadExceptT = function(dictMonad) return { Applicative0 = function() @@ -125,9 +79,9 @@ M.Control_Monad_Except_Trans_bindExceptT = function(dictMonad) return { bind = function(v) return function(k) - return M.Control_Bind_bind(dictMonad.Bind1())(v)(function(v2_S_583) + return (dictMonad.Bind1()).bind(v)(function(v2_S_583) if "Data.Either∷Either.Left" == v2_S_583["$ctor"] then - return M.Control_Monad_Except_Trans_compose(M.Control_Applicative_pure(dictMonad.Applicative0()))(M.Data_Either_Left)(v2_S_583.value0) + return (dictMonad.Applicative0()).pure(M.Data_Either_Left(v2_S_583.value0)) elseif "Data.Either∷Either.Right" == v2_S_583["$ctor"] then return k(v2_S_583.value0) else @@ -143,18 +97,43 @@ M.Control_Monad_Except_Trans_bindExceptT = function(dictMonad) end M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) return { - apply = M.Control_Monad_ap(M.Control_Monad_Except_Trans_monadExceptT(dictMonad)), + apply = (function() + local dictMonad_S_1846 = M.Control_Monad_Except_Trans_monadExceptT(dictMonad) + local bind_S_1847 = (dictMonad_S_1846.Bind1()).bind + return function(f_S_1848) + return function(a_S_1849) + return bind_S_1847(f_S_1848)(function(fPrime_S_1850) + return bind_S_1847(a_S_1849)(function(aPrime_S_1851) + return (dictMonad_S_1846.Applicative0()).pure(fPrime_S_1850(aPrime_S_1851)) + end) + end) + end + end + end)(), Functor0 = function() - return M.Control_Monad_Except_Trans_functorExceptT(((dictMonad.Bind1()).Apply0()).Functor0()) + return { + map = function(f_S_1855) + return function(v_S_575_S_1856) + return (((dictMonad.Bind1()).Apply0()).Functor0()).map(function( m_S_585_S_1858 ) + if "Data.Either∷Either.Left" == m_S_585_S_1858["$ctor"] then + return M.Data_Either_Left(m_S_585_S_1858.value0) + elseif "Data.Either∷Either.Right" == m_S_585_S_1858["$ctor"] then + return M.Data_Either_Right(f_S_1855(m_S_585_S_1858.value0)) + else + return error("No patterns matched") + end + end)(v_S_575_S_1856) + end + end + } end } end M.Control_Monad_Except_Trans_applicativeExceptT = function(dictMonad) - local Control_Monad_Except_Trans_compose = M.Control_Monad_Except_Trans_compose return { - pure = Control_Monad_Except_Trans_compose(function(x_S_576) - return x_S_576 - end)(Control_Monad_Except_Trans_compose(M.Control_Applicative_pure(dictMonad.Applicative0()))(M.Data_Either_Right)), + pure = function(x_S_1867_S_1878) + return (dictMonad.Applicative0()).pure(M.Data_Either_Right(x_S_1867_S_1878)) + end, Apply0 = function() return M.Control_Monad_Except_Trans_applyExceptT(dictMonad) end @@ -175,7 +154,7 @@ M.Control_Monad_State_Trans_bindStateT = function(dictMonad) bind = function(v) return function(f) return function(s) - return M.Control_Bind_bind(dictMonad.Bind1())(v(s))(function(v1) + return (dictMonad.Bind1()).bind(v(s))(function(v1) return f(v1.value0)(v1.value1) end) end @@ -188,13 +167,25 @@ M.Control_Monad_State_Trans_bindStateT = function(dictMonad) end M.Control_Monad_State_Trans_applyStateT = function(dictMonad) return { - apply = M.Control_Monad_ap(M.Control_Monad_State_Trans_monadStateT(dictMonad)), + apply = (function() + local dictMonad_S_1834 = M.Control_Monad_State_Trans_monadStateT(dictMonad) + local bind_S_1835 = (dictMonad_S_1834.Bind1()).bind + return function(f_S_1836) + return function(a_S_1837) + return bind_S_1835(f_S_1836)(function(fPrime_S_1838) + return bind_S_1835(a_S_1837)(function(aPrime_S_1839) + return (dictMonad_S_1834.Applicative0()).pure(fPrime_S_1838(aPrime_S_1839)) + end) + end) + end + end + end)(), Functor0 = function() return { map = function(f_S_570) return function(v_S_571) return function(s_S_572) - return M.Data_Functor_map(((dictMonad.Bind1()).Apply0()).Functor0())(function( v1_S_573 ) + return (((dictMonad.Bind1()).Apply0()).Functor0()).map(function( v1_S_573 ) return M.Data_Tuple_Tuple(f_S_570(v1_S_573.value0))(v1_S_573.value1) end)(v_S_571(s_S_572)) end @@ -208,7 +199,7 @@ M.Control_Monad_State_Trans_applicativeStateT = function(dictMonad) return { pure = function(a) return function(s) - return M.Control_Applicative_pure(dictMonad.Applicative0())(M.Data_Tuple_Tuple(a)(s)) + return (dictMonad.Applicative0()).pure(M.Data_Tuple_Tuple(a)(s)) end end, Apply0 = function() @@ -233,51 +224,58 @@ M.Golden_LongStackBind_Test_monadExceptT = M.Control_Monad_Except_Trans_monadExc end }) M.Golden_LongStackBind_Test_bindStateT = M.Control_Monad_State_Trans_bindStateT(M.Golden_LongStackBind_Test_monadExceptT) -M.Golden_LongStackBind_Test_bind = M.Control_Bind_bind(M.Golden_LongStackBind_Test_bindStateT) -M.Golden_LongStackBind_Test_monadStateStateT = { - state = function(f_S_21) - return M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn)(M.Control_Applicative_pure(M.Golden_LongStackBind_Test_monadExceptT.Applicative0()))(f_S_21) - end, - Monad0 = function() - return M.Control_Monad_State_Trans_monadStateT(M.Golden_LongStackBind_Test_monadExceptT) - end -} -M.Golden_LongStackBind_Test_get = M.Control_Monad_State_Class_state(M.Golden_LongStackBind_Test_monadStateStateT)(function( s_S_106 ) - return M.Data_Tuple_Tuple(s_S_106)(s_S_106) -end) -M.Golden_LongStackBind_Test_discard = M.Control_Bind_bind(M.Golden_LongStackBind_Test_bindStateT) -M.Golden_LongStackBind_Test_put = function(s_S_109) - return M.Control_Monad_State_Class_state(M.Golden_LongStackBind_Test_monadStateStateT)(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(s_S_109) - end) +M.Golden_LongStackBind_Test_bind = M.Golden_LongStackBind_Test_bindStateT.bind +M.Golden_LongStackBind_Test_get = function(x_S_1825) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(x_S_1825)(x_S_1825)) end +M.Golden_LongStackBind_Test_discard = M.Golden_LongStackBind_Test_bindStateT.bind M.Golden_LongStackBind_Test_add_S_w = function(x_S_550_S_589, y_S_551_S_590) return x_S_550_S_589 + y_S_551_S_590 end M.Golden_LongStackBind_Test_go = (function() - local _S_kont597 = function(x1_S_598) + local _S_kont1882 = function(x1_S_1883) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x141 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x141, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x141, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x142 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x142, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x142, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x143 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x143, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x143, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x144 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x144, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x144, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x145 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x145, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x145, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x146 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x146, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x146, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x147 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x147, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x147, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x148 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x148, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x148, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x149 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x149, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x149, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x150 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x150, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x150, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( final ) - return M.Control_Applicative_pure(M.Control_Monad_State_Trans_applicativeStateT(M.Golden_LongStackBind_Test_monadExceptT))(M.Golden_LongStackBind_Test_add_S_w(x1_S_598, final)) + return (M.Control_Monad_State_Trans_applicativeStateT(M.Golden_LongStackBind_Test_monadExceptT)).pure(M.Golden_LongStackBind_Test_add_S_w(x1_S_1883, final)) end) end) end) @@ -300,48 +298,88 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end - local _S_kont599 = function(x1_S_600) + local _S_kont1884 = function(x1_S_1885) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x121 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x121, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x121, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x122 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x122, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x122, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x123 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x123, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x123, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x124 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x124, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x124, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x125 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x125, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x125, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x126 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x126, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x126, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x127 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x127, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x127, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x128 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x128, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x128, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x129 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x129, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x129, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x130 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x130, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x130, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x131 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x131, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x131, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x132 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x132, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x132, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x133 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x133, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x133, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x134 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x134, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x134, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x135 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x135, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x135, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x136 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x136, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x136, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x137 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x137, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x137, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x138 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x138, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x138, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x139 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x139, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x139, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x140 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x140, 1)))(function( ) - return _S_kont597(x1_S_600) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x140, 1))) + end)(function( ) + return _S_kont1882(x1_S_1885) end) end) end) @@ -383,48 +421,88 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end - local _S_kont601 = function(x1_S_602) + local _S_kont1886 = function(x1_S_1887) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x101 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x101, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x101, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x102 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x102, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x102, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x103 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x103, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x103, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x104 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x104, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x104, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x105 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x105, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x105, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x106 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x106, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x106, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x107 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x107, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x107, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x108 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x108, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x108, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x109 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x109, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x109, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x110 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x110, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x110, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x111 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x111, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x111, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x112 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x112, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x112, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x113 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x113, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x113, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x114 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x114, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x114, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x115 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x115, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x115, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x116 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x116, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x116, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x117 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x117, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x117, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x118 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x118, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x118, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x119 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x119, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x119, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x120 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x120, 1)))(function( ) - return _S_kont599(x1_S_602) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x120, 1))) + end)(function( ) + return _S_kont1884(x1_S_1887) end) end) end) @@ -466,48 +544,88 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end - local _S_kont603 = function(x1_S_604) + local _S_kont1888 = function(x1_S_1889) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x81 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x81, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x81, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x82 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x82, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x82, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x83 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x83, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x83, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x84 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x84, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x84, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x85 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x85, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x85, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x86 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x86, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x86, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x87 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x87, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x87, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x88 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x88, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x88, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x89 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x89, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x89, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x90 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x90, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x90, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x91 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x91, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x91, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x92 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x92, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x92, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x93 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x93, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x93, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x94 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x94, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x94, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x95 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x95, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x95, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x96 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x96, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x96, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x97 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x97, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x97, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x98 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x98, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x98, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x99 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x99, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x99, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x100 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x100, 1)))(function( ) - return _S_kont601(x1_S_604) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x100, 1))) + end)(function( ) + return _S_kont1886(x1_S_1889) end) end) end) @@ -549,48 +667,88 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end - local _S_kont605 = function(x1_S_606) + local _S_kont1890 = function(x1_S_1891) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x61 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x61, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x61, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x62 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x62, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x62, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x63 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x63, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x63, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x64 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x64, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x64, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x65 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x65, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x65, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x66 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x66, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x66, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x67 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x67, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x67, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x68 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x68, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x68, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x69 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x69, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x69, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x70 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x70, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x70, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x71 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x71, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x71, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x72 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x72, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x72, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x73 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x73, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x73, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x74 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x74, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x74, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x75 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x75, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x75, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x76 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x76, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x76, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x77 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x77, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x77, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x78 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x78, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x78, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x79 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x79, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x79, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x80 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x80, 1)))(function( ) - return _S_kont603(x1_S_606) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x80, 1))) + end)(function( ) + return _S_kont1888(x1_S_1891) end) end) end) @@ -632,48 +790,88 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end - local _S_kont607 = function(x1_S_608) + local _S_kont1892 = function(x1_S_1893) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x41 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x41, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x41, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x42 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x42, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x42, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x43 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x43, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x43, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x44 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x44, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x44, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x45 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x45, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x45, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x46 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x46, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x46, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x47 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x47, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x47, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x48 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x48, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x48, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x49 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x49, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x49, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x50 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x50, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x50, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x51 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x51, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x51, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x52 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x52, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x52, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x53 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x53, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x53, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x54 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x54, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x54, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x55 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x55, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x55, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x56 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x56, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x56, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x57 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x57, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x57, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x58 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x58, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x58, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x59 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x59, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x59, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x60 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x60, 1)))(function( ) - return _S_kont605(x1_S_608) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x60, 1))) + end)(function( ) + return _S_kont1890(x1_S_1893) end) end) end) @@ -715,48 +913,88 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end - local _S_kont609 = function(x1_S_610) + local _S_kont1894 = function(x1_S_1895) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x21 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x21, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x21, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x22 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x22, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x22, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x23 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x23, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x23, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x24 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x24, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x24, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x25 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x25, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x25, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x26 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x26, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x26, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x27 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x27, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x27, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x28 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x28, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x28, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x29 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x29, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x29, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x30 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x30, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x30, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x31 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x31, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x31, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x32 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x32, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x32, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x33 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x33, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x33, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x34 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x34, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x34, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x35 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x35, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x35, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x36 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x36, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x36, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x37 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x37, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x37, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x38 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x38, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x38, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x39 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x39, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x39, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x40 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x40, 1)))(function( ) - return _S_kont607(x1_S_610) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x40, 1))) + end)(function( ) + return _S_kont1892(x1_S_1895) end) end) end) @@ -799,46 +1037,86 @@ M.Golden_LongStackBind_Test_go = (function() end) end return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x1 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x1, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x1, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x2 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x2, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x2, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x3 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x3, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x3, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x4 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x4, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x4, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x5 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x5, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x5, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x6 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x6, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function() + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x6, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x7 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x7, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x7, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x8 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x8, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x8, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x9 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x9, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x9, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x10 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x10, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x10, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x11 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x11, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x11, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x12 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x12, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x12, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x13 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x13, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x13, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x14 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x14, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x14, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x15 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x15, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x15, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x16 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x16, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x16, 1))) + end)(function() return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x17 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x17, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x17, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x18 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x18, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x18, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x19 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x19, 1)))(function( ) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x19, 1))) + end)(function( ) return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x20 ) - return M.Golden_LongStackBind_Test_discard(M.Golden_LongStackBind_Test_put(M.Golden_LongStackBind_Test_add_S_w(x20, 1)))(function( ) - return _S_kont609(x1) + return M.Golden_LongStackBind_Test_discard(function( ) + return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x20, 1))) + end)(function( ) + return _S_kont1894(x1) end) end) end) @@ -880,23 +1158,22 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end)() -M.Golden_LongStackBind_Test_compute = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn)(M.Unsafe_Coerce_foreign.unsafeCoerce)(function( v_S_82 ) - return v_S_82 -end)(M.Data_Functor_map(M.Control_Monad_Except_Trans_functorExceptT(M.Data_Identity_functorIdentity))(function( v_S_580 ) - return v_S_580.value0 -end)(M.Golden_LongStackBind_Test_go(0))) -return M.Effect_Console_foreign.log(M.Data_Show_show({ - show = function(v_S_228_S_596) - if "Data.Either∷Either.Left" == v_S_228_S_596["$ctor"] then - return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showStringImpl - })(v_S_228_S_596.value0), ")")) - elseif "Data.Either∷Either.Right" == v_S_228_S_596["$ctor"] then - return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_show({ - show = M.Data_Show_foreign.showIntImpl - })(v_S_228_S_596.value0), ")")) - else - return error("No patterns matched") - end +M.Golden_LongStackBind_Test_compute = M.Unsafe_Coerce_foreign.unsafeCoerce((function( ) + local v_S_575_S_603 = M.Golden_LongStackBind_Test_go(0) + if "Data.Either∷Either.Left" == v_S_575_S_603["$ctor"] then + return M.Data_Either_Left(v_S_575_S_603.value0) + elseif "Data.Either∷Either.Right" == v_S_575_S_603["$ctor"] then + return M.Data_Either_Right(v_S_575_S_603.value0.value0) + else + return error("No patterns matched") + end +end)()) +return M.Effect_Console_foreign.log((function() + if "Data.Either∷Either.Left" == M.Golden_LongStackBind_Test_compute["$ctor"] then + return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_foreign.showStringImpl(M.Golden_LongStackBind_Test_compute.value0), ")")) + elseif "Data.Either∷Either.Right" == M.Golden_LongStackBind_Test_compute["$ctor"] then + return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongStackBind_Test_compute.value0), ")")) + else + return error("No patterns matched") end -})(M.Golden_LongStackBind_Test_compute))() +end)())() diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.ir b/test/ps/output/Golden.LongStateBind.Test/golden.ir index 814d5a21..7a1a6a58 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStateBind.Test/golden.ir @@ -19,17 +19,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Tuple", qnameName = Name "Tuple" }, Ctor Nothing ProductType @@ -116,12 +105,6 @@ UberModule ) ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.State.Class", qnameName = Name "state" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "state" ) ) ), RecursiveGroup ( ( QName @@ -169,10 +152,7 @@ UberModule ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) @@ -180,8 +160,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) @@ -240,8 +221,7 @@ UberModule ) ( Let Nothing ( Standalone - ( Nothing, Name "bind$523", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + ( Nothing, Name "bind$523", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$522" ) ) ) @@ -249,8 +229,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) :| [] ) ( AbsN Nothing @@ -272,13 +253,7 @@ UberModule ( AbsN Nothing ( ParamNamed Nothing ( Name "a'$527" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$522" ) ) ) @@ -289,8 +264,9 @@ UberModule ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$526" ) ) ) @@ -398,10 +374,7 @@ UberModule ( AbsN Nothing ( ParamNamed Nothing ( Name "s" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad" ) ) ) @@ -409,8 +382,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( AppN Nothing @@ -446,116 +420,31 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "bind" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + }, ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) ) :| [] + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "monadStateStateT" - }, LiteralObject Nothing - [ - ( PropName "state", AbsN Nothing - ( ParamNamed Nothing ( Name "f$27" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x$540" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$27" ) ) ) - ( Ref Nothing ( Local ( Name "x$540" ) ) :| [] ) :| [] - ) - ) - ) - ), - ( PropName "Monad0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.State.Trans" ) ( Name "monadStateT" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] - ) - ) - ) - ] + ( PropName "bind" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "get" - }, AppN Nothing + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x$540$1450" ) :| [] ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Monad.State.Class" ) ( Name "state" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "monadStateStateT" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "s$54" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( Ref Nothing ( Local ( Name "s$54" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "s$54" ) ) :| [] ) - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) + ( Ref Nothing ( Local ( Name "x$540$1450" ) ) :| [] ) + ) + ( Ref Nothing ( Local ( Name "x$540$1450" ) ) :| [] ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + }, ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "put" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "s$57" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.State.Class" ) ( Name "state" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "monadStateStateT" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "s$57" ) ) :| [] ) - ) :| [] - ) + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) ) ) + ( PropName "bind" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "add$w" @@ -570,10 +459,10 @@ UberModule { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont541", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$542" ) :| [] ) + ( Nothing, Name "$kont1460", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1461" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x100$543" ) :| [] ) + ( ParamNamed Nothing ( Name "x100$1462" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -590,18 +479,32 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "add$w" ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x141" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( Ref Nothing - ( Local ( Name "x141" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -629,24 +532,32 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x142" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x142" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -677,24 +588,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x143" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x143" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -725,24 +650,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x144" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x144" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -773,24 +712,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x145" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x145" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -823,24 +776,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x146" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x146" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -873,26 +840,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x147" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x147" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -925,26 +906,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x148" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x148" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -977,26 +972,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x149" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x149" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1029,26 +1038,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x150" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x150" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1074,13 +1097,7 @@ UberModule ( Name "final" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported @@ -1093,8 +1110,9 @@ UberModule ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing @@ -1112,11 +1130,11 @@ UberModule ) ( Ref Nothing ( Local - ( Name "x1$542" ) + ( Name "x1$1461" ) ) :| [ Ref Nothing ( Local - ( Name "x100$543" ) + ( Name "x100$1462" ) ) ] ) :| @@ -1173,10 +1191,10 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont544", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$545" ) :| [] ) + ( Nothing, Name "$kont1463", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1464" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x100$546" ) :| [] ) + ( ParamNamed Nothing ( Name "x100$1465" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -1193,21 +1211,32 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x121" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x121" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1238,24 +1267,32 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x122" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x122" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1286,24 +1323,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x123" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x123" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1334,24 +1385,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x124" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x124" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1382,24 +1447,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x125" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x125" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1432,24 +1511,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x126" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x126" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1482,26 +1577,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x127" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x127" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1534,26 +1643,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x128" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x128" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1586,26 +1709,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x129" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x129" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1638,26 +1775,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x130" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x130" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1690,28 +1841,42 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x131" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x131" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -1742,26 +1907,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x132" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x132" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1794,26 +1973,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x133" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x133" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1846,26 +2039,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x134" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x134" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1898,26 +2105,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x135" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x135" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -1950,26 +2171,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x136" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x136" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2002,26 +2237,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x137" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x137" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2054,26 +2303,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x138" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x138" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2106,26 +2369,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x139" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x139" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2158,26 +2435,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x140" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x140" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2187,18 +2478,18 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont541" ) + ( Name "$kont1460" ) ) ) ( Ref Nothing ( Local - ( Name "x1$545" ) + ( Name "x1$1464" ) ) :| [] ) ) ( Ref Nothing ( Local - ( Name "x100$546" ) + ( Name "x100$1465" ) ) :| [] ) ) :| [] @@ -2284,10 +2575,10 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont547", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$548" ) :| [] ) + ( Nothing, Name "$kont1466", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1467" ) :| [] ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x100$549" ) :| [] ) + ( ParamNamed Nothing ( Name "x100$1468" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2304,21 +2595,32 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x101" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x101" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2349,24 +2651,32 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x102" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x102" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2397,24 +2707,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x103" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x103" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2445,24 +2769,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x104" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x104" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2493,24 +2831,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x105" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x105" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2543,24 +2895,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x106" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x106" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2593,31 +2961,45 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x107" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x107" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -2645,26 +3027,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x108" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x108" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2697,26 +3093,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x109" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x109" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2749,26 +3159,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x110" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x110" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2801,26 +3225,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x111" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x111" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2853,26 +3291,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x112" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x112" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2905,26 +3357,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x113" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x113" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -2957,26 +3423,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x114" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x114" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3009,26 +3489,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x115" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x115" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3061,26 +3555,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x116" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x116" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3113,26 +3621,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x117" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x117" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3165,26 +3687,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x118" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x118" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3217,26 +3753,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x119" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x119" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3269,26 +3819,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x120" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x120" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3298,18 +3862,18 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont544" ) + ( Name "$kont1463" ) ) ) ( Ref Nothing ( Local - ( Name "x1$548" ) + ( Name "x1$1467" ) ) :| [] ) ) ( Ref Nothing ( Local - ( Name "x100$549" ) + ( Name "x100$1468" ) ) :| [] ) ) :| [] @@ -3395,8 +3959,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont550", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$551" ) :| [] ) + ( Nothing, Name "$kont1469", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1470" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -3413,15 +3977,32 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "add$w" ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x81" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x81" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -3449,24 +4030,32 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x82" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x82" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3497,25 +4086,39 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) ) - ) - ( Ref Nothing - ( Local ( Name "x83" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] - ) :| [] + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x83" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) + ) :| [] ) ) ( AbsN Nothing @@ -3545,24 +4148,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x84" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x84" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3593,24 +4210,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x85" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x85" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3643,24 +4274,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x86" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x86" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3693,26 +4338,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x87" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x87" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3745,26 +4404,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x88" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x88" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3797,26 +4470,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x89" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x89" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3849,26 +4536,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x90" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x90" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3901,26 +4602,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x91" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x91" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -3953,26 +4668,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x92" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x92" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4005,26 +4734,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x93" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x93" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4057,26 +4800,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x94" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x94" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4109,26 +4866,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x95" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x95" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4161,26 +4932,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x96" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x96" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4213,26 +4998,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x97" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x97" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4265,26 +5064,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x98" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x98" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4317,26 +5130,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x99" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x99" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4369,26 +5196,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x100" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x100" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4398,12 +5239,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont547" ) + ( Name "$kont1466" ) ) ) ( Ref Nothing ( Local - ( Name "x1$551" ) + ( Name "x1$1470" ) ) :| [] ) ) @@ -4494,8 +5335,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont552", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$553" ) :| [] ) + ( Nothing, Name "$kont1471", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1472" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -4512,15 +5353,32 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "add$w" ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x61" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x61" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -4548,24 +5406,32 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x62" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x62" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4596,24 +5462,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x63" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x63" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4644,24 +5524,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x64" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x64" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4692,24 +5586,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x65" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x65" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4742,24 +5650,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x66" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x66" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4792,26 +5714,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x67" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x67" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4844,26 +5780,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x68" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x68" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4896,26 +5846,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x69" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x69" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -4948,26 +5912,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x70" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x70" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5000,26 +5978,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x71" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x71" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5052,26 +6044,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x72" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x72" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5104,26 +6110,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x73" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x73" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5156,26 +6176,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x74" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x74" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5208,26 +6242,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x75" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x75" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5260,26 +6308,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x76" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x76" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5312,26 +6374,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x77" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x77" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5364,26 +6440,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x78" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x78" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5410,32 +6500,46 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "discard" ) - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "discard" ) ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x79" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x79" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5468,26 +6572,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x80" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x80" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5496,12 +6614,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont550" ) + ( Name "$kont1469" ) ) ) ( Ref Nothing ( Local - ( Name "x1$553" ) + ( Name "x1$1472" ) ) :| [] ) ) :| [] @@ -5586,8 +6704,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont554", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$555" ) :| [] ) + ( Nothing, Name "$kont1473", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1474" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -5604,15 +6722,32 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "add$w" ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x41" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x41" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -5640,24 +6775,32 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x42" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x42" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5688,24 +6831,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x43" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x43" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5736,24 +6893,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x44" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x44" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5784,24 +6955,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x45" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x45" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5834,24 +7019,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x46" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x46" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5884,26 +7083,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x47" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x47" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5936,26 +7149,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x48" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x48" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -5988,26 +7215,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x49" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x49" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6040,26 +7281,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x50" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x50" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6092,26 +7347,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x51" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x51" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6144,26 +7413,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x52" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x52" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6196,26 +7479,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x53" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x53" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6248,26 +7545,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local + ( Name "x54" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x54" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -6300,26 +7611,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x55" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x55" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6352,26 +7677,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x56" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x56" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6404,26 +7743,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x57" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x57" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6456,26 +7809,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x58" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x58" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6508,26 +7875,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x59" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x59" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6560,26 +7941,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x60" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x60" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6588,12 +7983,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont552" ) + ( Name "$kont1471" ) ) ) ( Ref Nothing ( Local - ( Name "x1$555" ) + ( Name "x1$1474" ) ) :| [] ) ) :| [] @@ -6678,8 +8073,8 @@ UberModule ) ) ), Standalone - ( Nothing, Name "$kont556", AbsN Nothing - ( ParamNamed Nothing ( Name "x1$557" ) :| [] ) + ( Nothing, Name "$kont1475", AbsN Nothing + ( ParamNamed Nothing ( Name "x1$1476" ) :| [] ) ( AppN Nothing ( AppN Nothing ( Ref Nothing @@ -6696,15 +8091,32 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "add$w" ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x21" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( Ref Nothing ( Local ( Name "x21" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -6732,24 +8144,32 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x22" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x22" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6780,24 +8200,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x23" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x23" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6828,24 +8262,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x24" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x24" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6876,24 +8324,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x25" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x25" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6926,24 +8388,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x26" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x26" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -6976,26 +8452,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x27" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x27" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7028,26 +8518,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x28" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x28" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7080,26 +8584,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local + ( Name "x29" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x29" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -7132,26 +8650,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x30" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x30" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7184,26 +8716,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x31" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x31" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7236,26 +8782,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x32" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x32" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7288,26 +8848,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x33" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x33" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7340,26 +8914,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x34" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x34" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7392,26 +8980,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x35" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x35" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7444,26 +9046,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x36" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x36" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7496,26 +9112,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x37" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x37" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7548,26 +9178,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x38" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x38" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7600,26 +9244,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x39" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x39" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7652,26 +9310,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x40" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x40" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7680,12 +9352,12 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont554" ) + ( Name "$kont1473" ) ) ) ( Ref Nothing ( Local - ( Name "x1$557" ) + ( Name "x1$1476" ) ) :| [] ) ) :| [] @@ -7786,15 +9458,22 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "add$w" ) ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "add$w" ) ) + ) + ( Ref Nothing ( Local ( Name "x1" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) - ( Ref Nothing ( Local ( Name "x1" ) ) :| [ LiteralInt Nothing 1 ] ) :| [] ) :| [] ) ) @@ -7816,21 +9495,32 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "put" ) ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x2" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x2" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7861,24 +9551,32 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x3" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x3" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7909,24 +9607,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x4" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x4" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -7957,24 +9669,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x5" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x5" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8005,24 +9731,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x6" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x6" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8055,24 +9795,38 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local ( Name "x7" ) ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "x7" ) ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8105,26 +9859,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x8" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x8" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8157,26 +9925,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x9" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x9" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8209,26 +9991,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x10" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x10" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8261,26 +10057,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x11" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x11" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8313,26 +10123,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x12" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x12" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8365,26 +10189,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] + ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) ) + ( Ref Nothing + ( Local + ( Name "x13" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] ) - ( Ref Nothing - ( Local - ( Name "x13" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] ) :| [] ) ) @@ -8417,26 +10255,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x14" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x14" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8469,26 +10321,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x15" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x15" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8521,26 +10387,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x16" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x16" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8573,26 +10453,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x17" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x17" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8625,26 +10519,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x18" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x18" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8677,26 +10585,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x19" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x19" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8729,26 +10651,40 @@ UberModule ( Name "discard" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "put" ) - ) - ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.LongStateBind.Test" ) - ( Name "add$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "foreign" ) + ) + ) + ( PropName "unit" ) :| [] ) ) - ( Ref Nothing - ( Local - ( Name "x20" ) - ) :| - [ LiteralInt Nothing 1 ] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.LongStateBind.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local + ( Name "x20" ) + ) :| + [ LiteralInt Nothing 1 ] + ) :| [] + ) ) :| [] ) ) @@ -8757,7 +10693,7 @@ UberModule ( AppN Nothing ( Ref Nothing ( Local - ( Name "$kont556" ) + ( Name "$kont1475" ) ) ) ( Ref Nothing diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.lua b/test/ps/output/Golden.LongStateBind.Test/golden.lua index 9906a941..6072dbb1 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.lua +++ b/test/ps/output/Golden.LongStateBind.Test/golden.lua @@ -4,8 +4,6 @@ M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end M.Data_Tuple_Tuple = function(value0) return function(value1) return { value0 = value0, value1 = value1 } end end @@ -35,7 +33,6 @@ M.Data_Identity_monadIdentity = { } end } -M.Control_Monad_State_Class_state = function(dict) return dict.state end M.Control_Monad_State_Trans_monadStateT = function(dictMonad) return { Applicative0 = function() @@ -51,7 +48,7 @@ M.Control_Monad_State_Trans_bindStateT = function(dictMonad) bind = function(v) return function(f) return function(s) - return M.Control_Bind_bind(dictMonad.Bind1())(v(s))(function(v1) + return (dictMonad.Bind1()).bind(v(s))(function(v1) return f(v1.value0)(v1.value1) end) end @@ -66,12 +63,12 @@ M.Control_Monad_State_Trans_applyStateT = function(dictMonad) return { apply = (function() local dictMonad_S_522 = M.Control_Monad_State_Trans_monadStateT(dictMonad) - local bind_S_523 = M.Control_Bind_bind(dictMonad_S_522.Bind1()) + local bind_S_523 = (dictMonad_S_522.Bind1()).bind return function(f_S_524) return function(a_S_525) return bind_S_523(f_S_524)(function(fPrime_S_526) return bind_S_523(a_S_525)(function(aPrime_S_527) - return M.Control_Applicative_pure(dictMonad_S_522.Applicative0())(fPrime_S_526(aPrime_S_527)) + return (dictMonad_S_522.Applicative0()).pure(fPrime_S_526(aPrime_S_527)) end) end) end @@ -96,7 +93,7 @@ M.Control_Monad_State_Trans_applicativeStateT = function(dictMonad) return { pure = function(a) return function(s) - return M.Control_Applicative_pure(dictMonad.Applicative0())(M.Data_Tuple_Tuple(a)(s)) + return (dictMonad.Applicative0()).pure(M.Data_Tuple_Tuple(a)(s)) end end, Apply0 = function() @@ -105,55 +102,60 @@ M.Control_Monad_State_Trans_applicativeStateT = function(dictMonad) } end M.Golden_LongStateBind_Test_bindStateT = M.Control_Monad_State_Trans_bindStateT(M.Data_Identity_monadIdentity) -M.Golden_LongStateBind_Test_bind = M.Control_Bind_bind(M.Golden_LongStateBind_Test_bindStateT) -M.Golden_LongStateBind_Test_monadStateStateT = { - state = function(f_S_27) - return function(x_S_540) - return M.Control_Applicative_pure(M.Data_Identity_monadIdentity.Applicative0())(f_S_27(x_S_540)) - end - end, - Monad0 = function() - return M.Control_Monad_State_Trans_monadStateT(M.Data_Identity_monadIdentity) - end -} -M.Golden_LongStateBind_Test_get = M.Control_Monad_State_Class_state(M.Golden_LongStateBind_Test_monadStateStateT)(function( s_S_54 ) - return M.Data_Tuple_Tuple(s_S_54)(s_S_54) -end) -M.Golden_LongStateBind_Test_discard = M.Control_Bind_bind(M.Golden_LongStateBind_Test_bindStateT) -M.Golden_LongStateBind_Test_put = function(s_S_57) - return M.Control_Monad_State_Class_state(M.Golden_LongStateBind_Test_monadStateStateT)(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(s_S_57) - end) +M.Golden_LongStateBind_Test_bind = M.Golden_LongStateBind_Test_bindStateT.bind +M.Golden_LongStateBind_Test_get = function(x_S_540_S_1450) + return M.Data_Tuple_Tuple(x_S_540_S_1450)(x_S_540_S_1450) end +M.Golden_LongStateBind_Test_discard = M.Golden_LongStateBind_Test_bindStateT.bind M.Golden_LongStateBind_Test_add_S_w = function(x_S_495_S_532, y_S_496_S_533) return x_S_495_S_532 + y_S_496_S_533 end M.Golden_LongStateBind_Test_go = (function() - local _S_kont541 = function(x1_S_542) - return function(x100_S_543) + local _S_kont1460 = function(x1_S_1461) + return function(x100_S_1462) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x141 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x141, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x141, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x142 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x142, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x142, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x143 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x143, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x143, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x144 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x144, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x144, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x145 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x145, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x145, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x146 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x146, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x146, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x147 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x147, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x147, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x148 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x148, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x148, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x149 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x149, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x149, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x150 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x150, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x150, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( final ) local Golden_LongStateBind_Test_add_S_w = M.Golden_LongStateBind_Test_add_S_w - return M.Control_Applicative_pure(M.Control_Monad_State_Trans_applicativeStateT(M.Data_Identity_monadIdentity))(Golden_LongStateBind_Test_add_S_w(Golden_LongStateBind_Test_add_S_w(x1_S_542, x100_S_543), final)) + return (M.Control_Monad_State_Trans_applicativeStateT(M.Data_Identity_monadIdentity)).pure(Golden_LongStateBind_Test_add_S_w(Golden_LongStateBind_Test_add_S_w(x1_S_1461, x100_S_1462), final)) end) end) end) @@ -177,49 +179,89 @@ M.Golden_LongStateBind_Test_go = (function() end) end end - local _S_kont544 = function(x1_S_545) - return function(x100_S_546) + local _S_kont1463 = function(x1_S_1464) + return function(x100_S_1465) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x121 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x121, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x121, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x122 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x122, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x122, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x123 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x123, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x123, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x124 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x124, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x124, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x125 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x125, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x125, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x126 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x126, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x126, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x127 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x127, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x127, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x128 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x128, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x128, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x129 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x129, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x129, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x130 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x130, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x130, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x131 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x131, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x131, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x132 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x132, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x132, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x133 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x133, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x133, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x134 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x134, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x134, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x135 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x135, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x135, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x136 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x136, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x136, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x137 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x137, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x137, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x138 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x138, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x138, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x139 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x139, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x139, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x140 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x140, 1)))(function( ) - return _S_kont541(x1_S_545)(x100_S_546) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x140, 1)) + end)(function( ) + return _S_kont1460(x1_S_1464)(x100_S_1465) end) end) end) @@ -262,49 +304,89 @@ M.Golden_LongStateBind_Test_go = (function() end) end end - local _S_kont547 = function(x1_S_548) - return function(x100_S_549) + local _S_kont1466 = function(x1_S_1467) + return function(x100_S_1468) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x101 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x101, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x101, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x102 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x102, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x102, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x103 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x103, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x103, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x104 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x104, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x104, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x105 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x105, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x105, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x106 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x106, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x106, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x107 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x107, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x107, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x108 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x108, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x108, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x109 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x109, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x109, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x110 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x110, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x110, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x111 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x111, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x111, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x112 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x112, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x112, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x113 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x113, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x113, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x114 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x114, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x114, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x115 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x115, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x115, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x116 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x116, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x116, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x117 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x117, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x117, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x118 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x118, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x118, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x119 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x119, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x119, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x120 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x120, 1)))(function( ) - return _S_kont544(x1_S_548)(x100_S_549) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x120, 1)) + end)(function( ) + return _S_kont1463(x1_S_1467)(x100_S_1468) end) end) end) @@ -347,48 +429,88 @@ M.Golden_LongStateBind_Test_go = (function() end) end end - local _S_kont550 = function(x1_S_551) + local _S_kont1469 = function(x1_S_1470) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x81 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x81, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x81, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x82 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x82, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x82, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x83 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x83, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x83, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x84 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x84, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x84, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x85 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x85, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x85, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x86 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x86, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x86, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x87 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x87, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x87, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x88 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x88, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x88, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x89 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x89, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x89, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x90 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x90, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x90, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x91 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x91, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x91, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x92 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x92, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x92, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x93 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x93, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x93, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x94 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x94, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x94, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x95 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x95, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x95, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x96 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x96, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x96, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x97 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x97, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x97, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x98 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x98, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x98, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x99 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x99, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x99, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x100 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x100, 1)))(function( ) - return _S_kont547(x1_S_551)(x100) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x100, 1)) + end)(function( ) + return _S_kont1466(x1_S_1470)(x100) end) end) end) @@ -430,48 +552,88 @@ M.Golden_LongStateBind_Test_go = (function() end) end) end - local _S_kont552 = function(x1_S_553) + local _S_kont1471 = function(x1_S_1472) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x61 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x61, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x61, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x62 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x62, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x62, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x63 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x63, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x63, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x64 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x64, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x64, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x65 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x65, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x65, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x66 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x66, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x66, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x67 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x67, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x67, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x68 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x68, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x68, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x69 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x69, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x69, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x70 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x70, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x70, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x71 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x71, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x71, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x72 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x72, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x72, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x73 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x73, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x73, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x74 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x74, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x74, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x75 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x75, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x75, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x76 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x76, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x76, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x77 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x77, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x77, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x78 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x78, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x78, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x79 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x79, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x79, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x80 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x80, 1)))(function( ) - return _S_kont550(x1_S_553) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x80, 1)) + end)(function( ) + return _S_kont1469(x1_S_1472) end) end) end) @@ -513,48 +675,88 @@ M.Golden_LongStateBind_Test_go = (function() end) end) end - local _S_kont554 = function(x1_S_555) + local _S_kont1473 = function(x1_S_1474) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x41 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x41, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x41, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x42 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x42, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x42, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x43 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x43, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x43, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x44 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x44, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x44, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x45 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x45, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x45, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x46 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x46, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x46, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x47 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x47, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x47, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x48 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x48, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x48, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x49 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x49, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x49, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x50 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x50, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x50, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x51 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x51, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x51, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x52 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x52, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x52, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x53 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x53, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x53, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x54 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x54, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x54, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x55 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x55, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x55, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x56 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x56, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x56, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x57 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x57, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x57, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x58 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x58, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x58, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x59 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x59, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x59, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x60 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x60, 1)))(function( ) - return _S_kont552(x1_S_555) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x60, 1)) + end)(function( ) + return _S_kont1471(x1_S_1474) end) end) end) @@ -596,48 +798,88 @@ M.Golden_LongStateBind_Test_go = (function() end) end) end - local _S_kont556 = function(x1_S_557) + local _S_kont1475 = function(x1_S_1476) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x21 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x21, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x21, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x22 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x22, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x22, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x23 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x23, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x23, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x24 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x24, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x24, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x25 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x25, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x25, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x26 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x26, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x26, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x27 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x27, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x27, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x28 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x28, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x28, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x29 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x29, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x29, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x30 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x30, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x30, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x31 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x31, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x31, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x32 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x32, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x32, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x33 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x33, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x33, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x34 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x34, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x34, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x35 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x35, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x35, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x36 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x36, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x36, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x37 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x37, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x37, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x38 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x38, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x38, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x39 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x39, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x39, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x40 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x40, 1)))(function( ) - return _S_kont554(x1_S_557) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x40, 1)) + end)(function( ) + return _S_kont1473(x1_S_1476) end) end) end) @@ -680,46 +922,86 @@ M.Golden_LongStateBind_Test_go = (function() end) end return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x1 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x1, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x1, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x2 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x2, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x2, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x3 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x3, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x3, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x4 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x4, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x4, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x5 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x5, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x5, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x6 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x6, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function() + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x6, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x7 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x7, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x7, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x8 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x8, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x8, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x9 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x9, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x9, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x10 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x10, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x10, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x11 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x11, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x11, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x12 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x12, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x12, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x13 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x13, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x13, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x14 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x14, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x14, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x15 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x15, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x15, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x16 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x16, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x16, 1)) + end)(function() return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x17 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x17, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x17, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x18 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x18, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x18, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x19 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x19, 1)))(function( ) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x19, 1)) + end)(function( ) return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x20 ) - return M.Golden_LongStateBind_Test_discard(M.Golden_LongStateBind_Test_put(M.Golden_LongStateBind_Test_add_S_w(x20, 1)))(function( ) - return _S_kont556(x1) + return M.Golden_LongStateBind_Test_discard(function( ) + return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x20, 1)) + end)(function( ) + return _S_kont1475(x1) end) end) end) diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.ir b/test/ps/output/Golden.LongWriterBind.Test/golden.ir index ad50828b..e85fca2f 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.ir +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.ir @@ -31,34 +31,6 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" - }, LiteralObject Nothing - [ - ( PropName "compose", AbsN Nothing - ( ParamNamed Nothing ( Name "f" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "g" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] - ) - ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "semigroupArray" }, LiteralObject Nothing @@ -69,27 +41,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "append" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "append" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Monoid", qnameName = Name "monoidArray" }, LiteralObject Nothing @@ -176,14 +127,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "compose" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Writer.Trans", qnameName = Name "applyWriterT$w" }, AbsN Nothing @@ -215,11 +158,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) - ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "Functor0" ) ) ) + ( PropName "map" ) ) ( AbsN Nothing ( ParamNamed Nothing ( Name "v3$33" ) :| [] ) @@ -243,14 +184,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.Semigroup" ) - ( Name "append" ) - ) - ) - ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) ) + ( PropName "append" ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v3$33" ) ) ) @@ -283,11 +219,9 @@ UberModule ( ParamNamed Nothing ( Name "v$499" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) - ( Ref Nothing ( Local ( Name "Functor0" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "Functor0" ) ) ) + ( PropName "map" ) ) ( AbsN Nothing ( ParamNamed Nothing ( Name "v$497" ) :| [] ) @@ -347,9 +281,9 @@ UberModule ( ParamNamed Nothing ( Name "k" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Local ( Name "dictBind" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictBind" ) ) ) + ( PropName "bind" ) ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) ) @@ -357,10 +291,7 @@ UberModule ( ParamNamed Nothing ( Name "v1" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "Apply0" ) ) ) @@ -368,8 +299,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "map" ) ) ( AbsN Nothing ( ParamNamed Nothing ( Name "v3" ) :| [] ) @@ -385,11 +317,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semigroup" ) ( Name "append" ) ) - ) - ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictSemigroup" ) ) ) + ( PropName "append" ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) @@ -447,9 +377,9 @@ UberModule ( PropName "pure", AbsN Nothing ( ParamNamed Nothing ( Name "a" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Local ( Name "dictApplicative" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictApplicative" ) ) ) + ( PropName "pure" ) ) ( AppN Nothing ( AppN Nothing @@ -490,8 +420,7 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + }, ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "bindWriterT$w" ) ) @@ -499,8 +428,9 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupArray" ) ) :| [ Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "bindIdentity" ) ) ] - ) :| [] + ) ) + ( PropName "bind" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "tell" @@ -526,55 +456,35 @@ UberModule ) ( LiteralObject Nothing [ - ( PropName "tell", AppN Nothing + ( PropName "tell", AbsN Nothing + ( ParamNamed Nothing ( Name "x$532$535" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "compose" ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x$500$512" ) :| [] ) - ( Ref Nothing ( Local ( Name "x$500$512" ) ) ) :| [] + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonad$511" ) ) ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ) + ( PropName "pure" ) ) - ) - ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Monad.Writer.Trans" ) ( Name "compose" ) ) - ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) :| [] ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "dictMonad$511" ) ) ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) :| [] ) + ( Ref Nothing ( Local ( Name "x$532$535" ) ) :| [] ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) :| [] - ) :| [] ) ), ( PropName "Semigroup0", AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) - ) - ( PropName "Semigroup0" ) - ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupArray" ) ) ) ), ( PropName "Monad1", AbsN Nothing @@ -613,16 +523,8 @@ UberModule ( Name "bindWriterT$w" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Monoid" ) ( Name "monoidArray" ) ) - ) - ( PropName "Semigroup0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| + ( Ref Nothing + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupArray" ) ) :| [ AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictMonad$511" ) ) ) @@ -647,7 +549,7 @@ UberModule { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "go" }, Let Nothing ( Standalone - ( Nothing, Name "$kont515", AppN Nothing + ( Nothing, Name "$kont539", AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) @@ -1498,13 +1400,7 @@ UberModule ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( Ref Nothing ( Imported @@ -1523,8 +1419,9 @@ UberModule ( Name "applicativeIdentity" ) ) ] - ) :| [] + ) ) + ( PropName "pure" ) ) ( LiteralInt Nothing 42 :| [] ) ) :| [] @@ -1609,7 +1506,7 @@ UberModule ) ) :| [ Standalone - ( Nothing, Name "$kont516", AppN Nothing + ( Nothing, Name "$kont540", AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) @@ -2466,7 +2363,7 @@ UberModule ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local - ( Name "$kont515" ) + ( Name "$kont539" ) ) ) :| [] ) @@ -2549,7 +2446,7 @@ UberModule ) :| [] ) ), Standalone - ( Nothing, Name "$kont517", AppN Nothing + ( Nothing, Name "$kont541", AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) @@ -3404,7 +3301,7 @@ UberModule ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local - ( Name "$kont516" ) + ( Name "$kont540" ) ) ) :| [] ) @@ -3487,7 +3384,7 @@ UberModule ) :| [] ) ), Standalone - ( Nothing, Name "$kont518", AppN Nothing + ( Nothing, Name "$kont542", AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard" ) ) @@ -4342,7 +4239,7 @@ UberModule ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local - ( Name "$kont517" ) + ( Name "$kont541" ) ) ) :| [] ) @@ -5274,7 +5171,7 @@ UberModule ( ParamUnused Nothing :| [] ) ( Ref Nothing ( Local - ( Name "$kont518" ) + ( Name "$kont542" ) ) ) :| [] ) @@ -5362,25 +5259,9 @@ UberModule { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "compute" }, ObjectProp Nothing ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] - ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$39$494" ) :| [] ) - ( Ref Nothing ( Local ( Name "v$39$494" ) ) ) :| [] - ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) + ( PropName "unsafeCoerce" ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "go" ) ) :| [] diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.lua b/test/ps/output/Golden.LongWriterBind.Test/golden.lua index 2fc0e8b9..739550e3 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.lua +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.lua @@ -18,19 +18,9 @@ M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Semigroupoid_semigroupoidFn = { - compose = function(f) - return function(g) return function(x) return f(g(x)) end end - end -} -M.Control_Semigroupoid_compose = function(dict) return dict.compose end M.Data_Semigroup_semigroupArray = { append = M.Data_Semigroup_foreign.concatArray } -M.Data_Semigroup_append = function(dict) return dict.append end -M.Data_Functor_map = function(dict) return dict.map end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end M.Data_Monoid_monoidArray = { mempty = {}, Semigroup0 = function() return M.Data_Semigroup_semigroupArray end @@ -56,16 +46,15 @@ M.Data_Identity_applicativeIdentity = { pure = function(x_S_503) return x_S_503 end, Apply0 = function() return M.Data_Identity_applyIdentity end } -M.Control_Monad_Writer_Trans_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) M.Control_Monad_Writer_Trans_applyWriterT_S_w = function( dictSemigroup , dictApply ) local Functor0 = dictApply.Functor0() return { apply = function(v) return function(v1) - return dictApply.apply(M.Data_Functor_map(Functor0)(function(v3_S_33) + return dictApply.apply(Functor0.map(function(v3_S_33) return function(v4_S_34) - return M.Data_Tuple_Tuple(v3_S_33.value0(v4_S_34.value0))(M.Data_Semigroup_append(dictSemigroup)(v3_S_33.value1)(v4_S_34.value1)) + return M.Data_Tuple_Tuple(v3_S_33.value0(v4_S_34.value0))(dictSemigroup.append(v3_S_33.value1)(v4_S_34.value1)) end end)(v))(v1) end @@ -74,7 +63,7 @@ M.Control_Monad_Writer_Trans_applyWriterT_S_w = function( dictSemigroup return { map = function(f_S_496) return function(v_S_499) - return M.Data_Functor_map(Functor0)(function(v_S_497) + return Functor0.map(function(v_S_497) return M.Data_Tuple_Tuple(f_S_496(v_S_497.value0))(v_S_497.value1) end)(v_S_499) end @@ -88,9 +77,9 @@ M.Control_Monad_Writer_Trans_bindWriterT_S_w = function(dictSemigroup, dictBind) return { bind = function(v) return function(k) - return M.Control_Bind_bind(dictBind)(v)(function(v1) - return M.Data_Functor_map(Apply0.Functor0())(function(v3) - return M.Data_Tuple_Tuple(v3.value0)(M.Data_Semigroup_append(dictSemigroup)(v1.value1)(v3.value1)) + return dictBind.bind(v)(function(v1) + return (Apply0.Functor0()).map(function(v3) + return M.Data_Tuple_Tuple(v3.value0)(dictSemigroup.append(v1.value1)(v3.value1)) end)(k(v1.value0)) end) end @@ -104,27 +93,26 @@ M.Control_Monad_Writer_Trans_applicativeWriterT_S_w = function( dictMonoid , dictApplicative ) return { pure = function(a) - return M.Control_Applicative_pure(dictApplicative)(M.Data_Tuple_Tuple(a)(dictMonoid.mempty)) + return dictApplicative.pure(M.Data_Tuple_Tuple(a)(dictMonoid.mempty)) end, Apply0 = function() return M.Control_Monad_Writer_Trans_applyWriterT_S_w(dictMonoid.Semigroup0(), dictApplicative.Apply0()) end } end -M.Golden_LongWriterBind_Test_discard = M.Control_Bind_bind(M.Control_Monad_Writer_Trans_bindWriterT_S_w(M.Data_Semigroup_semigroupArray, M.Data_Identity_bindIdentity)) +M.Golden_LongWriterBind_Test_discard = (M.Control_Monad_Writer_Trans_bindWriterT_S_w(M.Data_Semigroup_semigroupArray, M.Data_Identity_bindIdentity)).bind M.Golden_LongWriterBind_Test_tell = (function() - local Control_Monad_Writer_Trans_compose = M.Control_Monad_Writer_Trans_compose local dictMonad_S_511 = { Applicative0 = function() return M.Data_Identity_applicativeIdentity end, Bind1 = function() return M.Data_Identity_bindIdentity end } - return Control_Monad_Writer_Trans_compose(function(x_S_500_S_512) - return x_S_500_S_512 - end)(Control_Monad_Writer_Trans_compose(M.Control_Applicative_pure(dictMonad_S_511.Applicative0()))(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit))) + return function(x_S_532_S_535) + return (dictMonad_S_511.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(x_S_532_S_535)) + end end)() M.Golden_LongWriterBind_Test_go = (function() local Golden_LongWriterBind_Test_discard, Golden_LongWriterBind_Test_tell = M.Golden_LongWriterBind_Test_discard, M.Golden_LongWriterBind_Test_tell - local _S_kont515 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ + local _S_kont539 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 161 }))(function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ @@ -244,7 +232,7 @@ M.Golden_LongWriterBind_Test_go = (function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ [1] = 200 }))(function( ) - return M.Control_Applicative_pure(M.Control_Monad_Writer_Trans_applicativeWriterT_S_w(M.Data_Monoid_monoidArray, M.Data_Identity_applicativeIdentity))(42) + return (M.Control_Monad_Writer_Trans_applicativeWriterT_S_w(M.Data_Monoid_monoidArray, M.Data_Identity_applicativeIdentity)).pure(42) end) end) end) @@ -285,7 +273,7 @@ M.Golden_LongWriterBind_Test_go = (function() end) end) end) - local _S_kont516 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ + local _S_kont540 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 121 }))(function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ @@ -405,7 +393,7 @@ M.Golden_LongWriterBind_Test_go = (function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ [1] = 160 }))(function( ) - return _S_kont515 + return _S_kont539 end) end) end) @@ -446,7 +434,7 @@ M.Golden_LongWriterBind_Test_go = (function() end) end) end) - local _S_kont517 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ + local _S_kont541 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 81 }))(function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ @@ -566,7 +554,7 @@ M.Golden_LongWriterBind_Test_go = (function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ [1] = 120 }))(function( ) - return _S_kont516 + return _S_kont540 end) end) end) @@ -607,7 +595,7 @@ M.Golden_LongWriterBind_Test_go = (function() end) end) end) - local _S_kont518 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ + local _S_kont542 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 41 }))(function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ @@ -727,7 +715,7 @@ M.Golden_LongWriterBind_Test_go = (function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ [1] = 80 }))(function( ) - return _S_kont517 + return _S_kont541 end) end) end) @@ -888,7 +876,7 @@ M.Golden_LongWriterBind_Test_go = (function() return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ [1] = 40 }))(function( ) - return _S_kont518 + return _S_kont542 end) end) end) @@ -930,7 +918,5 @@ M.Golden_LongWriterBind_Test_go = (function() end) end) end)() -M.Golden_LongWriterBind_Test_compute = (M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn)(M.Unsafe_Coerce_foreign.unsafeCoerce)(function( v_S_39_S_494 ) - return v_S_39_S_494 -end)(M.Golden_LongWriterBind_Test_go)).value0 +M.Golden_LongWriterBind_Test_compute = (M.Unsafe_Coerce_foreign.unsafeCoerce(M.Golden_LongWriterBind_Test_go)).value0 return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(M.Golden_LongWriterBind_Test_compute))() diff --git a/test/ps/output/Golden.Loopification.Test/golden.ir b/test/ps/output/Golden.Loopification.Test/golden.ir index ff332c11..36e01295 100644 --- a/test/ps/output/Golden.Loopification.Test/golden.ir +++ b/test/ps/output/Golden.Loopification.Test/golden.ir @@ -7,335 +7,12 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqInt" }, LiteralObject Nothing - [ - ( PropName "eq", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "r1$202" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "r2$203" ) :| [] ) - ( Eq Nothing - ( Ref Nothing ( Local ( Name "r1$202" ) ) ) - ( Ref Nothing ( Local ( Name "r2$203" ) ) ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "semiringInt" - }, LiteralObject Nothing - [ - ( PropName "add", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$192" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$193" ) :| [] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$192" ) ) ) - ( Ref Nothing ( Local ( Name "y$193" ) ) ) - ) - ) - ), - ( PropName "zero", LiteralInt Nothing 0 ), - ( PropName "mul", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$190" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$191" ) :| [] ) - ( PrimBinOp Nothing PrimMul - ( Ref Nothing ( Local ( Name "x$190" ) ) ) - ( Ref Nothing ( Local ( Name "y$191" ) ) ) - ) - ) - ), - ( PropName "one", LiteralInt Nothing 1 ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "ordInt" - }, LiteralObject Nothing - [ - ( PropName "compare", AbsN Nothing - ( ParamNamed Nothing ( Name "x$186" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$187" ) :| [] ) - ( IfThenElse Nothing - ( PrimBinOp Nothing PrimLt - ( Ref Nothing ( Local ( Name "x$186" ) ) ) - ( Ref Nothing ( Local ( Name "y$187" ) ) ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "LT" ) [] - ) - ( IfThenElse Nothing - ( Eq Nothing - ( Ref Nothing ( Local ( Name "x$186" ) ) ) - ( Ref Nothing ( Local ( Name "y$187" ) ) ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "EQ" ) [] - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "GT" ) [] - ) - ) - ) - ) - ), - ( PropName "Eq0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "compare" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compare" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$28" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$29" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$28" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$29" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$7", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$9" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$10" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "f$9" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$11" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$7" ) ) ) - ( Ref Nothing ( Local ( Name "a$10" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$12" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$11" ) ) ) - ( Ref Nothing ( Local ( Name "a'$12" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Loopification.Test", qnameName = Name "eq" - }, ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) - ( PropName "eq" ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Loopification.Test", qnameName = Name "add" - }, ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ( PropName "add" ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.Loopification.Test", qnameName = Name "sub$w" }, AbsN Nothing @@ -344,30 +21,6 @@ UberModule ( Ref Nothing ( Local ( Name "x$188$221" ) ) ) ( Ref Nothing ( Local ( Name "y$189$222" ) ) ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Loopification.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Loopification.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$2" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) - ( Ref Nothing ( Local ( Name "a$2" ) ) :| [] ) :| [] - ) - ) ), RecursiveGroup ( ( QName @@ -375,28 +28,15 @@ UberModule }, AbsN Nothing ( ParamNamed Nothing ( Name "acc" ) :| [ ParamNamed Nothing ( Name "n" ) ] ) ( IfThenElse Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) ( Ref Nothing ( Local ( Name "acc" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sumTo$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "add" ) ) - ) - ( Ref Nothing ( Local ( Name "acc" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) :| + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "acc" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) ) :| [ AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sub$w" ) ) @@ -437,36 +77,15 @@ UberModule ( Nothing, Name "go$w", AbsN Nothing ( ParamNamed Nothing ( Name "acc" ) :| [ ParamNamed Nothing ( Name "n" ) ] ) ( IfThenElse Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) ( Ref Nothing ( Local ( Name "acc" ) ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "go$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "add" ) ) - ) - ( Ref Nothing ( Local ( Name "acc" ) ) :| [] ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) - ) - ( PropName "mul" ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) :| [] + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "acc" ) ) ) + ( PrimBinOp Nothing PrimMul + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) ) ) :| [ AppN Nothing ( Ref Nothing @@ -492,15 +111,7 @@ UberModule }, AbsN Nothing ( ParamNamed Nothing ( Name "n" ) :| [ ParamNamed Nothing ( Name "k" ) ] ) ( IfThenElse Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "k" ) ) ) ( LiteralInt Nothing 0 :| [] ) ) ( AppN Nothing ( Ref Nothing @@ -515,14 +126,9 @@ UberModule ( ParamNamed Nothing ( Name "r" ) :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "k" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "add" ) ) - ) - ( Ref Nothing ( Local ( Name "r" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) :| [] + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "r" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) ) :| [] ) ) ] @@ -558,16 +164,16 @@ UberModule ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) - ( ReflectCtor Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 100 :| [] ) + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 100 ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( IfThenElse Nothing + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 100 ) ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ) ) ) @@ -585,14 +191,9 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "mc91" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "add" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 11 :| [] ) :| [] + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 11 ) :| [] ) :| [] ) ) @@ -607,16 +208,16 @@ UberModule ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) - ( ReflectCtor Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 0 :| [] ) + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 0 ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( IfThenElse Nothing + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ) ) ) @@ -641,15 +242,7 @@ UberModule }, AbsN Nothing ( ParamNamed Nothing ( Name "n" ) :| [ ParamUnused Nothing ] ) ( IfThenElse Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) ( LiteralInt Nothing 0 ) ( AppN Nothing ( Ref Nothing @@ -711,95 +304,176 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "countdown" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 5 :| [] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "countdown" ) ) + ) + ( LiteralInt Nothing 5 :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sumTo$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 10 ] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sumTo$w" ) ) + ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 10 ] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sumSquares" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 4 :| [] ) :| [] + ( Let Nothing + ( RecursiveGroup + ( + ( Nothing, Name "go$w$252", AbsN Nothing + ( ParamNamed Nothing + ( Name "acc$253" ) :| + [ ParamNamed Nothing ( Name "n$254" ) ] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( Ref Nothing ( Local ( Name "n$254" ) ) ) + ( LiteralInt Nothing 0 ) + ) + ( Ref Nothing ( Local ( Name "acc$253" ) ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "go$w$252" ) ) ) + ( PrimBinOp Nothing PrimAdd + ( Ref Nothing ( Local ( Name "acc$253" ) ) ) + ( PrimBinOp Nothing PrimMul + ( Ref Nothing ( Local ( Name "n$254" ) ) ) + ( Ref Nothing ( Local ( Name "n$254" ) ) ) + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.Loopification.Test" ) + ( Name "sub$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "n$254" ) ) :| + [ LiteralInt Nothing 1 ] + ) + ] + ) + ) + ) + ) :| [] + ) :| [] + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "go$w$252" ) ) ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 4 ] ) + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "mc91" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "mc91" ) ) + ) + ( LiteralInt Nothing 1 :| [] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sumCPS$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 5 :| - [ AbsN Nothing - ( ParamNamed Nothing ( Name "x$228" ) :| [] ) - ( Ref Nothing ( Local ( Name "x$228" ) ) ) - ] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sumCPS$w" ) ) + ) + ( LiteralInt Nothing 5 :| + [ AbsN Nothing + ( ParamNamed Nothing ( Name "x$228" ) :| [] ) + ( Ref Nothing ( Local ( Name "x$228" ) ) ) + ] + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "countDrop$w" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) - ( LiteralInt Nothing 3 :| [ LiteralInt Nothing 99 ] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "countDrop$w" ) ) + ) + ( LiteralInt Nothing 3 :| [ LiteralInt Nothing 99 ] ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.Loopification.Test/golden.lua b/test/ps/output/Golden.Loopification.Test/golden.lua index c1ff0471..5f4391c8 100644 --- a/test/ps/output/Golden.Loopification.Test/golden.lua +++ b/test/ps/output/Golden.Loopification.Test/golden.lua @@ -1,119 +1,18 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Eq_eqInt = { - eq = function(r1_S_202) - return function(r2_S_203) return r1_S_202 == r2_S_203 end - end -} -M.Data_Semiring_semiringInt = { - add = function(x_S_192) - return function(y_S_193) return x_S_192 + y_S_193 end - end, - zero = 0, - mul = function(x_S_190) - return function(y_S_191) return x_S_190 * y_S_191 end - end, - one = 1 -} -M.Data_Ord_ordInt = { - compare = function(x_S_186) - return function(y_S_187) - if x_S_186 < y_S_187 then - return { ["$ctor"] = "Data.Ordering∷Ordering.LT" } - elseif x_S_186 == y_S_187 then - return { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } - else - return { ["$ctor"] = "Data.Ordering∷Ordering.GT" } - end - end - end, - Eq0 = function() return M.Data_Eq_eqInt end -} -M.Data_Ord_compare = function(dict) return dict.compare end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_28) - return function(a_S_29) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_28))(a_S_29) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_7 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_9) - return function(a_S_10) - return bind_S_7(f_S_9)(function(fPrime_S_11) - return bind_S_7(a_S_10)(function(aPrime_S_12) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_11(aPrime_S_12)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_Loopification_Test_eq = M.Data_Eq_eqInt.eq -M.Golden_Loopification_Test_add = M.Data_Semiring_semiringInt.add M.Golden_Loopification_Test_sub_S_w = function(x_S_188_S_221, y_S_189_S_222) return x_S_188_S_221 - y_S_189_S_222 end -M.Golden_Loopification_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_Loopification_Test_logShow = function(a_S_2) - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_2)) -end M.Golden_Loopification_Test_sumTo_S_w = function(acc, n) - local Golden_Loopification_Test_add, Golden_Loopification_Test_eq, Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_add, M.Golden_Loopification_Test_eq, M.Golden_Loopification_Test_sub_S_w + local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w while true do - if Golden_Loopification_Test_eq(n)(0) then + if n == 0 then return acc else - acc, n = Golden_Loopification_Test_add(acc)(n), Golden_Loopification_Test_sub_S_w(n, 1) + acc, n = acc + n, Golden_Loopification_Test_sub_S_w(n, 1) end end end @@ -125,23 +24,23 @@ end M.Golden_Loopification_Test_sumSquares = function(m) local go_S_w go_S_w = function(acc, n) - local Data_Semiring_semiringInt, Golden_Loopification_Test_add, Golden_Loopification_Test_eq, Golden_Loopification_Test_sub_S_w = M.Data_Semiring_semiringInt, M.Golden_Loopification_Test_add, M.Golden_Loopification_Test_eq, M.Golden_Loopification_Test_sub_S_w + local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w while true do - if Golden_Loopification_Test_eq(n)(0) then + if n == 0 then return acc else - acc, n = Golden_Loopification_Test_add(acc)(Data_Semiring_semiringInt.mul(n)(n)), Golden_Loopification_Test_sub_S_w(n, 1) + acc, n = acc + n * n, Golden_Loopification_Test_sub_S_w(n, 1) end end end return go_S_w(0, m) end M.Golden_Loopification_Test_sumCPS_S_w = function(n, k) - if M.Golden_Loopification_Test_eq(n)(0) then + if n == 0 then return k(0) else return M.Golden_Loopification_Test_sumCPS_S_w(M.Golden_Loopification_Test_sub_S_w(n, 1), function( r ) - return k(M.Golden_Loopification_Test_add(r)(n)) + return k(r + n) end) end end @@ -151,19 +50,35 @@ M.Golden_Loopification_Test_sumCPS = function(sumCPS_S_p1) end end M.Golden_Loopification_Test_mc91 = function(n) - local Data_Ord_compare, Data_Ord_ordInt, Golden_Loopification_Test_add, Golden_Loopification_Test_mc91, Golden_Loopification_Test_sub_S_w = M.Data_Ord_compare, M.Data_Ord_ordInt, M.Golden_Loopification_Test_add, M.Golden_Loopification_Test_mc91, M.Golden_Loopification_Test_sub_S_w + local Golden_Loopification_Test_mc91, Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_mc91, M.Golden_Loopification_Test_sub_S_w while true do - if "Data.Ordering∷Ordering.GT" == (Data_Ord_compare(Data_Ord_ordInt)(n)(100))["$ctor"] then + if "Data.Ordering∷Ordering.GT" == (function() + if n < 100 then + return "Data.Ordering∷Ordering.LT" + elseif n == 100 then + return "Data.Ordering∷Ordering.EQ" + else + return "Data.Ordering∷Ordering.GT" + end + end)() then return Golden_Loopification_Test_sub_S_w(n, 10) else - n = Golden_Loopification_Test_mc91(Golden_Loopification_Test_add(n)(11)) + n = Golden_Loopification_Test_mc91(n + 11) end end end M.Golden_Loopification_Test_countdown = function(n) - local Data_Ord_compare, Data_Ord_ordInt, Golden_Loopification_Test_sub_S_w = M.Data_Ord_compare, M.Data_Ord_ordInt, M.Golden_Loopification_Test_sub_S_w + local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w while true do - if "Data.Ordering∷Ordering.GT" == (Data_Ord_compare(Data_Ord_ordInt)(n)(0))["$ctor"] then + if "Data.Ordering∷Ordering.GT" == (function() + if n < 0 then + return "Data.Ordering∷Ordering.LT" + elseif n == 0 then + return "Data.Ordering∷Ordering.EQ" + else + return "Data.Ordering∷Ordering.GT" + end + end)() then n = Golden_Loopification_Test_sub_S_w(n, 1) else return 0 @@ -171,13 +86,9 @@ M.Golden_Loopification_Test_countdown = function(n) end end M.Golden_Loopification_Test_countDrop_S_w = function(n) - local Golden_Loopification_Test_eq, Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_eq, M.Golden_Loopification_Test_sub_S_w + local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w while true do - if Golden_Loopification_Test_eq(n)(0) then - return 0 - else - n = Golden_Loopification_Test_sub_S_w(n, 1) - end + if n == 0 then return 0 else n = Golden_Loopification_Test_sub_S_w(n, 1) end end end M.Golden_Loopification_Test_countDrop = function(countDrop_S_p1) @@ -186,13 +97,26 @@ M.Golden_Loopification_Test_countDrop = function(countDrop_S_p1) end end return (function() - local Golden_Loopification_Test_logShow = M.Golden_Loopification_Test_logShow - local _ = Golden_Loopification_Test_logShow(M.Golden_Loopification_Test_countdown(5))() - local _ = Golden_Loopification_Test_logShow(M.Golden_Loopification_Test_sumTo_S_w(0, 10))() - local _ = Golden_Loopification_Test_logShow(M.Golden_Loopification_Test_sumSquares(4))() - local _ = Golden_Loopification_Test_logShow(M.Golden_Loopification_Test_mc91(1))() - local _ = Golden_Loopification_Test_logShow(M.Golden_Loopification_Test_sumCPS_S_w(5, function( x_S_228 ) + local Data_Show_foreign, Effect_Console_foreign = M.Data_Show_foreign, M.Effect_Console_foreign + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_countdown(5)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_sumTo_S_w(0, 10)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local go_S_w_S_252 + go_S_w_S_252 = function(acc_S_253, n_S_254) + local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w + while true do + if n_S_254 == 0 then + return acc_S_253 + else + acc_S_253, n_S_254 = acc_S_253 + n_S_254 * n_S_254, Golden_Loopification_Test_sub_S_w(n_S_254, 1) + end + end + end + return go_S_w_S_252(0, 4) + end)()))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_mc91(1)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_sumCPS_S_w(5, function( x_S_228 ) return x_S_228 - end))() - return Golden_Loopification_Test_logShow(M.Golden_Loopification_Test_countDrop_S_w(3, 99))() + end)))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_countDrop_S_w(3, 99)))() end)() diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.ir b/test/ps/output/Golden.MaybeChain.Test/golden.ir index 34e74cc1..6740ba9b 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChain.Test/golden.ir @@ -7,29 +7,12 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "Nothing" }, Ctor Nothing SumType @@ -72,227 +55,6 @@ UberModule ( Exception Nothing "No patterns matched" ) ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$121" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$122" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$121" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$122" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$101", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$103" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$104" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$101" ) ) ) - ( Ref Nothing ( Local ( Name "f$103" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$105" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$101" ) ) ) - ( Ref Nothing ( Local ( Name "a$104" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$106" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$105" ) ) ) - ( Ref Nothing ( Local ( Name "a'$106" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$4" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) - ( Ref Nothing ( Local ( Name "a$4" ) ) :| [] ) :| [] - ) - ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "identity" @@ -330,8 +92,58 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( LiteralInt Nothing 0 :| + [ Ref Nothing + ( Imported + ( ModuleName "Golden.MaybeChain.Test" ) + ( Name "identity" ) + ), AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| + [ Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map$w" ) ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "x$0" ) :| [] ) + ( Ref Nothing ( Local ( Name "x$0" ) ) ) :| + [ Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) + ] + ) + ] + ) + ] + ) :| [] + ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) :| [] + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) @@ -350,59 +162,23 @@ UberModule ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map$w" ) ) ) ( AbsN Nothing - ( ParamNamed Nothing ( Name "x$0" ) :| [] ) - ( Ref Nothing ( Local ( Name "x$0" ) ) ) :| - [ Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) + ( ParamNamed Nothing ( Name "x0$1" ) :| [] ) + ( Ref Nothing ( Local ( Name "x0$1" ) ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) + ) + ( LiteralInt Nothing 42 :| [] ) ] ) ] ) ] ) :| [] - ) - ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ) :| [] - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) - ( LiteralInt Nothing 0 :| - [ Ref Nothing - ( Imported - ( ModuleName "Golden.MaybeChain.Test" ) - ( Name "identity" ) - ), AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :| - [ Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map$w" ) ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x0$1" ) :| [] ) - ( Ref Nothing ( Local ( Name "x0$1" ) ) ) :| - [ AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) - ) - ( LiteralInt Nothing 42 :| [] ) - ] - ) - ] - ) - ] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.lua b/test/ps/output/Golden.MaybeChain.Test/golden.lua index 4085292e..9a44ee9f 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.lua +++ b/test/ps/output/Golden.MaybeChain.Test/golden.lua @@ -1,34 +1,8 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } M.Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } @@ -42,48 +16,6 @@ M.Data_Maybe_maybe_S_w = function(v, v1, v2) return error("No patterns matched") end end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_121) - return function(a_S_122) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_121))(a_S_122) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_101 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_103) - return function(a_S_104) - return bind_S_101(f_S_103)(function(fPrime_S_105) - return bind_S_101(a_S_104)(function(aPrime_S_106) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_105(aPrime_S_106)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_MaybeChain_Test_logShow = function(a_S_4) - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_4)) -end M.Golden_MaybeChain_Test_identity = function(x_S_313) return x_S_313 end M.Golden_MaybeChain_Test_map_S_w = function(v_S_308, v1_S_309) if "Data.Maybe∷Maybe.Just" == v1_S_309["$ctor"] then @@ -93,11 +25,11 @@ M.Golden_MaybeChain_Test_map_S_w = function(v_S_308, v1_S_309) end end return (function() - local Data_Maybe_maybe_S_w, Data_Maybe_Just, Data_Maybe_Nothing, Golden_MaybeChain_Test_identity, Golden_MaybeChain_Test_logShow, Golden_MaybeChain_Test_map_S_w = M.Data_Maybe_maybe_S_w, M.Data_Maybe_Just, M.Data_Maybe_Nothing, M.Golden_MaybeChain_Test_identity, M.Golden_MaybeChain_Test_logShow, M.Golden_MaybeChain_Test_map_S_w - local _ = Golden_MaybeChain_Test_logShow(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(function( x_S_0 ) + local Data_Maybe_maybe_S_w, Data_Maybe_Just, Data_Maybe_Nothing, Data_Show_foreign, Effect_Console_foreign, Golden_MaybeChain_Test_identity, Golden_MaybeChain_Test_map_S_w = M.Data_Maybe_maybe_S_w, M.Data_Maybe_Just, M.Data_Maybe_Nothing, M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_MaybeChain_Test_identity, M.Golden_MaybeChain_Test_map_S_w + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(function( x_S_0 ) return x_S_0 - end, Data_Maybe_Nothing))))() - return Golden_MaybeChain_Test_logShow(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(function( x0_S_1 ) + end, Data_Maybe_Nothing)))))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(function( x0_S_1 ) return x0_S_1 - end, Data_Maybe_Just(42)))))() + end, Data_Maybe_Just(42))))))() end)() diff --git a/test/ps/output/Golden.Nested.Test/golden.ir b/test/ps/output/Golden.Nested.Test/golden.ir index d4d6754e..36138ac4 100644 --- a/test/ps/output/Golden.Nested.Test/golden.ir +++ b/test/ps/output/Golden.Nested.Test/golden.ir @@ -12,27 +12,6 @@ UberModule ( Name "isZero", Ref Nothing ( Imported ( ModuleName "Golden.Nested.Test" ) ( Name "isZero" ) ) ), - ( Name "main", IfThenElse Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Nested.Test" ) ( Name "isZero" ) ) ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( IfThenElse Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Nested.Test" ) ( Name "isZero" ) ) ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( LiteralString Nothing "ok" ) - ( LiteralString Nothing "fine" ) - ) - ( IfThenElse Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Nested.Test" ) ( Name "isZero" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ( LiteralString Nothing "ha" ) - ( LiteralString Nothing "cool" ) - ) - ) + ( Name "main", LiteralString Nothing "ha" ) ] } \ No newline at end of file diff --git a/test/ps/output/Golden.Nested.Test/golden.lua b/test/ps/output/Golden.Nested.Test/golden.lua index 9a98b1a9..7ae7cd7c 100644 --- a/test/ps/output/Golden.Nested.Test/golden.lua +++ b/test/ps/output/Golden.Nested.Test/golden.lua @@ -1,14 +1,3 @@ local M = {} M.Golden_Nested_Test_isZero = function(v) return 0 == v end -return { - isZero = M.Golden_Nested_Test_isZero, - main = (function() - if M.Golden_Nested_Test_isZero(1) then - if M.Golden_Nested_Test_isZero(1) then return "ok" else return "fine" end - elseif M.Golden_Nested_Test_isZero(0) then - return "ha" - else - return "cool" - end - end)() -} +return { isZero = M.Golden_Nested_Test_isZero, main = "ha" } diff --git a/test/ps/output/Golden.Primops.Test/golden.ir b/test/ps/output/Golden.Primops.Test/golden.ir index c8321a3b..fcaa6276 100644 --- a/test/ps/output/Golden.Primops.Test/golden.ir +++ b/test/ps/output/Golden.Primops.Test/golden.ir @@ -7,23 +7,11 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.HeytingAlgebra", qnameName = Name "not" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "not" ) ) ), RecursiveGroup ( ( QName @@ -48,16 +36,14 @@ UberModule ( PropName "disj" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "not" ) ) - ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "heytingAlgebraBoolean" ) - ) :| [] + ) ) + ( PropName "not" ) ) ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) @@ -93,283 +79,6 @@ UberModule ] ) :| [] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqInt" }, LiteralObject Nothing - [ - ( PropName "eq", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "r1$206" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "r2$207" ) :| [] ) - ( Eq Nothing - ( Ref Nothing ( Local ( Name "r1$206" ) ) ) - ( Ref Nothing ( Local ( Name "r2$207" ) ) ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "ordInt" - }, LiteralObject Nothing - [ - ( PropName "compare", AbsN Nothing - ( ParamNamed Nothing ( Name "x$190" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$191" ) :| [] ) - ( IfThenElse Nothing - ( PrimBinOp Nothing PrimLt - ( Ref Nothing ( Local ( Name "x$190" ) ) ) - ( Ref Nothing ( Local ( Name "y$191" ) ) ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "LT" ) [] - ) - ( IfThenElse Nothing - ( Eq Nothing - ( Ref Nothing ( Local ( Name "x$190" ) ) ) - ( Ref Nothing ( Local ( Name "y$191" ) ) ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "EQ" ) [] - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "GT" ) [] - ) - ) - ) - ) - ), - ( PropName "Eq0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "compare" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compare" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$25" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$26" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$25" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$26" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$4", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$6" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$7" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "f$6" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$8" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$4" ) ) ) - ( Ref Nothing ( Local ( Name "a$7" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$9" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$8" ) ) ) - ( Ref Nothing ( Local ( Name "a'$9" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow$w" }, AbsN Nothing @@ -387,39 +96,6 @@ UberModule ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Primops.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Primops.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "logShow$p2$237" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$117" ) :| [] ) - ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "v$117" ) ) ) - ( LiteralString Nothing "true" ) - ( IfThenElse Nothing - ( Eq Nothing ( LiteralBool Nothing False ) - ( Ref Nothing ( Local ( Name "v$117" ) ) ) - ) - ( LiteralString Nothing "false" ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ) - ] :| - [ Ref Nothing ( Local ( Name "logShow$p2$237" ) ) ] - ) - ) ), RecursiveGroup ( ( QName @@ -429,16 +105,16 @@ UberModule ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) - ( ReflectCtor Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 0 :| [] ) + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 0 ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( IfThenElse Nothing + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ) ) ) @@ -503,55 +179,56 @@ UberModule ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Primops.Test" ) ( Name "logShow" ) ) - ) - ( PrimNot Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor Nothing - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$117$250" ) :| [] ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "v$117$250" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "v$117$250" ) ) ) ) - ( LiteralInt Nothing 7 :| [] ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) - ( LiteralInt Nothing 3 :| [] ) ) ) - ) :| [] + ] :| [ LiteralBool Nothing True ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Primops.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) ) - ( PropName "eq" ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$117$254" ) :| [] ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "v$117$254" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "v$117$254" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) + ) + ) ) - ( LiteralInt Nothing 3 :| [] ) - ) - ( LiteralInt Nothing 3 :| [] ) :| [] + ] :| [ LiteralBool Nothing True ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -584,21 +261,14 @@ UberModule ) ) ] :| - [ AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] - ) - ) - ( LiteralInt Nothing 2 :| [] ) - ) - ( LiteralInt Nothing 5 :| [] ) + [ Ctor Nothing SumType + ( ModuleName "Data.Ordering" ) + ( TyName "Ordering" ) + ( CtorName "LT" ) [] ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -608,43 +278,59 @@ UberModule ) ( LiteralString Nothing "foobar" :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Primops.Test" ) ( Name "logShow" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.HeytingAlgebra" ) - ( Name "heytingAlgebraBoolean" ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$117$260" ) :| [] ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "v$117$260" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "v$117$260" ) ) ) + ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) ) - ( PropName "conj" ) ) - ( LiteralBool Nothing True :| [] ) - ) - ( AppN Nothing + ] :| + [ AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "not" ) ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.HeytingAlgebra" ) + ( Name "heytingAlgebraBoolean" ) + ) + ) + ( PropName "conj" ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.HeytingAlgebra" ) - ( Name "heytingAlgebraBoolean" ) - ) :| [] + ( LiteralBool Nothing True :| [] ) + ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.HeytingAlgebra" ) + ( Name "heytingAlgebraBoolean" ) + ) + ) + ( PropName "not" ) ) + ( LiteralBool Nothing False :| [] ) :| [] ) - ( LiteralBool Nothing False :| [] ) :| [] - ) :| [] + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.Primops.Test/golden.lua b/test/ps/output/Golden.Primops.Test/golden.lua index e557aa8c..d95c9861 100644 --- a/test/ps/output/Golden.Primops.Test/golden.lua +++ b/test/ps/output/Golden.Primops.Test/golden.lua @@ -1,40 +1,15 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_HeytingAlgebra__not_ = function(dict) return dict._not_ end M.Data_HeytingAlgebra_heytingAlgebraBoolean = { ff = false, tt = true, implies = function(a) return function(b) local Data_HeytingAlgebra_heytingAlgebraBoolean = M.Data_HeytingAlgebra_heytingAlgebraBoolean - return Data_HeytingAlgebra_heytingAlgebraBoolean.disj(M.Data_HeytingAlgebra__not_(Data_HeytingAlgebra_heytingAlgebraBoolean)(a))(b) + return Data_HeytingAlgebra_heytingAlgebraBoolean.disj(Data_HeytingAlgebra_heytingAlgebraBoolean._not_(a))(b) end end, conj = function(b1_S_213) @@ -45,88 +20,20 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { end, _not_ = function(b_S_210) return not(b_S_210) end } -M.Data_Eq_eqInt = { - eq = function(r1_S_206) - return function(r2_S_207) return r1_S_206 == r2_S_207 end - end -} -M.Data_Ord_ordInt = { - compare = function(x_S_190) - return function(y_S_191) - if x_S_190 < y_S_191 then - return { ["$ctor"] = "Data.Ordering∷Ordering.LT" } - elseif x_S_190 == y_S_191 then - return { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } - else - return { ["$ctor"] = "Data.Ordering∷Ordering.GT" } - end - end - end, - Eq0 = function() return M.Data_Eq_eqInt end -} -M.Data_Ord_compare = function(dict) return dict.compare end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_25) - return function(a_S_26) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_25))(a_S_26) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_4 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_6) - return function(a_S_7) - return bind_S_4(f_S_6)(function(fPrime_S_8) - return bind_S_4(a_S_7)(function(aPrime_S_9) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_8(aPrime_S_9)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) M.Effect_Console_logShow_S_w = function(dictShow, a) return M.Effect_Console_foreign.log(dictShow.show(a)) end -M.Golden_Primops_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_Primops_Test_logShow = function(logShow_S_p2_S_237) - return M.Effect_Console_logShow_S_w({ - show = function(v_S_117) - if v_S_117 then - return "true" - elseif false == v_S_117 then - return "false" - else - return error("No patterns matched") - end - end - }, logShow_S_p2_S_237) -end M.Golden_Primops_Test_sumTo_S_w = function(acc, n) - local Data_Ord_compare, Data_Ord_ordInt = M.Data_Ord_compare, M.Data_Ord_ordInt while true do - if "Data.Ordering∷Ordering.GT" == (Data_Ord_compare(Data_Ord_ordInt)(n)(0))["$ctor"] then + if "Data.Ordering∷Ordering.GT" == (function() + if n < 0 then + return "Data.Ordering∷Ordering.LT" + elseif n == 0 then + return "Data.Ordering∷Ordering.EQ" + else + return "Data.Ordering∷Ordering.GT" + end + end)() then acc, n = acc + n, n - 1 else return acc @@ -139,12 +46,32 @@ M.Golden_Primops_Test_sumTo = function(sumTo_S_p1) end end return (function() - local Golden_Primops_Test_logShow, Data_HeytingAlgebra_heytingAlgebraBoolean, Data_Ord_compare, Data_Ord_ordInt, Effect_Console_logShow_S_w = M.Golden_Primops_Test_logShow, M.Data_HeytingAlgebra_heytingAlgebraBoolean, M.Data_Ord_compare, M.Data_Ord_ordInt, M.Effect_Console_logShow_S_w + local Effect_Console_logShow_S_w, Data_HeytingAlgebra_heytingAlgebraBoolean = M.Effect_Console_logShow_S_w, M.Data_HeytingAlgebra_heytingAlgebraBoolean local _ = Effect_Console_logShow_S_w({ show = M.Data_Show_foreign.showIntImpl }, M.Golden_Primops_Test_sumTo_S_w(0, 5))() - local _ = Golden_Primops_Test_logShow("Data.Ordering∷Ordering.LT" ~= (Data_Ord_compare(Data_Ord_ordInt)(7)(3))["$ctor"])() - local _ = Golden_Primops_Test_logShow(M.Data_Eq_eqInt.eq(3)(3))() + local _ = Effect_Console_logShow_S_w({ + show = function(v_S_117_S_250) + if v_S_117_S_250 then + return "true" + elseif false == v_S_117_S_250 then + return "false" + else + return error("No patterns matched") + end + end + }, true)() + local _ = Effect_Console_logShow_S_w({ + show = function(v_S_117_S_254) + if v_S_117_S_254 then + return "true" + elseif false == v_S_117_S_254 then + return "false" + else + return error("No patterns matched") + end + end + }, true)() local _ = Effect_Console_logShow_S_w({ show = function(v_S_116) if "Data.Ordering∷Ordering.LT" == v_S_116["$ctor"] then @@ -157,7 +84,17 @@ return (function() return error("No patterns matched") end end - }, Data_Ord_compare(Data_Ord_ordInt)(2)(5))() + }, { ["$ctor"] = "Data.Ordering∷Ordering.LT" })() local _ = M.Effect_Console_foreign.log("foobar")() - return Golden_Primops_Test_logShow(Data_HeytingAlgebra_heytingAlgebraBoolean.conj(true)(M.Data_HeytingAlgebra__not_(Data_HeytingAlgebra_heytingAlgebraBoolean)(false)))() + return Effect_Console_logShow_S_w({ + show = function(v_S_117_S_260) + if v_S_117_S_260 then + return "true" + elseif false == v_S_117_S_260 then + return "false" + else + return error("No patterns matched") + end + end + }, Data_HeytingAlgebra_heytingAlgebraBoolean.conj(true)(Data_HeytingAlgebra_heytingAlgebraBoolean._not_(false)))() end)() diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir index b08f9d9e..7f59f82d 100644 --- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir +++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir @@ -13,352 +13,17 @@ UberModule ( ModuleName "Unsafe.Coerce" ) ".spago/p/unsafe-coerce/7a4c95f14b8118d9fb052e130d6e862fa3f5166a/src/Unsafe/Coerce.purs" [ ( Nothing, Name "unsafeCoerce" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "semiringInt" - }, LiteralObject Nothing - [ - ( PropName "add", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$279" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$280" ) :| [] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$279" ) ) ) - ( Ref Nothing ( Local ( Name "y$280" ) ) ) - ) - ) - ), - ( PropName "zero", LiteralInt Nothing 0 ), - ( PropName "mul", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$277" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$278" ) :| [] ) - ( PrimBinOp Nothing PrimMul - ( Ref Nothing ( Local ( Name "x$277" ) ) ) - ( Ref Nothing ( Local ( Name "y$278" ) ) ) - ) - ) - ), - ( PropName "one", LiteralInt Nothing 1 ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Newtype", qnameName = Name "unwrap" }, AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Profunctor", qnameName = Name "composeFlipped" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "f$263" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "g$264" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x$309" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "g$264" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$263" ) ) ) - ( Ref Nothing ( Local ( Name "x$309" ) ) :| [] ) :| [] - ) - ) - ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Profunctor", qnameName = Name "profunctorFn" - }, LiteralObject Nothing - [ - ( PropName "dimap", AbsN Nothing - ( ParamNamed Nothing ( Name "a2b" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "c2d" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "b2c" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Profunctor" ) ( Name "composeFlipped" ) ) - ) - ( Ref Nothing ( Local ( Name "a2b" ) ) :| [] ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Profunctor" ) ( Name "composeFlipped" ) ) - ) - ( Ref Nothing ( Local ( Name "b2c" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "c2d" ) ) :| [] ) :| [] - ) - ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Profunctor", qnameName = Name "dimap" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "dimap" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$111" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$112" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$111" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$112" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$90", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$92" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$93" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$90" ) ) ) - ( Ref Nothing ( Local ( Name "f$92" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$94" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$90" ) ) ) - ( Ref Nothing ( Local ( Name "a$93" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$95" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$94" ) ) ) - ( Ref Nothing ( Local ( Name "a'$95" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "unwrap" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Newtype" ) ( Name "unwrap" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "a$5" ) :| [] ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) - ( Ref Nothing ( Local ( Name "a$5" ) ) :| [] ) :| [] - ) - ) + }, ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) + ( PropName "unsafeCoerce" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "Wrapped" @@ -372,9 +37,9 @@ UberModule ( ParamNamed Nothing ( Name "dictProfunctor" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Profunctor" ) ( Name "dimap" ) ) ) - ( Ref Nothing ( Local ( Name "dictProfunctor" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictProfunctor" ) ) ) + ( PropName "dimap" ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) :| [] @@ -384,14 +49,6 @@ UberModule ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "Wrapped" ) ) :| [] ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "_Wrapped1" - }, AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "_Wrapped" ) ) - ) - ( Ref Nothing ( Imported ( ModuleName "Data.Profunctor" ) ( Name "profunctorFn" ) ) :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -407,138 +64,113 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.ProfunctorDictLens.Test" ) - ( Name "_Wrapped1" ) - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$0" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) - ) - ( PropName "add" ) - ) - ( Ref Nothing ( Local ( Name "v$0" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) + ) + ( PrimBinOp Nothing PrimAdd + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.ProfunctorDictLens.Test" ) + ( Name "unwrap" ) ) - ( LiteralInt Nothing 1 :| [] ) - ) :| [] + ) + ( LiteralInt Nothing 10 :| [] ) ) - ) - ( LiteralInt Nothing 10 :| [] ) :| [] + ( LiteralInt Nothing 1 ) :| [] + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Golden.ProfunctorDictLens.Test" ) - ( Name "_Wrapped1" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.ProfunctorDictLens.Test" ) + ( Name "unwrap" ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v0$1" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) - ) - ( PropName "mul" ) - ) - ( Ref Nothing ( Local ( Name "v0$1" ) ) :| [] ) + ) + ( PrimBinOp Nothing PrimMul + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.ProfunctorDictLens.Test" ) + ( Name "unwrap" ) ) - ( LiteralInt Nothing 2 :| [] ) - ) :| [] + ) + ( LiteralInt Nothing 10 :| [] ) ) - ) - ( LiteralInt Nothing 10 :| [] ) :| [] + ( LiteralInt Nothing 2 ) :| [] + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "logShow" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) ) ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) + ) ( AppN Nothing - ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) + ) + ( PropName "unsafeCoerce" ) + ) + ( PrimBinOp Nothing PrimSub ( AppN Nothing - ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported ( ModuleName "Data.Profunctor" ) ( Name "dimap" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Profunctor" ) - ( Name "profunctorFn" ) - ) :| [] + ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) + ( PropName "unsafeCoerce" ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Newtype" ) ( Name "unwrap" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) + ( LiteralInt Nothing 10 :| [] ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) - ) - ( PropName "unsafeCoerce" ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1$2" ) :| [] ) - ( PrimBinOp Nothing PrimSub - ( Ref Nothing ( Local ( Name "v1$2" ) ) ) - ( LiteralInt Nothing 5 ) - ) :| [] - ) - ) - ( LiteralInt Nothing 10 :| [] ) :| [] + ( LiteralInt Nothing 5 ) :| [] + ) :| [] + ) :| [] ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua index 32d08d26..34081521 100644 --- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua +++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua @@ -1,122 +1,17 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Semiring_semiringInt = { - add = function(x_S_279) - return function(y_S_280) return x_S_279 + y_S_280 end - end, - zero = 0, - mul = function(x_S_277) - return function(y_S_278) return x_S_277 * y_S_278 end - end, - one = 1 -} -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Data_Newtype_unwrap = function() - return M.Unsafe_Coerce_foreign.unsafeCoerce -end -M.Data_Profunctor_composeFlipped = function(f_S_263) - return function(g_S_264) - return function(x_S_309) return g_S_264(f_S_263(x_S_309)) end - end -end -M.Data_Profunctor_profunctorFn = { - dimap = function(a2b) - return function(c2d) - return function(b2c) - local Data_Profunctor_composeFlipped = M.Data_Profunctor_composeFlipped - return Data_Profunctor_composeFlipped(a2b)(Data_Profunctor_composeFlipped(b2c)(c2d)) - end - end - end -} -M.Data_Profunctor_dimap = function(dict) return dict.dimap end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_111) - return function(a_S_112) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_111))(a_S_112) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_90 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_92) - return function(a_S_93) - return bind_S_90(f_S_92)(function(fPrime_S_94) - return bind_S_90(a_S_93)(function(aPrime_S_95) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_94(aPrime_S_95)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Golden_ProfunctorDictLens_Test_unwrap = M.Data_Newtype_unwrap() -M.Golden_ProfunctorDictLens_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_ProfunctorDictLens_Test_logShow = function(a_S_5) - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(a_S_5)) -end +M.Golden_ProfunctorDictLens_Test_unwrap = M.Unsafe_Coerce_foreign.unsafeCoerce M.Golden_ProfunctorDictLens_Test_Wrapped = function(x) return x end M.Golden_ProfunctorDictLens_Test__Wrapped = function(dictProfunctor) - return M.Data_Profunctor_dimap(dictProfunctor)(M.Golden_ProfunctorDictLens_Test_unwrap)(M.Golden_ProfunctorDictLens_Test_Wrapped) + return dictProfunctor.dimap(M.Golden_ProfunctorDictLens_Test_unwrap)(M.Golden_ProfunctorDictLens_Test_Wrapped) end -M.Golden_ProfunctorDictLens_Test__Wrapped1 = M.Golden_ProfunctorDictLens_Test__Wrapped(M.Data_Profunctor_profunctorFn) return (function() - local Golden_ProfunctorDictLens_Test_logShow, Golden_ProfunctorDictLens_Test_unwrap, Golden_ProfunctorDictLens_Test__Wrapped1 = M.Golden_ProfunctorDictLens_Test_logShow, M.Golden_ProfunctorDictLens_Test_unwrap, M.Golden_ProfunctorDictLens_Test__Wrapped1 - local _ = Golden_ProfunctorDictLens_Test_logShow(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test__Wrapped1(function( v_S_0 ) - return M.Data_Semiring_semiringInt.add(v_S_0)(1) - end)(10)))() - local _ = Golden_ProfunctorDictLens_Test_logShow(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test__Wrapped1(function( v0_S_1 ) - return M.Data_Semiring_semiringInt.mul(v0_S_1)(2) - end)(10)))() - return Golden_ProfunctorDictLens_Test_logShow(Golden_ProfunctorDictLens_Test_unwrap(M.Data_Profunctor_dimap(M.Data_Profunctor_profunctorFn)(M.Data_Newtype_unwrap())(M.Unsafe_Coerce_foreign.unsafeCoerce)(function( v1_S_2 ) - return v1_S_2 - 5 - end)(10)))() + local Golden_ProfunctorDictLens_Test_unwrap, Data_Show_foreign, Effect_Console_foreign, Unsafe_Coerce_foreign = M.Golden_ProfunctorDictLens_Test_unwrap, M.Data_Show_foreign, M.Effect_Console_foreign, M.Unsafe_Coerce_foreign + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test_unwrap(10) + 1)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test_unwrap(10) * 2)))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Unsafe_Coerce_foreign.unsafeCoerce(Unsafe_Coerce_foreign.unsafeCoerce(10) - 5))))() end)() diff --git a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir index d8161bf2..c9f89b28 100644 --- a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir +++ b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir @@ -39,20 +39,20 @@ UberModule ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.RecGroupOrder.Test" ) ( Name "store" ) ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( ObjectProp Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "Lazy_record$0" ) ) ) - ( LiteralInt Nothing 0 :| [] ) + ( LiteralObject Nothing + [ + ( PropName "run", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( ObjectProp Nothing + ( AppN Nothing + ( Ref Nothing ( Local ( Name "Lazy_record$0" ) ) ) + ( LiteralInt Nothing 0 :| [] ) + ) + ( PropName "tag" ) ) - ( PropName "tag" ) - ) :| [] - ) + ), + ( PropName "tag", LiteralString Nothing "ok!" ) + ] ) :| [] ) ) :| diff --git a/test/ps/output/Golden.RecGroupOrder.Test/golden.lua b/test/ps/output/Golden.RecGroupOrder.Test/golden.lua index df67f34b..3aa12754 100644 --- a/test/ps/output/Golden.RecGroupOrder.Test/golden.lua +++ b/test/ps/output/Golden.RecGroupOrder.Test/golden.lua @@ -28,9 +28,7 @@ return (function() local Lazy_record_S_0 local record_S_1 Lazy_record_S_0 = PSLUA_runtime_lazy("record")(function() - return M.Golden_RecGroupOrder_Test_store(function() - return (Lazy_record_S_0(0)).tag - end) + return { run = function() return (Lazy_record_S_0(0)).tag end, tag = "ok!" } end) record_S_1 = Lazy_record_S_0(0) return M.Effect_Console_foreign.log(record_S_1.run(M.Data_Unit_foreign.unit)) diff --git a/test/ps/output/Golden.RecordsAccess.Test/golden.ir b/test/ps/output/Golden.RecordsAccess.Test/golden.ir index f6df4d4c..402c968b 100644 --- a/test/ps/output/Golden.RecordsAccess.Test/golden.ir +++ b/test/ps/output/Golden.RecordsAccess.Test/golden.ir @@ -11,10 +11,7 @@ UberModule ( Name "r", Ref Nothing ( Imported ( ModuleName "Golden.RecordsAccess.Test" ) ( Name "r" ) ) ), - ( Name "test1", ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.RecordsAccess.Test" ) ( Name "r" ) ) ) - ( PropName "x" ) - ), + ( Name "test1", LiteralInt Nothing 1 ), ( Name "test2", AbsN Nothing ( ParamNamed Nothing ( Name "v$0" ) :| [] ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$0" ) ) ) ( PropName "x" ) ) diff --git a/test/ps/output/Golden.RecordsAccess.Test/golden.lua b/test/ps/output/Golden.RecordsAccess.Test/golden.lua index c8a56d58..f5830482 100644 --- a/test/ps/output/Golden.RecordsAccess.Test/golden.lua +++ b/test/ps/output/Golden.RecordsAccess.Test/golden.lua @@ -2,7 +2,7 @@ local M = {} M.Golden_RecordsAccess_Test_r = { x = 1, y = true } return { r = M.Golden_RecordsAccess_Test_r, - test1 = M.Golden_RecordsAccess_Test_r.x, + test1 = 1, test2 = function(v_S_0) return v_S_0.x end, test3 = function(v_S_1) return v_S_1.x end, test4 = function(v_S_3) return v_S_3.x end diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.ir b/test/ps/output/Golden.StringCodePoints.Test/golden.ir index 3416fb7a..654e2fd9 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.ir +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.ir @@ -25,12 +25,6 @@ UberModule ( ModuleName "Data.EuclideanRing" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/EuclideanRing.purs" [ ( Nothing, Name "intDegree" ), ( Nothing, Name "intDiv" ), ( Nothing, Name "intMod" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Partial.Unsafe", qnameName = Name "foreign" }, ForeignImport Nothing @@ -85,34 +79,6 @@ UberModule }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "semigroupoidFn" - }, LiteralObject Nothing - [ - ( PropName "compose", AbsN Nothing - ( ParamNamed Nothing ( Name "f" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "g" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "g" ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| [] - ) - ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Semigroupoid", qnameName = Name "compose" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compose" ) ) ), RecursiveGroup ( ( QName @@ -180,12 +146,6 @@ UberModule ] ) :| [] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.HeytingAlgebra", qnameName = Name "conj" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "conj" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqInt" }, LiteralObject Nothing [ @@ -201,32 +161,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eq" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "eq" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "semigroupString" - }, LiteralObject Nothing - [ - ( PropName "append", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "s1$1324" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "s2$1325" ) :| [] ) - ( PrimBinOp Nothing PrimConcat - ( Ref Nothing ( Local ( Name "s1$1324" ) ) ) - ( Ref Nothing ( Local ( Name "s2$1325" ) ) ) - ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "append" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "append" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showInt" }, LiteralObject Nothing @@ -237,11 +171,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Ordering", qnameName = Name "LT" }, Ctor Nothing SumType @@ -263,64 +192,6 @@ UberModule ( TyName "Ordering" ) ( CtorName "EQ" ) [] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "semiringInt" - }, LiteralObject Nothing - [ - ( PropName "add", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$1322" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$1323" ) :| [] ) - ( PrimBinOp Nothing PrimAdd - ( Ref Nothing ( Local ( Name "x$1322" ) ) ) - ( Ref Nothing ( Local ( Name "y$1323" ) ) ) - ) - ) - ), - ( PropName "zero", LiteralInt Nothing 0 ), - ( PropName "mul", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$1320" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$1321" ) :| [] ) - ( PrimBinOp Nothing PrimMul - ( Ref Nothing ( Local ( Name "x$1320" ) ) ) - ( Ref Nothing ( Local ( Name "y$1321" ) ) ) - ) - ) - ), - ( PropName "one", LiteralInt Nothing 1 ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Semiring", qnameName = Name "add" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "add" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ring", qnameName = Name "sub" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "sub" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ring", qnameName = Name "ringInt" - }, LiteralObject Nothing - [ - ( PropName "sub", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "x$1318" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$1319" ) :| [] ) - ( PrimBinOp Nothing PrimSub - ( Ref Nothing ( Local ( Name "x$1318" ) ) ) - ( Ref Nothing ( Local ( Name "y$1319" ) ) ) - ) - ) - ), - ( PropName "Semiring0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) ) - ) - ] - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "ordInt" }, LiteralObject Nothing @@ -352,55 +223,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "ordChar" - }, LiteralObject Nothing - [ - ( PropName "compare", AbsN Nothing - ( ParamNamed Nothing ( Name "x$1311" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "y$1312" ) :| [] ) - ( IfThenElse Nothing - ( PrimBinOp Nothing PrimLt - ( Ref Nothing ( Local ( Name "x$1311" ) ) ) - ( Ref Nothing ( Local ( Name "y$1312" ) ) ) - ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) ) ) - ( IfThenElse Nothing - ( Eq Nothing - ( Ref Nothing ( Local ( Name "x$1311" ) ) ) - ( Ref Nothing ( Local ( Name "y$1312" ) ) ) - ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) ) - ) - ) - ) - ), - ( PropName "Eq0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "eq", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "r1$1328" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "r2$1329" ) :| [] ) - ( Eq Nothing - ( Ref Nothing ( Local ( Name "r1$1328" ) ) ) - ( Ref Nothing ( Local ( Name "r2$1329" ) ) ) - ) - ) - ) - ] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "compare" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "compare" ) ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Ord", qnameName = Name "greaterThanOrEq$w" }, AbsN Nothing @@ -414,9 +236,9 @@ UberModule ( ReflectCtor Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictOrd" ) ) ) + ( PropName "compare" ) ) ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) @@ -437,9 +259,9 @@ UberModule ( ReflectCtor Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictOrd" ) ) ) + ( PropName "compare" ) ) ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) @@ -461,9 +283,9 @@ UberModule ( ReflectCtor Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Local ( Name "dictOrd" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictOrd" ) ) ) + ( PropName "compare" ) ) ( Ref Nothing ( Local ( Name "a1" ) ) :| [] ) ) @@ -473,86 +295,6 @@ UberModule ) ) ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "top" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "top" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "boundedChar" - }, LiteralObject Nothing - [ - ( PropName "top", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( PropName "topChar" ) - ), - ( PropName "bottom", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( PropName "bottomChar" ) - ), - ( PropName "Ord0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordChar" ) ) ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "bottom" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bottom" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.EuclideanRing", qnameName = Name "euclideanRingInt" - }, LiteralObject Nothing - [ - ( PropName "degree", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "foreign" ) ) ) - ( PropName "intDegree" ) - ), - ( PropName "div", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "foreign" ) ) ) - ( PropName "intDiv" ) - ), - ( PropName "mod", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "foreign" ) ) ) - ( PropName "intMod" ) - ), - ( PropName "CommutativeRing0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "Ring0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) ) - ) - ] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "append" }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "append" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupString" ) ) :| [] - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "Nothing" }, Ctor Nothing SumType @@ -569,976 +311,660 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "showMaybe" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dictShow" ) :| [] ) - ( LiteralObject Nothing - [ - ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "bottom1" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) + ( PropName "bottomChar" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "top1" }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) + ( PropName "topChar" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "conj" + }, ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "heytingAlgebraBoolean" ) ) + ) + ( PropName "conj" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "fromEnum" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) + ( PropName "toCharCode" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "unsafeCodePointAt0" + }, AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) + ( PropName "_unsafeCodePointAt0" ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "s$27" ) :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "cu0$28", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromEnum" ) ) ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append" ) ) ) - ( LiteralString Nothing "(Just " :| [] ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) + ) + ( PropName "charAt" ) + ) + ( LiteralInt Nothing 0 :| [] ) + ) + ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) :| [] + ) + ) :| [] + ) + ( IfThenElse Nothing + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "append" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) + ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( Ref Nothing ( Local ( Name "dictShow" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( PropName "value0" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ LiteralInt Nothing 55296, Ref Nothing ( Local ( Name "cu0$28" ) ) ] ) :| [] ) ) - ( LiteralString Nothing ")" :| [] ) :| [] - ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing ( Local ( Name "cu0$28" ) ), LiteralInt Nothing 56319 ] + ) :| [] + ) :| [] ) - ( LiteralString Nothing "Nothing" ) - ( Exception Nothing "No patterns matched" ) ) - ) - ) - ] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "functorMaybe" - }, LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v1" ) :| [] ) - ( IfThenElse Nothing ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) + ( ReflectCtor Nothing + ( AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "x$1316$1440", AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodeUnits" ) + ( Name "foreign" ) + ) + ) + ( PropName "length" ) + ) + ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) + ) :| [] + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "y$1317$1441" ) :| [] ) + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "x$1316$1440" ) ) ) + ( Ref Nothing ( Local ( Name "y$1317$1441" ) ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( Ref Nothing ( Local ( Name "x$1316$1440" ) ) ) + ( Ref Nothing ( Local ( Name "y$1317$1441" ) ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) + ) + ) + ) + ) + ) + ( LiteralInt Nothing 1 :| [] ) + ) + ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "v" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v1" ) ) ) - ( PropName "value0" ) :| [] - ) :| [] - ) - ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "fromJust" }, AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) - ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ( PropName "value0" ) ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$997" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$998" ) :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "cu1$30", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromEnum" ) ) + ) + ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$997" ) ) :| [] ) :| [] + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) ) + ( PropName "charAt" ) ) - ( Ref Nothing ( Local ( Name "a$998" ) ) :| [] ) + ( LiteralInt Nothing 1 :| [] ) ) + ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) :| [] ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$1350", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$1351" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$1352" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$1350" ) ) ) - ( Ref Nothing ( Local ( Name "f$1351" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$1353" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$1350" ) ) ) - ( Ref Nothing ( Local ( Name "a$1352" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$1354" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$1353" ) ) ) - ( Ref Nothing ( Local ( Name "a'$1354" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) + ) :| [] + ) + ( IfThenElse Nothing + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ LiteralInt Nothing 56320, Ref Nothing ( Local ( Name "cu1$30" ) ) ] + ) :| [] ) ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) - ( LiteralInt Nothing 0 :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing ( Local ( Name "cu1$30" ) ), LiteralInt Nothing 57343 ] + ) :| [] ) ) - ] - ) :| [] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "sub" }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "bottom1" }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottom" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "top1" }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "top" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "toEnum" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "toEnum" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "fromEnum" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "fromEnum" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "defaultSucc" }, AbsN Nothing - ( ParamNamed Nothing ( Name "toEnum'" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "fromEnum'" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "toEnum'" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "add" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) :| [] + ( PrimBinOp Nothing PrimAdd + ( PrimBinOp Nothing PrimAdd + ( PrimBinOp Nothing PrimMul + ( PrimBinOp Nothing PrimSub + ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) + ( LiteralInt Nothing 55296 ) + ) + ( LiteralInt Nothing 1024 ) + ) + ( PrimBinOp Nothing PrimSub + ( Ref Nothing ( Local ( Name "cu1$30" ) ) ) + ( LiteralInt Nothing 56320 ) + ) ) + ( LiteralInt Nothing 65536 ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "fromEnum'" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] - ) - ) - ( LiteralInt Nothing 1 :| [] ) :| [] - ) - ) - ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "defaultPred" }, AbsN Nothing - ( ParamNamed Nothing ( Name "toEnum'" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "fromEnum'" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "toEnum'" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "sub" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "fromEnum'" ) ) ) - ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] - ) + ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) ) - ( LiteralInt Nothing 1 :| [] ) :| [] ) + ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) ) - ) + ) :| [] ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "charToEnum" }, AbsN Nothing + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "singletonFallback" + }, AbsN Nothing ( ParamNamed Nothing ( Name "v" ) :| [] ) ( IfThenElse Nothing ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "conj" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.HeytingAlgebra" ) - ( Name "heytingAlgebraBoolean" ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq$w" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| - [ Ref Nothing - ( Local ( Name "v" ) ), AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) - ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] ) - ] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| - [ Ref Nothing - ( Local ( Name "v" ) ), AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) - ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] ) - ] - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing ( Local ( Name "v" ) ), LiteralInt Nothing 65535 ] ) ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "fromCharCode" ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "boundedEnumChar" - }, LiteralObject Nothing - [ - ( PropName "cardinality", AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "sub" ) ) ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) - ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] ) :| [] - ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] ) :| [] + ( PropName "singleton" ) ) - ), - ( PropName "toEnum", Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "charToEnum" ) ) - ), - ( PropName "fromEnum", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) - ), - ( PropName "Bounded0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) ) - ), - ( PropName "Enum1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "succ", AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "v$63$1604", IfThenElse Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "defaultSucc" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "charToEnum" ) ) :| [] + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.HeytingAlgebra" ) + ( Name "heytingAlgebraBoolean" ) + ) + ) + ( PropName "conj" ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq$w" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "v" ) ), AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) + ) + ( PropName "toCharCode" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] + ) + ] + ) :| [] + ) ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) :| [] - ) - ), - ( PropName "pred", AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "defaultPred" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "charToEnum" ) ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "v" ) ), AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) + ) + ( PropName "toCharCode" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] + ) + ] + ) :| [] ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) :| [] - ) - ), - ( PropName "Ord0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordChar" ) ) ) - ) - ] - ) - ) - ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "add" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "add" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "sub" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "sub" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "ringInt" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "append" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "append" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupString" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "conj" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "conj" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.HeytingAlgebra" ) ( Name "heytingAlgebraBoolean" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "lessThanOrEq" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "lessThanOrEq$p2$1372" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "lessThanOrEq$p3$1373" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| - [ Ref Nothing - ( Local ( Name "lessThanOrEq$p2$1372" ) ), Ref Nothing - ( Local ( Name "lessThanOrEq$p3$1373" ) ) - ] - ) - ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "fromEnum" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "compose" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "eq" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqInt" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "lessThan" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "lessThan$p2$1375" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "lessThan$p3$1376" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| - [ Ref Nothing - ( Local ( Name "lessThan$p2$1375" ) ), Ref Nothing - ( Local ( Name "lessThan$p3$1376" ) ) - ] - ) - ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "unsafeCodePointAt0" - }, AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) - ( PropName "_unsafeCodePointAt0" ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "s$27" ) :| [] ) - ( Let Nothing - ( Standalone - ( Nothing, Name "cu0$28", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromEnum" ) ) - ) - ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) + ( PropName "fromCharCode" ) ) - ( PropName "charAt" ) + ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) :| [] ) - ( LiteralInt Nothing 0 :| [] ) ) - ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63$1604" ) ) ) ) ) - ) :| [] - ) - ( IfThenElse Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$63$1604" ) ) ) + ( PropName "value0" ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63$1604" ) ) ) ) ) - ( AppN Nothing + ( IfThenElse Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "lessThanOrEq" ) + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "v" ) ), AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) + ( PropName "toCharCode" ) ) - ( LiteralInt Nothing 55296 :| [] ) - ) - ( Ref Nothing ( Local ( Name "cu0$28" ) ) :| [] ) :| [] + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) + ) + ( PropName "bottomChar" ) :| [] + ) + ] ) ) + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) + ( PropName "bottomChar" ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) + ( PropName "topChar" ) + ) + ) + ( Exception Nothing "No patterns matched" ) + ) + ) :| [] + ) + ) + ( PrimBinOp Nothing PrimConcat + ( Let Nothing + ( Standalone + ( Nothing, Name "x$1454$1541$1605", PrimBinOp Nothing PrimAdd + ( AppN Nothing ( AppN Nothing - ( AppN Nothing + ( ObjectProp Nothing ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "lessThanOrEq" ) - ) + ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "cu0$28" ) ) :| [] ) + ( PropName "intDiv" ) ) - ( LiteralInt Nothing 56319 :| [] ) :| [] - ) :| [] + ( PrimBinOp Nothing PrimSub + ( Ref Nothing ( Local ( Name "v" ) ) ) + ( LiteralInt Nothing 65536 ) :| [] + ) + ) + ( LiteralInt Nothing 1024 :| [] ) ) + ( LiteralInt Nothing 55296 ) + ) :| [] + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) + ) + ( PropName "singleton" ) ) - ( Eq Nothing - ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) - ( ReflectCtor Nothing - ( AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "v$63$1606", IfThenElse Nothing ( AppN Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.HeytingAlgebra" ) + ( Name "heytingAlgebraBoolean" ) + ) + ) + ( PropName "conj" ) ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) + ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) + ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq$w" ) ) ) - ( PropName "length" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "x$1454$1541$1605" ) ), AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) + ) + ( PropName "toCharCode" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] + ) + ] + ) :| [] ) - ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) - ) - ) :| [] - ) - ) - ( Let Nothing - ( Standalone - ( Nothing, Name "cu1$30", AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromEnum" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) + ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) - ( PropName "charAt" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "x$1454$1541$1605" ) ), AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) + ) + ( PropName "toCharCode" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] + ) + ] + ) :| [] ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ( IfThenElse Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "conj" ) ) ) ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "lessThanOrEq" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) + ( PropName "fromCharCode" ) ) - ( LiteralInt Nothing 56320 :| [] ) + ( Ref Nothing ( Local ( Name "x$1454$1541$1605" ) ) :| [] ) :| [] ) - ( Ref Nothing ( Local ( Name "cu1$30" ) ) :| [] ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63$1606" ) ) ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "lessThanOrEq" ) - ) - ) - ( Ref Nothing ( Local ( Name "cu1$30" ) ) :| [] ) - ) - ( LiteralInt Nothing 57343 :| [] ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$63$1606" ) ) ) + ( PropName "value0" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63$1606" ) ) ) ) ) - ( AppN Nothing + ( IfThenElse Nothing ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) ) - ( AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "x$1454$1541$1605" ) ), AppN Nothing ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Semiring" ) ( Name "semiringInt" ) ) + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "mul" ) + ( PropName "toCharCode" ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "sub" ) - ) - ) - ( Ref Nothing ( Local ( Name "cu0$28" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( LiteralInt Nothing 55296 :| [] ) :| [] + ( PropName "bottomChar" ) :| [] ) - ) - ( LiteralInt Nothing 1024 :| [] ) :| [] + ] ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) - ) - ( Ref Nothing ( Local ( Name "cu1$30" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( LiteralInt Nothing 56320 :| [] ) :| [] - ) :| [] + ( PropName "bottomChar" ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) + ) + ( PropName "topChar" ) + ) ) + ( Exception Nothing "No patterns matched" ) ) - ( LiteralInt Nothing 65536 :| [] ) - ) - ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) + ) :| [] ) ) - ( Ref Nothing ( Local ( Name "cu0$28" ) ) ) ) - ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "fromCharCode" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "compose" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) - ( PropName "singleton" ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "x$62" ) :| [] ) - ( Let Nothing - ( Standalone - ( Nothing, Name "v$63", AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toEnum" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) :| [] + ( Let Nothing + ( Standalone + ( Nothing, Name "x$1454$1541$1607", PrimBinOp Nothing PrimAdd + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "foreign" ) ) + ) + ( PropName "intMod" ) + ) + ( PrimBinOp Nothing PrimSub + ( Ref Nothing ( Local ( Name "v" ) ) ) + ( LiteralInt Nothing 65536 ) :| [] + ) + ) + ( LiteralInt Nothing 1024 :| [] ) ) - ) - ( Ref Nothing ( Local ( Name "x$62" ) ) :| [] ) - ) :| [] - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63" ) ) ) ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$63" ) ) ) - ( PropName "value0" ) + ( LiteralInt Nothing 56320 ) + ) :| [] ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) - ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63" ) ) ) ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) + ) + ( PropName "singleton" ) ) - ( IfThenElse Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| - [ Ref Nothing - ( Local ( Name "x$62" ) ), AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "v$63$1608", IfThenElse Nothing + ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.HeytingAlgebra" ) + ( Name "heytingAlgebraBoolean" ) + ) + ) + ( PropName "conj" ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "greaterThanOrEq$w" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "x$1454$1541$1607" ) ), AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) + ) + ( PropName "toCharCode" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] + ) + ] + ) :| [] ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottom" ) ) + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "x$1454$1541$1607" ) ), AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) + ) + ( PropName "toCharCode" ) + ) ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "boundedEnumChar" ) ) + ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] ) - ( PropName "Bounded0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ] ) :| [] ) - ] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottom" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "top" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "boundedChar" ) ) :| [] - ) - ) - ) - ( Exception Nothing "No patterns matched" ) - ) - ) - ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "singletonFallback" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "v" ) :| [] ) - ( IfThenElse Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThanOrEq" ) ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( LiteralInt Nothing 65535 :| [] ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromCharCode" ) ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "append" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromCharCode" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) - ) - ( AppN Nothing + ) ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.EuclideanRing" ) - ( Name "euclideanRingInt" ) - ) - ) - ( PropName "div" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ( PropName "fromCharCode" ) ) - ( LiteralInt Nothing 65536 :| [] ) :| [] + ( Ref Nothing ( Local ( Name "x$1454$1541$1607" ) ) :| [] ) :| [] ) ) - ( LiteralInt Nothing 1024 :| [] ) :| [] - ) - ) - ( LiteralInt Nothing 55296 :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromCharCode" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.EuclideanRing" ) - ( Name "euclideanRingInt" ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63$1608" ) ) ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$63$1608" ) ) ) + ( PropName "value0" ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$63$1608" ) ) ) ) + ) + ( IfThenElse Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing + ( Local ( Name "x$1454$1541$1607" ) ), AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) + ) + ( PropName "toCharCode" ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) + ) + ( PropName "bottomChar" ) :| [] + ) + ] ) ) - ( PropName "mod" ) - ) - ( AppN Nothing - ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) + ) + ( PropName "bottomChar" ) + ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) + ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ( PropName "topChar" ) ) - ( LiteralInt Nothing 65536 :| [] ) :| [] ) + ( Exception Nothing "No patterns matched" ) ) - ( LiteralInt Nothing 1024 :| [] ) :| [] - ) + ) :| [] ) - ( LiteralInt Nothing 56320 :| [] ) :| [] - ) :| [] + ) ) ) ) @@ -1562,15 +988,20 @@ UberModule ( ParamNamed Nothing ( Name "x" ) :| [] ) ( AbsN Nothing ( ParamNamed Nothing ( Name "y" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "compare" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [] ) + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "y" ) ) ) + ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) ) ) + ( IfThenElse Nothing + ( Eq Nothing + ( Ref Nothing ( Local ( Name "x" ) ) ) + ( Ref Nothing ( Local ( Name "y" ) ) ) ) - ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) ) ) - ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) ) ) ), @@ -1582,14 +1013,9 @@ UberModule ( ParamNamed Nothing ( Name "x$20" ) :| [] ) ( AbsN Nothing ( ParamNamed Nothing ( Name "y$21" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "x$20" ) ) :| [] ) - ) - ( Ref Nothing ( Local ( Name "y$21" ) ) :| [] ) + ( Eq Nothing + ( Ref Nothing ( Local ( Name "x$20" ) ) ) + ( Ref Nothing ( Local ( Name "y$21" ) ) ) ) ) ) @@ -1604,20 +1030,17 @@ UberModule }, AbsN Nothing ( ParamNamed Nothing ( Name "s" ) :| [] ) ( IfThenElse Nothing - ( AppN Nothing + ( Eq Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "eq" ) ) ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) - ) - ( PropName "length" ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) - ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| [] + ( PropName "length" ) ) + ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) - ( LiteralInt Nothing 0 :| [] ) + ( LiteralInt Nothing 0 ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ( AppN Nothing @@ -1651,13 +1074,11 @@ UberModule ( ParamNamed Nothing ( Name "v" ) :| [ ParamNamed Nothing ( Name "v1" ) ] ) ( IfThenElse Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing ( Local ( Name "v" ) ), LiteralInt Nothing 1 ] ) - ( LiteralInt Nothing 1 :| [] ) ) ( LiteralString Nothing "" ) ( Let Nothing @@ -1674,22 +1095,17 @@ UberModule ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$17" ) ) ) ) ) - ( AppN Nothing + ( PrimBinOp Nothing PrimConcat ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "append" ) ) + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singleton" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singleton" ) ) - ) + ( ObjectProp Nothing ( ObjectProp Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v2$17" ) ) ) - ( PropName "value0" ) - ) - ( PropName "head" ) :| [] - ) :| [] + ( Ref Nothing ( Local ( Name "v2$17" ) ) ) + ( PropName "value0" ) + ) + ( PropName "head" ) :| [] ) ) ( AppN Nothing @@ -1699,14 +1115,9 @@ UberModule ( Name "takeFallback$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| + ( PrimBinOp Nothing PrimSub + ( Ref Nothing ( Local ( Name "v" ) ) ) + ( LiteralInt Nothing 1 ) :| [ ObjectProp Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v2$17" ) ) ) @@ -1714,7 +1125,7 @@ UberModule ) ( PropName "tail" ) ] - ) :| [] + ) ) ) ( Ref Nothing ( Local ( Name "v1" ) ) ) @@ -1851,12 +1262,18 @@ UberModule ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "fromJust" ) ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$1417" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1417" ) ) ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$1417" ) ) ) + ( PropName "value0" ) + ) + ( Exception Nothing "No patterns matched" ) ) ) :| [] ) :| [] @@ -1880,41 +1297,50 @@ UberModule ) ( AbsN Nothing ( ParamNamed Nothing ( Name "s$11" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "v1$1420", AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) :| [] + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) ) + ( Ref Nothing ( Local ( Name "s$11" ) ) :| [] ) + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1420" ) ) ) ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$12" ) :| [] ) - ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( Let Nothing + ( Standalone + ( Nothing, Name "v$12", ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$1420" ) ) ) + ( PropName "value0" ) + ) :| [] + ) ( AppN Nothing - ( Ctor Nothing ProductType - ( ModuleName "Data.Tuple" ) - ( TyName "Tuple" ) - ( CtorName "Tuple" ) - [ FieldName "value0", FieldName "value1" ] + ( AppN Nothing + ( Ctor Nothing ProductType + ( ModuleName "Data.Tuple" ) + ( TyName "Tuple" ) + ( CtorName "Tuple" ) + [ FieldName "value0", FieldName "value1" ] + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$12" ) ) ) + ( PropName "head" ) :| [] + ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$12" ) ) ) - ( PropName "head" ) :| [] + ( PropName "tail" ) :| [] ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$12" ) ) ) - ( PropName "tail" ) :| [] - ) - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) + ) :| [] + ) ) - ( Ref Nothing ( Local ( Name "s$11" ) ) :| [] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) ) :| [] ) @@ -1947,15 +1373,7 @@ UberModule ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) ) ) ( IfThenElse Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "eq" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) + ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( ObjectProp Nothing @@ -1973,14 +1391,9 @@ UberModule ( Name "codePointAtFallback$w" ) ) ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub" ) ) - ) - ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) :| + ( PrimBinOp Nothing PrimSub + ( Ref Nothing ( Local ( Name "n" ) ) ) + ( LiteralInt Nothing 1 ) :| [ ObjectProp Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v" ) ) ) @@ -2024,13 +1437,11 @@ UberModule ( ParamNamed Nothing ( Name "v" ) :| [ ParamNamed Nothing ( Name "v1" ) ] ) ( IfThenElse Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThan" ) ) - ) - ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThan$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing ( Local ( Name "v" ) ), LiteralInt Nothing 0 ] ) - ( LiteralInt Nothing 0 :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ( IfThenElse Nothing @@ -2159,13 +1570,7 @@ UberModule { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "boundedEnumCodePoint" }, LiteralObject Nothing [ - ( PropName "cardinality", AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add" ) ) ) - ( LiteralInt Nothing 1114111 :| [] ) - ) - ( LiteralInt Nothing 1 :| [] ) - ), + ( PropName "cardinality", LiteralInt Nothing 1114112 ), ( PropName "fromEnum", AbsN Nothing ( ParamNamed Nothing ( Name "v" ) :| [] ) ( Ref Nothing ( Local ( Name "v" ) ) ) @@ -2189,13 +1594,13 @@ UberModule ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "lessThanOrEq" ) ) - ) - ( Ref Nothing ( Local ( Name "n0" ) ) :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "lessThanOrEq$w" ) ) ) - ( LiteralInt Nothing 1114111 :| [] ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| + [ Ref Nothing ( Local ( Name "n0" ) ), LiteralInt Nothing 1114111 ] + ) :| [] ) ) ( AppN Nothing @@ -2243,54 +1648,62 @@ UberModule ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "succ", AppN Nothing + ( PropName "succ", AbsN Nothing + ( ParamNamed Nothing ( Name "a$1405" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "defaultSucc" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toEnum" ) ) ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) - ) :| [] - ) :| [] + ) + ) + ( PropName "toEnum" ) + ) + ( PrimBinOp Nothing PrimAdd + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "boundedEnumCodePoint" ) + ) + ) + ( PropName "fromEnum" ) + ) + ( Ref Nothing ( Local ( Name "a$1405" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "boundedEnumCodePoint" ) - ) :| [] - ) :| [] ) ), - ( PropName "pred", AppN Nothing + ( PropName "pred", AbsN Nothing + ( ParamNamed Nothing ( Name "a$1413" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "defaultPred" ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toEnum" ) ) ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) - ) :| [] - ) :| [] + ) + ) + ( PropName "toEnum" ) + ) + ( PrimBinOp Nothing PrimSub + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "boundedEnumCodePoint" ) + ) + ) + ( PropName "fromEnum" ) + ) + ( Ref Nothing ( Local ( Name "a$1413" ) ) :| [] ) + ) + ( LiteralInt Nothing 1 ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "boundedEnumCodePoint" ) - ) :| [] - ) :| [] ) ), ( PropName "Ord0", AbsN Nothing @@ -2315,49 +1728,21 @@ UberModule ( PropName "log" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( Ref Nothing ( Local ( Name "dictShow" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictShow" ) ) ) + ( PropName "show" ) ) ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) ) ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow" }, AbsN Nothing - ( ParamNamed Nothing ( Name "logShow$p1" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "logShow$p2" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) - ( Ref Nothing - ( Local ( Name "logShow$p1" ) ) :| - [ Ref Nothing ( Local ( Name "logShow$p2" ) ) ] - ) - ) - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "compose" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "compose" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Control.Semigroupoid" ) ( Name "semigroupoidFn" ) ) :| [] - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "fromEnum" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "fromEnum" ) ) ) + }, ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) ) :| [] + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) + ( PropName "fromEnum" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "showArray" @@ -2368,49 +1753,18 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showArrayImpl" ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [] ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) :| [] ) ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "showArray" ) ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow1" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow2" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "showMaybe" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [] ) :| [] - ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "map" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "functorMaybe" ) ) :| [] ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "cp" - }, AppN Nothing + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x$1398$1508" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "compose" ) ) - ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) ) @@ -2418,50 +1772,54 @@ UberModule ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "fromJust" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$1378" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1378" ) ) ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$1378" ) ) ) + ( PropName "value0" ) + ) + ( Exception Nothing "No patterns matched" ) + ) ) :| [] - ) :| [] + ) + ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "boundedEnumCodePoint" ) ) + ) + ( PropName "toEnum" ) + ) + ( Ref Nothing ( Local ( Name "x$1398$1508" ) ) :| [] ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toEnum" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "boundedEnumCodePoint" ) - ) :| [] - ) :| [] ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "codes" - }, AppN Nothing + }, AbsN Nothing + ( ParamNamed Nothing ( Name "x$1398$1505" ) :| [] ) ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "compose" ) ) - ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "map", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) - ( PropName "arrayMap" ) - ) - ] :| [] - ) + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) + ( PropName "arrayMap" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) ) :| [] ) + ) + ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) ) :| [] - ) :| [] + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "toCodePointArray" ) ) + ) + ( Ref Nothing ( Local ( Name "x$1398$1505" ) ) :| [] ) :| [] ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "toCodePointArray" ) ) :| [] - ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -2475,288 +1833,495 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) - ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] - ) - ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ) :| - [ Standalone - ( Nothing, Name "_", AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow1" ) ) - ) - ( AppN Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "showArray" ) + ) :| + [ AppN Nothing ( AppN Nothing - ( AppN Nothing + ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "compose" ) ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Array" ) ( Name "foreign" ) ) - ) - ( PropName "length" ) :| [] + ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) + ( PropName "arrayMap" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "fromEnum" ) + ) :| [] ) + ) + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "toCodePointArray" ) - ) :| [] + ) ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] - ) + ] ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) - ), Standalone + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) :| + [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow1" ) ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Array" ) ( Name "foreign" ) ) ) + ( PropName "length" ) ) - ( PropName "length" ) - ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "toCodePointArray" ) + ) + ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take$w" ) ) + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) + ) + ( PropName "length" ) ) - ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] - ) :| [] + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop$w" ) ) + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "showArray" ) + ) :| + [ AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) + ) + ( PropName "arrayMap" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "fromEnum" ) + ) :| [] + ) ) - ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "toCodePointArray" ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take$w" ) ) + ) + ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] + ) :| [] + ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow2" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "fromEnum" ) - ) :| [] + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "showArray" ) + ) :| + [ AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) + ) + ( PropName "arrayMap" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "fromEnum" ) + ) :| [] + ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "codePointAt$w" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "toCodePointArray" ) + ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop$w" ) ) + ) + ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] + ) :| [] ) - ( LiteralInt Nothing 0 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] - ) :| [] + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow2" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1384$1561" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1384$1561" ) ) ) ) + ) + ( PrimBinOp Nothing PrimConcat + ( LiteralString Nothing "(Just " ) + ( PrimBinOp Nothing PrimConcat + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) + ) + ( PropName "showIntImpl" ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$1384$1561" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( LiteralString Nothing ")" ) + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$1384$1561" ) ) ) + ) + ) + ( LiteralString Nothing "Nothing" ) + ( Exception Nothing "No patterns matched" ) + ) + ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "fromEnum" ) + ] :| + [ Let Nothing + ( Standalone + ( Nothing, Name "v1$1382$1559", AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAt$w" ) + ) + ) + ( LiteralInt Nothing 0 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "codePointAt$w" ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1382$1559" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "fromEnum" ) + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$1382$1559" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] + ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) - ( LiteralInt Nothing 3 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] - ) :| [] + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow2" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1384$1569" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1384$1569" ) ) ) ) + ) + ( PrimBinOp Nothing PrimConcat + ( LiteralString Nothing "(Just " ) + ( PrimBinOp Nothing PrimConcat + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) + ) + ( PropName "showIntImpl" ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$1384$1569" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( LiteralString Nothing ")" ) + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$1384$1569" ) ) ) + ) + ) + ( LiteralString Nothing "Nothing" ) + ( Exception Nothing "No patterns matched" ) + ) + ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "fromEnum" ) + ] :| + [ Let Nothing + ( Standalone + ( Nothing, Name "v1$1382$1567", AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAt$w" ) + ) + ) + ( LiteralInt Nothing 3 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) ) :| [] ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "codePointAt$w" ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1382$1567" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "fromEnum" ) + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$1382$1567" ) ) ) + ( PropName "value0" ) :| [] + ) :| [] + ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) - ( LiteralInt Nothing 5 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| [] - ) :| [] + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow2" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1384$1577" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1384$1577" ) ) ) ) + ) + ( PrimBinOp Nothing PrimConcat + ( LiteralString Nothing "(Just " ) + ( PrimBinOp Nothing PrimConcat + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) + ) + ( PropName "showIntImpl" ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$1384$1577" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( LiteralString Nothing ")" ) + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$1384$1577" ) ) ) + ) + ) + ( LiteralString Nothing "Nothing" ) + ( Exception Nothing "No patterns matched" ) + ) + ) ) - ( AppN Nothing - ( AppN Nothing + ] :| + [ Let Nothing + ( Standalone + ( Nothing, Name "v1$1382$1575", AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "compose" ) + ( ModuleName "Data.String.CodePoints" ) + ( Name "codePointAt$w" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "fromEnum" ) + ( LiteralInt Nothing 5 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1382$1575" ) ) ) ) + ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "fromEnum" ) + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$1382$1575" ) ) ) + ( PropName "value0" ) :| [] ) :| [] ) ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$0" ) :| [] ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$0" ) ) ) - ( PropName "head" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] - ) :| [] + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "showMaybe" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "showArray" ) - ) :| [] - ) :| - [ AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "map" ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1384$1588" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1384$1588" ) ) ) ) + ) + ( PrimBinOp Nothing PrimConcat + ( LiteralString Nothing "(Just " ) + ( PrimBinOp Nothing PrimConcat + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) + ) + ( PropName "showIntImpl" ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$1384$1588" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( LiteralString Nothing ")" ) + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$1384$1588" ) ) ) + ) + ) + ( LiteralString Nothing "Nothing" ) + ( Exception Nothing "No patterns matched" ) + ) + ) + ) + ] :| + [ Let Nothing + ( Standalone + ( Nothing, Name "v1$1382$1586", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) + ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1382$1586" ) ) ) ) ) ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "compose" ) + ( Name "fromEnum" ) ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Golden.StringCodePoints.Test" ) - ( Name "codes" ) - ) :| [] - ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v0$1" ) :| [] ) ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v0$1" ) ) ) - ( PropName "tail" ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$1382$1586" ) ) ) + ( PropName "value0" ) + ) + ( PropName "head" ) :| [] ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) + ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) ) ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -2764,99 +2329,237 @@ UberModule ( LiteralObject Nothing [ ( PropName "show", AbsN Nothing - ( ParamNamed Nothing ( Name "v$1235" ) :| [] ) + ( ParamNamed Nothing ( Name "v$1499" ) :| [] ) ( IfThenElse Nothing - ( Ref Nothing ( Local ( Name "v$1235" ) ) ) - ( LiteralString Nothing "true" ) + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1499" ) ) ) ) + ) + ( PrimBinOp Nothing PrimConcat + ( LiteralString Nothing "(Just " ) + ( PrimBinOp Nothing PrimConcat + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) + ) + ( PropName "showArrayImpl" ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) + ) + ( PropName "showIntImpl" ) :| [] + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$1499" ) ) ) + ( PropName "value0" ) :| [] + ) + ) + ( LiteralString Nothing ")" ) + ) + ) ( IfThenElse Nothing - ( Eq Nothing ( LiteralBool Nothing False ) - ( Ref Nothing ( Local ( Name "v$1235" ) ) ) + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1499" ) ) ) ) ) - ( LiteralString Nothing "false" ) + ( LiteralString Nothing "Nothing" ) ( Exception Nothing "No patterns matched" ) ) ) ) ] :| - [ AppN Nothing - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eq" ) ) ) - ( LiteralObject Nothing - [ - ( PropName "eq", AbsN ( Just Always ) - ( ParamNamed Nothing ( Name "r1$1326$1364" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "r2$1327$1365" ) :| [] ) - ( Eq Nothing - ( Ref Nothing ( Local ( Name "r1$1326$1364" ) ) ) - ( Ref Nothing ( Local ( Name "r2$1327$1365" ) ) ) - ) - ) - ) - ] :| [] + [ Let Nothing + ( Standalone + ( Nothing, Name "v1$1382$1601", AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) ) ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) + ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1382$1601" ) ) ) ) ) ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) + ) + ( PropName "arrayMap" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "fromEnum" ) + ) :| [] + ) + ) + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) - ( Name "foreign" ) + ( Name "toCodePointArray" ) ) ) - ( PropName "_fromCodePointArray" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "singletonFallback" ) + ( ObjectProp Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v1$1382$1601" ) ) ) + ( PropName "value0" ) + ) + ( PropName "tail" ) :| [] ) :| [] + ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ) + ) + ] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ), Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( LiteralObject Nothing + [ + ( PropName "show", AbsN Nothing + ( ParamNamed Nothing ( Name "v$1235" ) :| [] ) + ( IfThenElse Nothing + ( Ref Nothing ( Local ( Name "v$1235" ) ) ) + ( LiteralString Nothing "true" ) + ( IfThenElse Nothing + ( Eq Nothing ( LiteralBool Nothing False ) + ( Ref Nothing ( Local ( Name "v$1235" ) ) ) ) + ( LiteralString Nothing "false" ) + ( Exception Nothing "No patterns matched" ) ) - ( AppN Nothing + ) + ) + ] :| + [ Eq Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) - ( Name "toCodePointArray" ) + ( Name "foreign" ) ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] - ) :| [] + ( PropName "_fromCodePointArray" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "singletonFallback" ) + ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "toCodePointArray" ) + ) + ) + ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| [] ) ) - ( LiteralString Nothing "aéЯ𝐀z" :| [] ) + ( LiteralString Nothing "aéЯ𝐀z" ) ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singleton" ) ) + ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "showArray" ) ) :| + [ AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) + ( PropName "arrayMap" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Golden.StringCodePoints.Test" ) + ( Name "fromEnum" ) + ) :| [] + ) ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "cp" ) ) + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "toCodePointArray" ) + ) ) - ( LiteralInt Nothing 119808 :| [] ) :| [] - ) :| [] - ) :| [] + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singleton" ) ) + ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) + ) + ( PropName "_unsafePartial" ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$1378$1614" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Maybe∷Maybe.Just" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$1378$1614" ) ) ) + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$1378$1614" ) ) ) + ( PropName "value0" ) + ) + ( Exception Nothing "No patterns matched" ) + ) + ) :| [] + ) + ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "boundedEnumCodePoint" ) + ) + ) + ( PropName "toEnum" ) + ) + ( LiteralInt Nothing 119808 :| [] ) :| [] + ) :| [] + ) :| [] + ) :| [] + ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ), diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.lua b/test/ps/output/Golden.StringCodePoints.Test/golden.lua index 85a28d72..8e30f989 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.lua +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.lua @@ -66,12 +66,6 @@ M.Data_EuclideanRing_foreign = { end end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Partial_Unsafe_foreign = { _unsafePartial = function(f) return f() end } M.Data_Unfoldable_foreign = { unfoldrArrayImpl = function(isNothing) @@ -256,12 +250,6 @@ end)() M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Semigroupoid_semigroupoidFn = { - compose = function(f) - return function(g) return function(x) return f(g(x)) end end - end -} -M.Control_Semigroupoid_compose = function(dict) return dict.compose end M.Data_HeytingAlgebra_heytingAlgebraBoolean = { ff = false, tt = true, @@ -279,42 +267,15 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { end, _not_ = function(b_S_1336) return not(b_S_1336) end } -M.Data_HeytingAlgebra_conj = function(dict) return dict.conj end M.Data_Eq_eqInt = { eq = function(r1_S_1332) return function(r2_S_1333) return r1_S_1332 == r2_S_1333 end end } -M.Data_Eq_eq = function(dict) return dict.eq end -M.Data_Semigroup_semigroupString = { - append = function(s1_S_1324) - return function(s2_S_1325) return s1_S_1324 .. s2_S_1325 end - end -} -M.Data_Semigroup_append = function(dict) return dict.append end M.Data_Show_showInt = { show = M.Data_Show_foreign.showIntImpl } -M.Data_Show_show = function(dict) return dict.show end M.Data_Ordering_LT = { ["$ctor"] = "Data.Ordering∷Ordering.LT" } M.Data_Ordering_GT = { ["$ctor"] = "Data.Ordering∷Ordering.GT" } M.Data_Ordering_EQ = { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } -M.Data_Semiring_semiringInt = { - add = function(x_S_1322) - return function(y_S_1323) return x_S_1322 + y_S_1323 end - end, - zero = 0, - mul = function(x_S_1320) - return function(y_S_1321) return x_S_1320 * y_S_1321 end - end, - one = 1 -} -M.Data_Semiring_add = function(dict) return dict.add end -M.Data_Ring_sub = function(dict) return dict.sub end -M.Data_Ring_ringInt = { - sub = function(x_S_1318) - return function(y_S_1319) return x_S_1318 - y_S_1319 end - end, - Semiring0 = function() return M.Data_Semiring_semiringInt end -} M.Data_Ord_ordInt = { compare = function(x_S_1316) return function(y_S_1317) @@ -329,196 +290,41 @@ M.Data_Ord_ordInt = { end, Eq0 = function() return M.Data_Eq_eqInt end } -M.Data_Ord_ordChar = { - compare = function(x_S_1311) - return function(y_S_1312) - if x_S_1311 < y_S_1312 then - return M.Data_Ordering_LT - elseif x_S_1311 == y_S_1312 then - return M.Data_Ordering_EQ - else - return M.Data_Ordering_GT - end - end - end, - Eq0 = function() - return { - eq = function(r1_S_1328) - return function(r2_S_1329) return r1_S_1328 == r2_S_1329 end - end - } - end -} -M.Data_Ord_compare = function(dict) return dict.compare end M.Data_Ord_greaterThanOrEq_S_w = function(dictOrd, a1, a2) - return "Data.Ordering∷Ordering.LT" ~= (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] + return "Data.Ordering∷Ordering.LT" ~= (dictOrd.compare(a1)(a2))["$ctor"] end M.Data_Ord_lessThan_S_w = function(dictOrd, a1, a2) - return "Data.Ordering∷Ordering.LT" == (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] + return "Data.Ordering∷Ordering.LT" == (dictOrd.compare(a1)(a2))["$ctor"] end M.Data_Ord_lessThanOrEq_S_w = function(dictOrd, a1, a2) - return "Data.Ordering∷Ordering.GT" ~= (M.Data_Ord_compare(dictOrd)(a1)(a2))["$ctor"] + return "Data.Ordering∷Ordering.GT" ~= (dictOrd.compare(a1)(a2))["$ctor"] end -M.Data_Functor_map = function(dict) return dict.map end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Data_Bounded_top = function(dict) return dict.top end -M.Data_Bounded_boundedChar = { - top = M.Data_Bounded_foreign.topChar, - bottom = M.Data_Bounded_foreign.bottomChar, - Ord0 = function() return M.Data_Ord_ordChar end -} -M.Data_Bounded_bottom = function(dict) return dict.bottom end -M.Data_EuclideanRing_euclideanRingInt = { - degree = M.Data_EuclideanRing_foreign.intDegree, - div = M.Data_EuclideanRing_foreign.intDiv, - mod = M.Data_EuclideanRing_foreign.intMod, - CommutativeRing0 = function() - return { Ring0 = function() return M.Data_Ring_ringInt end } - end -} -M.Data_Maybe_append = M.Data_Semigroup_append(M.Data_Semigroup_semigroupString) M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } M.Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Data_Maybe_showMaybe = function(dictShow) - return { - show = function(v) - if "Data.Maybe∷Maybe.Just" == v["$ctor"] then - return M.Data_Maybe_append("(Just ")(M.Data_Maybe_append(M.Data_Show_show(dictShow)(v.value0))(")")) - elseif "Data.Maybe∷Maybe.Nothing" == v["$ctor"] then - return "Nothing" - else - return error("No patterns matched") - end - end - } -end -M.Data_Maybe_functorMaybe = { - map = function(v) - return function(v1) - if "Data.Maybe∷Maybe.Just" == v1["$ctor"] then - return M.Data_Maybe_Just(v(v1.value0)) +M.Data_Enum_bottom1 = M.Data_Bounded_foreign.bottomChar +M.Data_Enum_top1 = M.Data_Bounded_foreign.topChar +M.Data_String_CodePoints_conj = M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj +M.Data_String_CodePoints_fromEnum = M.Data_Enum_foreign.toCharCode +M.Data_String_CodePoints_unsafeCodePointAt0 = M.Data_String_CodePoints_foreign._unsafeCodePointAt0(function( s_S_27 ) + local Data_Ord_lessThanOrEq_S_w, Data_Ord_ordInt, Data_String_CodePoints_conj = M.Data_Ord_lessThanOrEq_S_w, M.Data_Ord_ordInt, M.Data_String_CodePoints_conj + local cu0_S_28 = M.Data_String_CodePoints_fromEnum(M.Data_String_Unsafe_foreign.charAt(0)(s_S_27)) + if Data_String_CodePoints_conj(Data_String_CodePoints_conj(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, 55296, cu0_S_28))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, cu0_S_28, 56319)))("Data.Ordering∷Ordering.GT" == ((function( ) + local x_S_1316_S_1440 = M.Data_String_CodeUnits_foreign.length(s_S_27) + return function(y_S_1317_S_1441) + if x_S_1316_S_1440 < y_S_1317_S_1441 then + return M.Data_Ordering_LT + elseif x_S_1316_S_1440 == y_S_1317_S_1441 then + return M.Data_Ordering_EQ else - return M.Data_Maybe_Nothing - end - end - end -} -M.Data_Maybe_fromJust = function() - return function(v) - if "Data.Maybe∷Maybe.Just" == v["$ctor"] then - return v.value0 - else - return error("No patterns matched") - end - end -end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_997) - return function(a_S_998) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_997))(a_S_998) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_1350 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_1351) - return function(a_S_1352) - return bind_S_1350(f_S_1351)(function(fPrime_S_1353) - return bind_S_1350(a_S_1352)(function(aPrime_S_1354) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_1353(aPrime_S_1354)) - end) - end) - end + return M.Data_Ordering_GT end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) -M.Data_Enum_sub = M.Data_Ring_sub(M.Data_Ring_ringInt) -M.Data_Enum_bottom1 = M.Data_Bounded_bottom(M.Data_Bounded_boundedChar) -M.Data_Enum_top1 = M.Data_Bounded_top(M.Data_Bounded_boundedChar) -M.Data_Enum_toEnum = function(dict) return dict.toEnum end -M.Data_Enum_fromEnum = function(dict) return dict.fromEnum end -M.Data_Enum_defaultSucc = function(toEnumPrime) - return function(fromEnumPrime) - return function(a) - return toEnumPrime(M.Data_Semiring_add(M.Data_Semiring_semiringInt)(fromEnumPrime(a))(1)) - end - end -end -M.Data_Enum_defaultPred = function(toEnumPrime) - return function(fromEnumPrime) - return function(a) - return toEnumPrime(M.Data_Enum_sub(fromEnumPrime(a))(1)) end - end -end -M.Data_Enum_charToEnum = function(v) - local Data_Enum_foreign, Data_Ord_ordInt = M.Data_Enum_foreign, M.Data_Ord_ordInt - if M.Data_HeytingAlgebra_conj(M.Data_HeytingAlgebra_heytingAlgebraBoolean)(M.Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, v, Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, v, Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then - return M.Data_Maybe_Just(Data_Enum_foreign.fromCharCode(v)) - else - return M.Data_Maybe_Nothing - end -end -M.Data_Enum_boundedEnumChar = { - cardinality = M.Data_Enum_sub(M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))(M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)), - toEnum = M.Data_Enum_charToEnum, - fromEnum = M.Data_Enum_foreign.toCharCode, - Bounded0 = function() return M.Data_Bounded_boundedChar end, - Enum1 = function() - local Data_Enum_charToEnum, Data_Enum_foreign = M.Data_Enum_charToEnum, M.Data_Enum_foreign - return { - succ = M.Data_Enum_defaultSucc(Data_Enum_charToEnum)(Data_Enum_foreign.toCharCode), - pred = M.Data_Enum_defaultPred(Data_Enum_charToEnum)(Data_Enum_foreign.toCharCode), - Ord0 = function() return M.Data_Ord_ordChar end - } - end -} -M.Data_String_CodePoints_add = M.Data_Semiring_add(M.Data_Semiring_semiringInt) -M.Data_String_CodePoints_sub = M.Data_Ring_sub(M.Data_Ring_ringInt) -M.Data_String_CodePoints_append = M.Data_Semigroup_append(M.Data_Semigroup_semigroupString) -M.Data_String_CodePoints_conj = M.Data_HeytingAlgebra_conj(M.Data_HeytingAlgebra_heytingAlgebraBoolean) -M.Data_String_CodePoints_lessThanOrEq = function(lessThanOrEq_S_p2_S_1372) - return function(lessThanOrEq_S_p3_S_1373) - return M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, lessThanOrEq_S_p2_S_1372, lessThanOrEq_S_p3_S_1373) - end -end -M.Data_String_CodePoints_fromEnum = M.Data_Enum_fromEnum(M.Data_Enum_boundedEnumChar) -M.Data_String_CodePoints_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) -M.Data_String_CodePoints_eq = M.Data_Eq_eq(M.Data_Eq_eqInt) -M.Data_String_CodePoints_lessThan = function(lessThan_S_p2_S_1375) - return function(lessThan_S_p3_S_1376) - return M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, lessThan_S_p2_S_1375, lessThan_S_p3_S_1376) - end -end -M.Data_String_CodePoints_unsafeCodePointAt0 = M.Data_String_CodePoints_foreign._unsafeCodePointAt0(function( s_S_27 ) - local Data_String_CodePoints_conj, Data_String_CodePoints_lessThanOrEq = M.Data_String_CodePoints_conj, M.Data_String_CodePoints_lessThanOrEq - local cu0_S_28 = M.Data_String_CodePoints_fromEnum(M.Data_String_Unsafe_foreign.charAt(0)(s_S_27)) - if Data_String_CodePoints_conj(Data_String_CodePoints_conj(Data_String_CodePoints_lessThanOrEq(55296)(cu0_S_28))(Data_String_CodePoints_lessThanOrEq(cu0_S_28)(56319)))("Data.Ordering∷Ordering.GT" == (M.Data_Ord_compare(M.Data_Ord_ordInt)(M.Data_String_CodeUnits_foreign.length(s_S_27))(1))["$ctor"]) then + end)()(1))["$ctor"]) then local cu1_S_30 = M.Data_String_CodePoints_fromEnum(M.Data_String_Unsafe_foreign.charAt(1)(s_S_27)) - if Data_String_CodePoints_conj(Data_String_CodePoints_lessThanOrEq(56320)(cu1_S_30))(Data_String_CodePoints_lessThanOrEq(cu1_S_30)(57343)) then - return M.Data_String_CodePoints_add(M.Data_String_CodePoints_add(M.Data_Semiring_semiringInt.mul(M.Data_String_CodePoints_sub(cu0_S_28)(55296))(1024))(M.Data_String_CodePoints_sub(cu1_S_30)(56320)))(65536) + if Data_String_CodePoints_conj(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, 56320, cu1_S_30))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, cu1_S_30, 57343)) then + return (cu0_S_28 - 55296) * 1024 + (cu1_S_30 - 56320) + 65536 else return cu0_S_28 end @@ -526,44 +332,99 @@ M.Data_String_CodePoints_unsafeCodePointAt0 = M.Data_String_CodePoints_foreign._ return cu0_S_28 end end) -M.Data_String_CodePoints_fromCharCode = M.Data_String_CodePoints_compose(M.Data_String_CodeUnits_foreign.singleton)(function( x_S_62 ) - local v_S_63 = M.Data_Enum_toEnum(M.Data_Enum_boundedEnumChar)(x_S_62) - if "Data.Maybe∷Maybe.Just" == v_S_63["$ctor"] then - return v_S_63.value0 - elseif "Data.Maybe∷Maybe.Nothing" == v_S_63["$ctor"] then - if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, x_S_62, M.Data_Enum_fromEnum(M.Data_Enum_boundedEnumChar)(M.Data_Bounded_bottom(M.Data_Enum_boundedEnumChar.Bounded0()))) then - return M.Data_Bounded_bottom(M.Data_Bounded_boundedChar) - else - return M.Data_Bounded_top(M.Data_Bounded_boundedChar) - end - else - return error("No patterns matched") - end -end) M.Data_String_CodePoints_singletonFallback = function(v) - if M.Data_String_CodePoints_lessThanOrEq(v)(65535) then - return M.Data_String_CodePoints_fromCharCode(v) + if M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, v, 65535) then + return M.Data_String_CodeUnits_foreign.singleton((function() + local v_S_63_S_1604 = (function() + if M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, v, M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, v, M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then + return M.Data_Maybe_Just(M.Data_Enum_foreign.fromCharCode(v)) + else + return M.Data_Maybe_Nothing + end + end)() + if "Data.Maybe∷Maybe.Just" == v_S_63_S_1604["$ctor"] then + return v_S_63_S_1604.value0 + elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1604["$ctor"] then + if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, v, M.Data_Enum_foreign.toCharCode(M.Data_Bounded_foreign.bottomChar)) then + return M.Data_Bounded_foreign.bottomChar + else + return M.Data_Bounded_foreign.topChar + end + else + return error("No patterns matched") + end + end)()) else - return M.Data_String_CodePoints_append(M.Data_String_CodePoints_fromCharCode(M.Data_String_CodePoints_add(M.Data_EuclideanRing_euclideanRingInt.div(M.Data_String_CodePoints_sub(v)(65536))(1024))(55296)))(M.Data_String_CodePoints_fromCharCode(M.Data_String_CodePoints_add(M.Data_EuclideanRing_euclideanRingInt.mod(M.Data_String_CodePoints_sub(v)(65536))(1024))(56320))) + return (function() + local x_S_1454_S_1541_S_1605 = M.Data_EuclideanRing_foreign.intDiv(v - 65536)(1024) + 55296 + return M.Data_String_CodeUnits_foreign.singleton((function() + local v_S_63_S_1606 = (function() + if M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, x_S_1454_S_1541_S_1605, M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, x_S_1454_S_1541_S_1605, M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then + return M.Data_Maybe_Just(M.Data_Enum_foreign.fromCharCode(x_S_1454_S_1541_S_1605)) + else + return M.Data_Maybe_Nothing + end + end)() + if "Data.Maybe∷Maybe.Just" == v_S_63_S_1606["$ctor"] then + return v_S_63_S_1606.value0 + elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1606["$ctor"] then + if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, x_S_1454_S_1541_S_1605, M.Data_Enum_foreign.toCharCode(M.Data_Bounded_foreign.bottomChar)) then + return M.Data_Bounded_foreign.bottomChar + else + return M.Data_Bounded_foreign.topChar + end + else + return error("No patterns matched") + end + end)()) + end)() .. (function() + local x_S_1454_S_1541_S_1607 = M.Data_EuclideanRing_foreign.intMod(v - 65536)(1024) + 56320 + return M.Data_String_CodeUnits_foreign.singleton((function() + local v_S_63_S_1608 = (function() + if M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, x_S_1454_S_1541_S_1607, M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, x_S_1454_S_1541_S_1607, M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then + return M.Data_Maybe_Just(M.Data_Enum_foreign.fromCharCode(x_S_1454_S_1541_S_1607)) + else + return M.Data_Maybe_Nothing + end + end)() + if "Data.Maybe∷Maybe.Just" == v_S_63_S_1608["$ctor"] then + return v_S_63_S_1608.value0 + elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1608["$ctor"] then + if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, x_S_1454_S_1541_S_1607, M.Data_Enum_foreign.toCharCode(M.Data_Bounded_foreign.bottomChar)) then + return M.Data_Bounded_foreign.bottomChar + else + return M.Data_Bounded_foreign.topChar + end + else + return error("No patterns matched") + end + end)()) + end)() end end M.Data_String_CodePoints_singleton = M.Data_String_CodePoints_foreign._singleton(M.Data_String_CodePoints_singletonFallback) M.Data_String_CodePoints_ordCodePoint = { compare = function(x) - return function(y) return M.Data_Ord_compare(M.Data_Ord_ordInt)(x)(y) end + return function(y) + if x < y then + return M.Data_Ordering_LT + elseif x == y then + return M.Data_Ordering_EQ + else + return M.Data_Ordering_GT + end + end end, Eq0 = function() return { eq = function(x_S_20) - return function(y_S_21) - return M.Data_String_CodePoints_eq(x_S_20)(y_S_21) - end + return function(y_S_21) return x_S_20 == y_S_21 end end } end } M.Data_String_CodePoints_uncons = function(s) - if M.Data_String_CodePoints_eq(M.Data_String_CodeUnits_foreign.length(s))(0) then + if M.Data_String_CodeUnits_foreign.length(s) == 0 then return M.Data_Maybe_Nothing else return M.Data_Maybe_Just({ @@ -573,12 +434,12 @@ M.Data_String_CodePoints_uncons = function(s) end end M.Data_String_CodePoints_takeFallback_S_w = function(v, v1) - if M.Data_String_CodePoints_lessThan(v)(1) then + if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, v, 1) then return "" else local v2_S_17 = M.Data_String_CodePoints_uncons(v1) if "Data.Maybe∷Maybe.Just" == v2_S_17["$ctor"] then - return M.Data_String_CodePoints_append(M.Data_String_CodePoints_singleton(v2_S_17.value0.head))(M.Data_String_CodePoints_takeFallback_S_w(M.Data_String_CodePoints_sub(v)(1), v2_S_17.value0.tail)) + return M.Data_String_CodePoints_singleton(v2_S_17.value0.head) .. M.Data_String_CodePoints_takeFallback_S_w(v - 1, v2_S_17.value0.tail) else return v1 end @@ -606,26 +467,40 @@ M.Data_String_CodePoints_toCodePointArray = M.Data_String_CodePoints_foreign._to return error("No patterns matched") end end)(M.Partial_Unsafe_foreign._unsafePartial(function() - return M.Data_Maybe_fromJust() + return function(v_S_1417) + if "Data.Maybe∷Maybe.Just" == v_S_1417["$ctor"] then + return v_S_1417.value0 + else + return error("No patterns matched") + end + end end))(function(v_S_1368) return v_S_1368.value0 end)(function(v_S_1369) return v_S_1369.value1 end)(function(s_S_11) - return M.Data_Functor_map(M.Data_Maybe_functorMaybe)(function(v_S_12) - return (function(value0) - return function(value1) return { value0 = value0, value1 = value1 } end - end)(v_S_12.head)(v_S_12.tail) - end)(M.Data_String_CodePoints_uncons(s_S_11)) + local v1_S_1420 = M.Data_String_CodePoints_uncons(s_S_11) + if "Data.Maybe∷Maybe.Just" == v1_S_1420["$ctor"] then + return M.Data_Maybe_Just((function() + local v_S_12 = v1_S_1420.value0 + return (function(value0) + return function(value1) + return { value0 = value0, value1 = value1 } + end + end)(v_S_12.head)(v_S_12.tail) + end)()) + else + return M.Data_Maybe_Nothing + end end)(s_S_10) end)(M.Data_String_CodePoints_unsafeCodePointAt0) M.Data_String_CodePoints_codePointAtFallback_S_w = function(n, s) - local Data_Maybe_Just, Data_Maybe_Nothing, Data_String_CodePoints_eq, Data_String_CodePoints_sub, Data_String_CodePoints_uncons = M.Data_Maybe_Just, M.Data_Maybe_Nothing, M.Data_String_CodePoints_eq, M.Data_String_CodePoints_sub, M.Data_String_CodePoints_uncons + local Data_Maybe_Just, Data_Maybe_Nothing, Data_String_CodePoints_uncons = M.Data_Maybe_Just, M.Data_Maybe_Nothing, M.Data_String_CodePoints_uncons while true do local v = Data_String_CodePoints_uncons(s) if "Data.Maybe∷Maybe.Just" == v["$ctor"] then - if Data_String_CodePoints_eq(n)(0) then + if n == 0 then return Data_Maybe_Just(v.value0.head) else - n, s = Data_String_CodePoints_sub(n)(1), v.value0.tail + n, s = n - 1, v.value0.tail end else return Data_Maybe_Nothing @@ -638,7 +513,7 @@ M.Data_String_CodePoints_codePointAtFallback = function( codePointAtFallback_S_p end end M.Data_String_CodePoints_codePointAt_S_w = function(v, v1) - if M.Data_String_CodePoints_lessThan(v)(0) then + if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, v, 0) then return M.Data_Maybe_Nothing elseif 0 == v then if "" == v1 then @@ -655,10 +530,11 @@ M.Data_String_CodePoints_codePointAt_S_w = function(v, v1) end end M.Data_String_CodePoints_boundedEnumCodePoint = { - cardinality = M.Data_String_CodePoints_add(1114111)(1), + cardinality = 1114112, fromEnum = function(v) return v end, toEnum = function(n0) - if M.Data_String_CodePoints_conj(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, n0, 0))(M.Data_String_CodePoints_lessThanOrEq(n0)(1114111)) then + local Data_Ord_ordInt = M.Data_Ord_ordInt + if M.Data_String_CodePoints_conj(M.Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, n0, 0))(M.Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, n0, 1114111)) then return M.Data_Maybe_Just(n0) else return M.Data_Maybe_Nothing @@ -674,53 +550,136 @@ M.Data_String_CodePoints_boundedEnumCodePoint = { Enum1 = function() return M.Data_String_CodePoints_Lazy_enumCodePoint(0) end } M.Data_String_CodePoints_Lazy_enumCodePoint = PSLUA_runtime_lazy("enumCodePoint")(function( ) - local Data_String_CodePoints_boundedEnumCodePoint, Data_Enum_fromEnum, Data_Enum_toEnum = M.Data_String_CodePoints_boundedEnumCodePoint, M.Data_Enum_fromEnum, M.Data_Enum_toEnum return { - succ = M.Data_Enum_defaultSucc(Data_Enum_toEnum(Data_String_CodePoints_boundedEnumCodePoint))(Data_Enum_fromEnum(Data_String_CodePoints_boundedEnumCodePoint)), - pred = M.Data_Enum_defaultPred(Data_Enum_toEnum(Data_String_CodePoints_boundedEnumCodePoint))(Data_Enum_fromEnum(Data_String_CodePoints_boundedEnumCodePoint)), + succ = function(a_S_1405) + local Data_String_CodePoints_boundedEnumCodePoint = M.Data_String_CodePoints_boundedEnumCodePoint + return Data_String_CodePoints_boundedEnumCodePoint.toEnum(Data_String_CodePoints_boundedEnumCodePoint.fromEnum(a_S_1405) + 1) + end, + pred = function(a_S_1413) + local Data_String_CodePoints_boundedEnumCodePoint = M.Data_String_CodePoints_boundedEnumCodePoint + return Data_String_CodePoints_boundedEnumCodePoint.toEnum(Data_String_CodePoints_boundedEnumCodePoint.fromEnum(a_S_1413) - 1) + end, Ord0 = function() return M.Data_String_CodePoints_ordCodePoint end } end) M.Effect_Console_logShow_S_w = function(dictShow, a) - return M.Effect_Console_foreign.log(M.Data_Show_show(dictShow)(a)) + return M.Effect_Console_foreign.log(dictShow.show(a)) end -M.Effect_Console_logShow = function(logShow_S_p1) - return function(logShow_S_p2) - return M.Effect_Console_logShow_S_w(logShow_S_p1, logShow_S_p2) - end -end -M.Golden_StringCodePoints_Test_compose = M.Control_Semigroupoid_compose(M.Control_Semigroupoid_semigroupoidFn) -M.Golden_StringCodePoints_Test_fromEnum = M.Data_Enum_fromEnum(M.Data_String_CodePoints_boundedEnumCodePoint) -M.Golden_StringCodePoints_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) +M.Golden_StringCodePoints_Test_fromEnum = M.Data_String_CodePoints_boundedEnumCodePoint.fromEnum M.Golden_StringCodePoints_Test_showArray = { - show = M.Data_Show_foreign.showArrayImpl(M.Data_Show_show(M.Data_Show_showInt)) + show = M.Data_Show_foreign.showArrayImpl(M.Data_Show_foreign.showIntImpl) } -M.Golden_StringCodePoints_Test_logShow = M.Effect_Console_logShow(M.Golden_StringCodePoints_Test_showArray) -M.Golden_StringCodePoints_Test_logShow1 = M.Effect_Console_logShow(M.Data_Show_showInt) -M.Golden_StringCodePoints_Test_logShow2 = M.Effect_Console_logShow(M.Data_Maybe_showMaybe(M.Data_Show_showInt)) -M.Golden_StringCodePoints_Test_map = M.Data_Functor_map(M.Data_Maybe_functorMaybe) -M.Golden_StringCodePoints_Test_cp = M.Golden_StringCodePoints_Test_compose(M.Partial_Unsafe_foreign._unsafePartial(function( ) - return M.Data_Maybe_fromJust() -end))(M.Data_Enum_toEnum(M.Data_String_CodePoints_boundedEnumCodePoint)) -M.Golden_StringCodePoints_Test_codes = M.Golden_StringCodePoints_Test_compose(M.Data_Functor_map({ - map = M.Data_Functor_foreign.arrayMap -})(M.Golden_StringCodePoints_Test_fromEnum))(M.Data_String_CodePoints_toCodePointArray) +M.Golden_StringCodePoints_Test_cp = function(x_S_1398_S_1508) + return M.Partial_Unsafe_foreign._unsafePartial(function() + return function(v_S_1378) + if "Data.Maybe∷Maybe.Just" == v_S_1378["$ctor"] then + return v_S_1378.value0 + else + return error("No patterns matched") + end + end + end)(M.Data_String_CodePoints_boundedEnumCodePoint.toEnum(x_S_1398_S_1508)) +end +M.Golden_StringCodePoints_Test_codes = function(x_S_1398_S_1505) + return M.Data_Functor_foreign.arrayMap(M.Golden_StringCodePoints_Test_fromEnum)(M.Data_String_CodePoints_toCodePointArray(x_S_1398_S_1505)) +end return (function() - local Golden_StringCodePoints_Test_codes, Golden_StringCodePoints_Test_map, Golden_StringCodePoints_Test_fromEnum, Golden_StringCodePoints_Test_logShow, Golden_StringCodePoints_Test_logShow2, Data_String_CodePoints_codePointAt_S_w, Data_String_CodePoints_toCodePointArray, Data_String_CodePoints_uncons, Effect_Console_logShow_S_w, Golden_StringCodePoints_Test_compose, Golden_StringCodePoints_Test_logShow1 = M.Golden_StringCodePoints_Test_codes, M.Golden_StringCodePoints_Test_map, M.Golden_StringCodePoints_Test_fromEnum, M.Golden_StringCodePoints_Test_logShow, M.Golden_StringCodePoints_Test_logShow2, M.Data_String_CodePoints_codePointAt_S_w, M.Data_String_CodePoints_toCodePointArray, M.Data_String_CodePoints_uncons, M.Effect_Console_logShow_S_w, M.Golden_StringCodePoints_Test_compose, M.Golden_StringCodePoints_Test_logShow1 - local _ = Golden_StringCodePoints_Test_logShow(Golden_StringCodePoints_Test_codes("aéЯ𝐀z"))() - local _ = Golden_StringCodePoints_Test_logShow1(M.Data_String_CodePoints_compose(M.Data_Array_foreign.length)(Data_String_CodePoints_toCodePointArray)("aéЯ𝐀z"))() - local _ = Golden_StringCodePoints_Test_logShow1(M.Data_String_CodeUnits_foreign.length("aéЯ𝐀z"))() - local _ = Golden_StringCodePoints_Test_logShow(Golden_StringCodePoints_Test_codes(M.Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z")))() - local _ = Golden_StringCodePoints_Test_logShow(Golden_StringCodePoints_Test_codes(M.Data_String_CodePoints_drop_S_w(2, "aéЯ𝐀z")))() - local _ = Golden_StringCodePoints_Test_logShow2(Golden_StringCodePoints_Test_map(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_codePointAt_S_w(0, "aéЯ𝐀z")))() - local _ = Golden_StringCodePoints_Test_logShow2(Golden_StringCodePoints_Test_map(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_codePointAt_S_w(3, "aéЯ𝐀z")))() - local _ = Golden_StringCodePoints_Test_logShow2(Golden_StringCodePoints_Test_map(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_codePointAt_S_w(5, "aéЯ𝐀z")))() - local _ = Golden_StringCodePoints_Test_logShow2(Golden_StringCodePoints_Test_map(Golden_StringCodePoints_Test_compose(Golden_StringCodePoints_Test_fromEnum)(function( v_S_0 ) - return v_S_0.head - end))(Data_String_CodePoints_uncons("aéЯ𝐀z")))() - local _ = Effect_Console_logShow_S_w(M.Data_Maybe_showMaybe(M.Golden_StringCodePoints_Test_showArray), Golden_StringCodePoints_Test_map(Golden_StringCodePoints_Test_compose(Golden_StringCodePoints_Test_codes)(function( v0_S_1 ) - return v0_S_1.tail - end))(Data_String_CodePoints_uncons("aéЯ𝐀z")))() + local Effect_Console_logShow_S_w, Data_String_CodePoints_toCodePointArray, Data_Functor_foreign, Golden_StringCodePoints_Test_fromEnum, Golden_StringCodePoints_Test_showArray, Data_String_CodePoints_codePointAt_S_w, Data_Show_showInt, Data_String_CodePoints_uncons = M.Effect_Console_logShow_S_w, M.Data_String_CodePoints_toCodePointArray, M.Data_Functor_foreign, M.Golden_StringCodePoints_Test_fromEnum, M.Golden_StringCodePoints_Test_showArray, M.Data_String_CodePoints_codePointAt_S_w, M.Data_Show_showInt, M.Data_String_CodePoints_uncons + local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, M.Data_Array_foreign.length(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, M.Data_String_CodeUnits_foreign.length("aéЯ𝐀z"))() + local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(M.Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z"))))() + local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(M.Data_String_CodePoints_drop_S_w(2, "aéЯ𝐀z"))))() + local _ = Effect_Console_logShow_S_w({ + show = function(v_S_1384_S_1561) + if "Data.Maybe∷Maybe.Just" == v_S_1384_S_1561["$ctor"] then + return "(Just " .. M.Data_Show_foreign.showIntImpl(v_S_1384_S_1561.value0) .. ")" + elseif "Data.Maybe∷Maybe.Nothing" == v_S_1384_S_1561["$ctor"] then + return "Nothing" + else + return error("No patterns matched") + end + end + }, (function() + local v1_S_1382_S_1559 = Data_String_CodePoints_codePointAt_S_w(0, "aéЯ𝐀z") + if "Data.Maybe∷Maybe.Just" == v1_S_1382_S_1559["$ctor"] then + return M.Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1382_S_1559.value0)) + else + return M.Data_Maybe_Nothing + end + end)())() + local _ = Effect_Console_logShow_S_w({ + show = function(v_S_1384_S_1569) + if "Data.Maybe∷Maybe.Just" == v_S_1384_S_1569["$ctor"] then + return "(Just " .. M.Data_Show_foreign.showIntImpl(v_S_1384_S_1569.value0) .. ")" + elseif "Data.Maybe∷Maybe.Nothing" == v_S_1384_S_1569["$ctor"] then + return "Nothing" + else + return error("No patterns matched") + end + end + }, (function() + local v1_S_1382_S_1567 = Data_String_CodePoints_codePointAt_S_w(3, "aéЯ𝐀z") + if "Data.Maybe∷Maybe.Just" == v1_S_1382_S_1567["$ctor"] then + return M.Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1382_S_1567.value0)) + else + return M.Data_Maybe_Nothing + end + end)())() + local _ = Effect_Console_logShow_S_w({ + show = function(v_S_1384_S_1577) + if "Data.Maybe∷Maybe.Just" == v_S_1384_S_1577["$ctor"] then + return "(Just " .. M.Data_Show_foreign.showIntImpl(v_S_1384_S_1577.value0) .. ")" + elseif "Data.Maybe∷Maybe.Nothing" == v_S_1384_S_1577["$ctor"] then + return "Nothing" + else + return error("No patterns matched") + end + end + }, (function() + local v1_S_1382_S_1575 = Data_String_CodePoints_codePointAt_S_w(5, "aéЯ𝐀z") + if "Data.Maybe∷Maybe.Just" == v1_S_1382_S_1575["$ctor"] then + return M.Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1382_S_1575.value0)) + else + return M.Data_Maybe_Nothing + end + end)())() + local _ = Effect_Console_logShow_S_w({ + show = function(v_S_1384_S_1588) + if "Data.Maybe∷Maybe.Just" == v_S_1384_S_1588["$ctor"] then + return "(Just " .. M.Data_Show_foreign.showIntImpl(v_S_1384_S_1588.value0) .. ")" + elseif "Data.Maybe∷Maybe.Nothing" == v_S_1384_S_1588["$ctor"] then + return "Nothing" + else + return error("No patterns matched") + end + end + }, (function() + local v1_S_1382_S_1586 = Data_String_CodePoints_uncons("aéЯ𝐀z") + if "Data.Maybe∷Maybe.Just" == v1_S_1382_S_1586["$ctor"] then + return M.Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1382_S_1586.value0.head)) + else + return M.Data_Maybe_Nothing + end + end)())() + local _ = Effect_Console_logShow_S_w({ + show = function(v_S_1499) + if "Data.Maybe∷Maybe.Just" == v_S_1499["$ctor"] then + return "(Just " .. M.Data_Show_foreign.showArrayImpl(M.Data_Show_foreign.showIntImpl)(v_S_1499.value0) .. ")" + elseif "Data.Maybe∷Maybe.Nothing" == v_S_1499["$ctor"] then + return "Nothing" + else + return error("No patterns matched") + end + end + }, (function() + local v1_S_1382_S_1601 = Data_String_CodePoints_uncons("aéЯ𝐀z") + if "Data.Maybe∷Maybe.Just" == v1_S_1382_S_1601["$ctor"] then + return M.Data_Maybe_Just(Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(v1_S_1382_S_1601.value0.tail))) + else + return M.Data_Maybe_Nothing + end + end)())() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1235) if v_S_1235 then @@ -731,12 +690,14 @@ return (function() return error("No patterns matched") end end - }, M.Data_Eq_eq({ - eq = function(r1_S_1326_S_1364) - return function(r2_S_1327_S_1365) - return r1_S_1326_S_1364 == r2_S_1327_S_1365 + }, M.Data_String_CodePoints_foreign._fromCodePointArray(M.Data_String_CodePoints_singletonFallback)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")) == "aéЯ𝐀z")() + return Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(M.Data_String_CodePoints_singleton(M.Partial_Unsafe_foreign._unsafePartial(function( ) + return function(v_S_1378_S_1614) + if "Data.Maybe∷Maybe.Just" == v_S_1378_S_1614["$ctor"] then + return v_S_1378_S_1614.value0 + else + return error("No patterns matched") end end - })(M.Data_String_CodePoints_foreign._fromCodePointArray(M.Data_String_CodePoints_singletonFallback)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))("aéЯ𝐀z"))() - return Golden_StringCodePoints_Test_logShow(Golden_StringCodePoints_Test_codes(M.Data_String_CodePoints_singleton(M.Golden_StringCodePoints_Test_cp(119808))))() + end)(M.Data_String_CodePoints_boundedEnumCodePoint.toEnum(119808))))))() end)() diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir index 00535eb0..0a252a23 100644 --- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir +++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir @@ -30,17 +30,6 @@ UberModule }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) ), RecursiveGroup ( ( QName @@ -124,16 +113,11 @@ UberModule ( PropName "apply" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] + ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( PropName "pure" ) ) ( Ref Nothing ( Local ( Name "f$239" ) ) :| [] ) :| [] ) @@ -159,8 +143,7 @@ UberModule [ ( PropName "apply", Let Nothing ( Standalone - ( Nothing, Name "bind$219", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) + ( Nothing, Name "bind$219", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -170,8 +153,9 @@ UberModule ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "bind" ) ) :| [] ) ( AbsN Nothing @@ -193,13 +177,7 @@ UberModule ( AbsN Nothing ( ParamNamed Nothing ( Name "a'$224" ) :| [] ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) + ( ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing @@ -215,8 +193,9 @@ UberModule ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] + ) ) + ( PropName "pure" ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f'$223" ) ) ) @@ -251,17 +230,11 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Monad.Rec.Class", qnameName = Name "bind" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.Rec.Class", qnameName = Name "pure" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) :| [] ) + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) + ( PropName "pure" ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.TailRecM2Shadow.Test", qnameName = Name "add$w" @@ -278,8 +251,7 @@ UberModule ( ParamNamed Nothing ( Name "dictMonadRec" ) :| [] ) ( Let Nothing ( Standalone - ( Nothing, Name "pure", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) ) + ( Nothing, Name "pure", ObjectProp Nothing ( AppN Nothing ( ObjectProp Nothing ( AppN Nothing @@ -291,8 +263,9 @@ UberModule ) ( PropName "Applicative0" ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) ) + ( PropName "pure" ) ) :| [] ) ( AbsN Nothing @@ -320,33 +293,19 @@ UberModule ( IfThenElse Nothing ( Eq Nothing ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) - ( ReflectCtor Nothing + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "i$2" ) ) ) + ( Ref Nothing ( Local ( Name "n" ) ) ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( IfThenElse Nothing - ( PrimBinOp Nothing PrimLt + ( Eq Nothing ( Ref Nothing ( Local ( Name "i$2" ) ) ) ( Ref Nothing ( Local ( Name "n" ) ) ) ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "LT" ) [] - ) - ( IfThenElse Nothing - ( Eq Nothing - ( Ref Nothing ( Local ( Name "i$2" ) ) ) - ( Ref Nothing ( Local ( Name "n" ) ) ) - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "EQ" ) [] - ) - ( Ctor Nothing SumType - ( ModuleName "Data.Ordering" ) - ( TyName "Ordering" ) - ( CtorName "GT" ) [] - ) - ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ) ) ) @@ -434,284 +393,426 @@ UberModule ( Nothing, Name "r$0", AppN Nothing ( AppN Nothing ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.TailRecM2Shadow.Test" ) ( Name "sumFrom" ) ) - ) - ( LiteralObject Nothing - [ - ( PropName "tailRecM", AbsN Nothing - ( ParamNamed Nothing ( Name "f$11" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$12" ) :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "dictMonadRec$535", LiteralObject Nothing + [ + ( PropName "tailRecM", AbsN Nothing + ( ParamNamed Nothing ( Name "f$11" ) :| [] ) ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Let Nothing - ( Standalone - ( Nothing, Name "r$16", AppN Nothing - ( AppN Nothing + ( ParamNamed Nothing ( Name "a$12" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "r$16", AppN Nothing ( AppN Nothing ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Bind" ) - ( Name "bind" ) + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "bindEffect" ) + ) ) + ( PropName "bind" ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f$11" ) ) ) + ( Ref Nothing ( Local ( Name "a$12" ) ) :| [] ) :| [] + ) + ) + ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported - ( ModuleName "Effect" ) - ( Name "bindEffect" ) - ) :| [] + ( ModuleName "Effect.Ref" ) + ( Name "foreign" ) + ) ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$11" ) ) ) - ( Ref Nothing ( Local ( Name "a$12" ) ) :| [] ) :| [] + ( PropName "_new" ) :| [] ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) - ) - ( PropName "_new" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) :| - [ Standalone - ( Nothing, Name "_", AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) + ) :| + [ Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "foreign" ) + ) + ) + ( PropName "untilE" ) ) - ( PropName "untilE" ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Let Nothing - ( Standalone - ( Nothing, Name "v0$17", AppN Nothing - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "v0$17", AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "foreign" ) + ) ) + ( PropName "read" ) ) - ( PropName "read" ) + ( Ref Nothing ( Local ( Name "r$16" ) ) :| [] ) ) - ( Ref Nothing ( Local ( Name "r$16" ) ) :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) - ) :| [] - ) - ( AppN Nothing - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Loop" ) - ( ReflectCtor Nothing - ( Ref Nothing ( Local ( Name "v0$17" ) ) ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Let Nothing - ( Standalone - ( Nothing, Name "e$19", AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f$11" ) ) ) - ( ObjectProp Nothing + ) :| [] + ) + ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Loop" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v0$17" ) ) ) + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "e$19", AppN Nothing + ( AppN Nothing ( Ref Nothing - ( Local ( Name "v0$17" ) ) + ( Local ( Name "f$11" ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Local ( Name "v0$17" ) ) + ) + ( PropName "value0" ) :| [] ) - ( PropName "value0" ) :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) - ) :| - [ Standalone - ( Nothing, Name "_", AppN Nothing - ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) :| + [ Standalone + ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "foreign" ) + ) ) + ( PropName "write" ) + ) + ( Ref Nothing + ( Local ( Name "e$19" ) ) :| [] ) - ( PropName "write" ) ) ( Ref Nothing - ( Local ( Name "e$19" ) ) :| [] + ( Local ( Name "r$16" ) ) :| [] ) ) ( Ref Nothing - ( Local ( Name "r$16" ) ) :| [] + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] ) ) + ] + ) + ( AppN Nothing + ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] + ( ModuleName "Control.Monad.Rec.Class" ) + ( Name "pure" ) + ) ) + ( LiteralBool Nothing False :| [] ) ) - ] - ) - ( AppN Nothing - ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Control.Monad.Rec.Class" ) - ( Name "pure" ) - ) + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] ) - ( LiteralBool Nothing False :| [] ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] ) ) ) - ) - ( IfThenElse Nothing - ( Eq Nothing - ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Done" ) - ( ReflectCtor Nothing - ( Ref Nothing ( Local ( Name "v0$17" ) ) ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Done" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v0$17" ) ) ) + ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Monad.Rec.Class" ) - ( Name "pure" ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Rec.Class" ) + ( Name "pure" ) + ) ) + ( LiteralBool Nothing True :| [] ) ) - ( LiteralBool Nothing True :| [] ) + ( Exception Nothing "No patterns matched" ) ) - ( Exception Nothing "No patterns matched" ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) - ) + ) :| [] + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) ) :| [] ) ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) - ) - ] - ) - ( AppN Nothing + ] + ) ( AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "functorEffect" ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "functorEffect" ) + ) ) + ( PropName "map" ) + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Partial.Unsafe" ) + ( Name "foreign" ) + ) + ) + ( PropName "_unsafePartial" ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "v$9$20" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Done" ) + ( ReflectCtor Nothing + ( Ref Nothing ( Local ( Name "v$9$20" ) ) ) + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "v$9$20" ) ) ) + ( PropName "value0" ) + ) + ( Exception Nothing "No patterns matched" ) + ) + ) :| [] + ) :| [] ) - ( PropName "map" ) ) ( AppN Nothing ( ObjectProp ( Just Always ) ( Ref Nothing ( Imported - ( ModuleName "Partial.Unsafe" ) + ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) ) - ( PropName "_unsafePartial" ) + ( PropName "read" ) ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "v$9$20" ) :| [] ) + ( Ref Nothing ( Local ( Name "r$16" ) ) :| [] ) :| [] + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) + ) + ) + ) + ), + ( PropName "Monad0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) + ) + ) + ] + ) :| [] + ) + ( Let Nothing + ( Standalone + ( Nothing, Name "pure$536", ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonadRec$535" ) ) ) + ( PropName "Monad0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) :| [] + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b$537" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "n$538" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonadRec$535" ) ) ) + ( PropName "tailRecM" ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "o$483$539" ) :| [] ) + ( AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "acc$1$540", ObjectProp Nothing + ( Ref Nothing ( Local ( Name "o$483$539" ) ) ) + ( PropName "a" ) + ) :| [] + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "i$2$541" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "i$2$541" ) ) ) + ( Ref Nothing ( Local ( Name "n$538" ) ) ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) ( IfThenElse Nothing ( Eq Nothing - ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Done" ) - ( ReflectCtor Nothing - ( Ref Nothing ( Local ( Name "v$9$20" ) ) ) - ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Local ( Name "v$9$20" ) ) ) - ( PropName "value0" ) + ( Ref Nothing ( Local ( Name "i$2$541" ) ) ) + ( Ref Nothing ( Local ( Name "n$538" ) ) ) ) - ( Exception Nothing "No patterns matched" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) ) ) - ( PropName "read" ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "pure$536" ) ) ) + ( AppN Nothing + ( Ctor Nothing SumType + ( ModuleName "Control.Monad.Rec.Class" ) + ( TyName "Step" ) + ( CtorName "Loop" ) + [ FieldName "value0" ] + ) + ( LiteralObject Nothing + [ + ( PropName "a", AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.TailRecM2Shadow.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "acc$1$540" ) ) :| + [ Ref Nothing ( Local ( Name "i$2$541" ) ) ] + ) + ), + ( PropName "b", AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.TailRecM2Shadow.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "i$2$541" ) ) :| + [ LiteralInt Nothing 1 ] + ) + ) + ] :| [] + ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "pure$536" ) ) ) + ( AppN Nothing + ( Ctor Nothing SumType + ( ModuleName "Control.Monad.Rec.Class" ) + ( TyName "Step" ) + ( CtorName "Done" ) + [ FieldName "value0" ] + ) + ( Ref Nothing + ( Local ( Name "acc$1$540" ) ) :| [] + ) :| [] + ) + ) ) - ( Ref Nothing ( Local ( Name "r$16" ) ) :| [] ) :| [] ) ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "o$483$539" ) ) ) + ( PropName "b" ) :| [] ) - ) + ) :| [] ) ) - ) - ), - ( PropName "Monad0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) + ( LiteralObject Nothing + [ + ( PropName "a", Ref Nothing ( Local ( Name "b$537" ) ) ), + ( PropName "b", LiteralInt Nothing 0 ) + ] :| [] + ) ) ) - ] :| [] + ) ) ) ( LiteralInt Nothing 0 :| [] ) ) ( LiteralInt Nothing 5 :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [] ) ( AppN Nothing @@ -725,10 +826,459 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) - ( Ref Nothing ( Local ( Name "r$0" ) ) :| [] ) :| [] + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "dictMonadRec$535$543", LiteralObject Nothing + [ + ( PropName "tailRecM", AbsN Nothing + ( ParamNamed Nothing ( Name "f$11$544" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "a$12$545" ) :| [] ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "r$16$546", AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "bindEffect" ) + ) + ) + ( PropName "bind" ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "f$11$544" ) ) ) + ( Ref Nothing + ( Local ( Name "a$12$545" ) ) :| [] + ) :| [] + ) + ) + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "foreign" ) + ) + ) + ( PropName "_new" ) :| [] + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) :| + [ Standalone + ( Nothing, Name "_$547", AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "foreign" ) + ) + ) + ( PropName "untilE" ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "v0$17$548", AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "foreign" ) + ) + ) + ( PropName "read" ) + ) + ( Ref Nothing + ( Local ( Name "r$16$546" ) ) :| [] + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) :| [] + ) + ( AppN Nothing + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Loop" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Local ( Name "v0$17$548" ) ) + ) + ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "e$19$549", AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Local ( Name "f$11$544" ) ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Local ( Name "v0$17$548" ) ) + ) + ( PropName "value0" ) :| [] + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) :| + [ Standalone + ( Nothing, Name "_$550", AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "foreign" ) + ) + ) + ( PropName "write" ) + ) + ( Ref Nothing + ( Local + ( Name "e$19$549" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Local + ( Name "r$16$546" ) + ) :| [] + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) + ] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Rec.Class" ) + ( Name "pure" ) + ) + ) + ( LiteralBool Nothing False :| [] ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) + ) + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Done" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Local ( Name "v0$17$548" ) ) + ) + ) + ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Control.Monad.Rec.Class" ) + ( Name "pure" ) + ) + ) + ( LiteralBool Nothing True :| [] ) + ) + ( Exception Nothing "No patterns matched" ) + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) + ) :| [] + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) + ] + ) + ( AppN Nothing + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "functorEffect" ) + ) + ) + ( PropName "map" ) + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Partial.Unsafe" ) + ( Name "foreign" ) + ) + ) + ( PropName "_unsafePartial" ) + ) + ( AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing + ( Name "v$9$20$551" ) :| [] + ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Control.Monad.Rec.Class∷Step.Done" ) + ( ReflectCtor Nothing + ( Ref Nothing + ( Local ( Name "v$9$20$551" ) ) + ) + ) + ) + ( ObjectProp Nothing + ( Ref Nothing + ( Local ( Name "v$9$20$551" ) ) + ) + ( PropName "value0" ) + ) + ( Exception Nothing "No patterns matched" ) + ) + ) :| [] + ) :| [] + ) + ) + ( AppN Nothing + ( ObjectProp ( Just Always ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "foreign" ) + ) + ) + ( PropName "read" ) + ) + ( Ref Nothing + ( Local ( Name "r$16$546" ) ) :| [] + ) :| [] + ) + ) + ( Ref Nothing + ( Imported + ( ModuleName "Prim" ) + ( Name "$magicDoRun" ) + ) :| [] + ) + ) + ) + ) + ) + ), + ( PropName "Monad0", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Ref Nothing + ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) + ) + ) + ] + ) :| [] + ) + ( Let Nothing + ( Standalone + ( Nothing, Name "pure$536$552", ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonadRec$535$543" ) ) ) + ( PropName "Monad0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "Applicative0" ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] + ) + ) + ( PropName "pure" ) + ) :| [] + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "b$537$553" ) :| [] ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "n$538$554" ) :| [] ) + ( AppN Nothing + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictMonadRec$535$543" ) ) ) + ( PropName "tailRecM" ) + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "o$483$539$555" ) :| [] ) + ( AppN Nothing + ( Let Nothing + ( Standalone + ( Nothing, Name "acc$1$540$556", ObjectProp Nothing + ( Ref Nothing ( Local ( Name "o$483$539$555" ) ) ) + ( PropName "a" ) + ) :| [] + ) + ( AbsN Nothing + ( ParamNamed Nothing ( Name "i$2$541$557" ) :| [] ) + ( IfThenElse Nothing + ( Eq Nothing + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( IfThenElse Nothing + ( PrimBinOp Nothing PrimLt + ( Ref Nothing ( Local ( Name "i$2$541$557" ) ) ) + ( Ref Nothing ( Local ( Name "n$538$554" ) ) ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.LT" ) + ( IfThenElse Nothing + ( Eq Nothing + ( Ref Nothing + ( Local ( Name "i$2$541$557" ) ) + ) + ( Ref Nothing ( Local ( Name "n$538$554" ) ) ) + ) + ( LiteralString Nothing "Data.Ordering∷Ordering.EQ" ) + ( LiteralString Nothing "Data.Ordering∷Ordering.GT" ) + ) + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "pure$536$552" ) ) ) + ( AppN Nothing + ( Ctor Nothing SumType + ( ModuleName "Control.Monad.Rec.Class" ) + ( TyName "Step" ) + ( CtorName "Loop" ) + [ FieldName "value0" ] + ) + ( LiteralObject Nothing + [ + ( PropName "a", AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.TailRecM2Shadow.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "acc$1$540$556" ) ) :| + [ Ref Nothing + ( Local ( Name "i$2$541$557" ) ) + ] + ) + ), + ( PropName "b", AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.TailRecM2Shadow.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "i$2$541$557" ) ) :| + [ LiteralInt Nothing 1 ] + ) + ) + ] :| [] + ) :| [] + ) + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "pure$536$552" ) ) ) + ( AppN Nothing + ( Ctor Nothing SumType + ( ModuleName "Control.Monad.Rec.Class" ) + ( TyName "Step" ) + ( CtorName "Done" ) + [ FieldName "value0" ] + ) + ( Ref Nothing + ( Local ( Name "acc$1$540$556" ) ) :| [] + ) :| [] + ) + ) + ) + ) + ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "o$483$539$555" ) ) ) + ( PropName "b" ) :| [] + ) + ) :| [] + ) + ) + ( LiteralObject Nothing + [ + ( PropName "a", Ref Nothing ( Local ( Name "b$537$553" ) ) ), + ( PropName "b", LiteralInt Nothing 0 ) + ] :| [] + ) + ) + ) + ) + ) + ) + ( LiteralInt Nothing 0 :| [] ) + ) + ( LiteralInt Nothing 5 :| [] ) + ) + ( Ref Nothing + ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] + ) :| [] + ) :| [] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua index 14da18c8..0af81a50 100644 --- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua +++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua @@ -36,8 +36,6 @@ M.Partial_Unsafe_foreign = { _unsafePartial = function(f) return f() end } M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end M.Effect_monadEffect = { Applicative0 = function() return M.Effect_applicativeEffect end, Bind1 = function() return M.Effect_bindEffect end @@ -55,7 +53,7 @@ M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() map = function(f_S_239) return function(a_S_240) local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_239))(a_S_240) + return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_239))(a_S_240) end end } @@ -63,12 +61,12 @@ end) M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() return { apply = (function() - local bind_S_219 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) + local bind_S_219 = (M.Effect_monadEffect.Bind1()).bind return function(f_S_221) return function(a_S_222) return bind_S_219(f_S_221)(function(fPrime_S_223) return bind_S_219(a_S_222)(function(aPrime_S_224) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_223(aPrime_S_224)) + return (M.Effect_monadEffect.Applicative0()).pure(fPrime_S_223(aPrime_S_224)) end) end) end @@ -78,28 +76,27 @@ M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() } end) M.Effect_functorEffect = M.Effect_Lazy_functorEffect(0) -M.Control_Monad_Rec_Class_bind = M.Control_Bind_bind(M.Effect_bindEffect) -M.Control_Monad_Rec_Class_pure = M.Control_Applicative_pure(M.Effect_applicativeEffect) +M.Control_Monad_Rec_Class_pure = M.Effect_applicativeEffect.pure M.Golden_TailRecM2Shadow_Test_add_S_w = function(x_S_457_S_491, y_S_458_S_492) return x_S_457_S_491 + y_S_458_S_492 end M.Golden_TailRecM2Shadow_Test_sumFrom = function(dictMonadRec) - local pure = M.Control_Applicative_pure((dictMonadRec.Monad0()).Applicative0()) + local pure = ((dictMonadRec.Monad0()).Applicative0()).pure return function(b) return function(n) return dictMonadRec.tailRecM(function(o_S_483) return (function() local acc_S_1 = o_S_483.a return function(i_S_2) - if "Data.Ordering∷Ordering.LT" == ((function() + if "Data.Ordering∷Ordering.LT" == (function() if i_S_2 < n then - return { ["$ctor"] = "Data.Ordering∷Ordering.LT" } + return "Data.Ordering∷Ordering.LT" elseif i_S_2 == n then - return { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } + return "Data.Ordering∷Ordering.EQ" else - return { ["$ctor"] = "Data.Ordering∷Ordering.GT" } + return "Data.Ordering∷Ordering.GT" end - end)())["$ctor"] then + end)() then return pure((function(value0) return { ["$ctor"] = "Control.Monad.Rec.Class∷Step.Loop", @@ -124,41 +121,156 @@ M.Golden_TailRecM2Shadow_Test_sumFrom = function(dictMonadRec) end end return (function() - local r_S_0 = M.Golden_TailRecM2Shadow_Test_sumFrom({ - tailRecM = function(f_S_11) - return function(a_S_12) - return function() - local Effect_Ref_foreign = M.Effect_Ref_foreign - local r_S_16 = M.Control_Bind_bind(M.Effect_bindEffect)(f_S_11(a_S_12))(Effect_Ref_foreign._new)() - local _ = M.Effect_foreign.untilE(function() - local v0_S_17 = M.Effect_Ref_foreign.read(r_S_16)() - return (function() - if "Control.Monad.Rec.Class∷Step.Loop" == v0_S_17["$ctor"] then - return function() - local e_S_19 = f_S_11(v0_S_17.value0)() - local _ = M.Effect_Ref_foreign.write(e_S_19)(r_S_16)() - return M.Control_Monad_Rec_Class_pure(false)() + local r_S_0 = (function() + local dictMonadRec_S_535 = { + tailRecM = function(f_S_11) + return function(a_S_12) + return function() + local Effect_Ref_foreign = M.Effect_Ref_foreign + local r_S_16 = M.Effect_bindEffect.bind(f_S_11(a_S_12))(Effect_Ref_foreign._new)() + local _ = M.Effect_foreign.untilE(function() + local v0_S_17 = M.Effect_Ref_foreign.read(r_S_16)() + return (function() + if "Control.Monad.Rec.Class∷Step.Loop" == v0_S_17["$ctor"] then + return function() + local e_S_19 = f_S_11(v0_S_17.value0)() + local _ = M.Effect_Ref_foreign.write(e_S_19)(r_S_16)() + return M.Control_Monad_Rec_Class_pure(false)() + end + elseif "Control.Monad.Rec.Class∷Step.Done" == v0_S_17["$ctor"] then + return M.Control_Monad_Rec_Class_pure(true) + else + return error("No patterns matched") + end + end)()() + end)() + return M.Effect_functorEffect.map(M.Partial_Unsafe_foreign._unsafePartial(function( ) + return function(v_S_9_S_20) + if "Control.Monad.Rec.Class∷Step.Done" == v_S_9_S_20["$ctor"] then + return v_S_9_S_20.value0 + else + return error("No patterns matched") end - elseif "Control.Monad.Rec.Class∷Step.Done" == v0_S_17["$ctor"] then - return M.Control_Monad_Rec_Class_pure(true) - else - return error("No patterns matched") end - end)()() - end)() - return M.Effect_functorEffect.map(M.Partial_Unsafe_foreign._unsafePartial(function( ) - return function(v_S_9_S_20) - if "Control.Monad.Rec.Class∷Step.Done" == v_S_9_S_20["$ctor"] then - return v_S_9_S_20.value0 + end))(Effect_Ref_foreign.read(r_S_16))() + end + end + end, + Monad0 = function() return M.Effect_monadEffect end + } + local pure_S_536 = ((dictMonadRec_S_535.Monad0()).Applicative0()).pure + return function(b_S_537) + return function(n_S_538) + return dictMonadRec_S_535.tailRecM(function(o_S_483_S_539) + return (function() + local acc_S_1_S_540 = o_S_483_S_539.a + return function(i_S_2_S_541) + if "Data.Ordering∷Ordering.LT" == (function() + if i_S_2_S_541 < n_S_538 then + return "Data.Ordering∷Ordering.LT" + elseif i_S_2_S_541 == n_S_538 then + return "Data.Ordering∷Ordering.EQ" + else + return "Data.Ordering∷Ordering.GT" + end + end)() then + return pure_S_536((function(value0) + return { + ["$ctor"] = "Control.Monad.Rec.Class∷Step.Loop", + value0 = value0 + } + end)({ + a = M.Golden_TailRecM2Shadow_Test_add_S_w(acc_S_1_S_540, i_S_2_S_541), + b = M.Golden_TailRecM2Shadow_Test_add_S_w(i_S_2_S_541, 1) + })) else - return error("No patterns matched") + return pure_S_536((function(value0) + return { + ["$ctor"] = "Control.Monad.Rec.Class∷Step.Done", + value0 = value0 + } + end)(acc_S_1_S_540)) end end - end))(Effect_Ref_foreign.read(r_S_16))() + end)()(o_S_483_S_539.b) + end)({ a = b_S_537, b = 0 }) + end + end + end)()(0)(5)() + return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl((function( ) + local dictMonadRec_S_535_S_543 = { + tailRecM = function(f_S_11_S_544) + return function(a_S_12_S_545) + return function() + local Effect_Ref_foreign = M.Effect_Ref_foreign + local r_S_16_S_546 = M.Effect_bindEffect.bind(f_S_11_S_544(a_S_12_S_545))(Effect_Ref_foreign._new)() + local __S_547 = M.Effect_foreign.untilE(function() + local v0_S_17_S_548 = M.Effect_Ref_foreign.read(r_S_16_S_546)() + return (function() + if "Control.Monad.Rec.Class∷Step.Loop" == v0_S_17_S_548["$ctor"] then + return function() + local e_S_19_S_549 = f_S_11_S_544(v0_S_17_S_548.value0)() + local __S_550 = M.Effect_Ref_foreign.write(e_S_19_S_549)(r_S_16_S_546)() + return M.Control_Monad_Rec_Class_pure(false)() + end + elseif "Control.Monad.Rec.Class∷Step.Done" == v0_S_17_S_548["$ctor"] then + return M.Control_Monad_Rec_Class_pure(true) + else + return error("No patterns matched") + end + end)()() + end)() + return M.Effect_functorEffect.map(M.Partial_Unsafe_foreign._unsafePartial(function( ) + return function(v_S_9_S_20_S_551) + if "Control.Monad.Rec.Class∷Step.Done" == v_S_9_S_20_S_551["$ctor"] then + return v_S_9_S_20_S_551.value0 + else + return error("No patterns matched") + end + end + end))(Effect_Ref_foreign.read(r_S_16_S_546))() + end end + end, + Monad0 = function() return M.Effect_monadEffect end + } + local pure_S_536_S_552 = ((dictMonadRec_S_535_S_543.Monad0()).Applicative0()).pure + return function(b_S_537_S_553) + return function(n_S_538_S_554) + return dictMonadRec_S_535_S_543.tailRecM(function(o_S_483_S_539_S_555) + return (function() + local acc_S_1_S_540_S_556 = o_S_483_S_539_S_555.a + return function(i_S_2_S_541_S_557) + if "Data.Ordering∷Ordering.LT" == (function() + if i_S_2_S_541_S_557 < n_S_538_S_554 then + return "Data.Ordering∷Ordering.LT" + elseif i_S_2_S_541_S_557 == n_S_538_S_554 then + return "Data.Ordering∷Ordering.EQ" + else + return "Data.Ordering∷Ordering.GT" + end + end)() then + return pure_S_536_S_552((function(value0) + return { + ["$ctor"] = "Control.Monad.Rec.Class∷Step.Loop", + value0 = value0 + } + end)({ + a = M.Golden_TailRecM2Shadow_Test_add_S_w(acc_S_1_S_540_S_556, i_S_2_S_541_S_557), + b = M.Golden_TailRecM2Shadow_Test_add_S_w(i_S_2_S_541_S_557, 1) + })) + else + return pure_S_536_S_552((function(value0) + return { + ["$ctor"] = "Control.Monad.Rec.Class∷Step.Done", + value0 = value0 + } + end)(acc_S_1_S_540_S_556)) + end + end + end)()(o_S_483_S_539_S_555.b) + end)({ a = b_S_537_S_553, b = 0 }) end - end, - Monad0 = function() return M.Effect_monadEffect end - })(0)(5)() - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(r_S_0))() + end + end)()(0)(5)()))() end)() diff --git a/test/ps/output/Golden.Uncurry.Test/golden.ir b/test/ps/output/Golden.Uncurry.Test/golden.ir index 6358f1c1..4cefdebd 100644 --- a/test/ps/output/Golden.Uncurry.Test/golden.ir +++ b/test/ps/output/Golden.Uncurry.Test/golden.ir @@ -13,12 +13,6 @@ UberModule ( ModuleName "Data.Functor" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Functor.purs" [ ( Nothing, Name "arrayMap" ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" - }, ForeignImport Nothing - ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" - [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing @@ -35,225 +29,6 @@ UberModule ) ] ), Standalone - ( QName - { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Control.Bind", qnameName = Name "bind" }, AbsN Nothing - ( ParamNamed Nothing ( Name "dict" ) :| [] ) - ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "bind" ) ) - ), RecursiveGroup - ( - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect" - }, LiteralObject Nothing - [ - ( PropName "Applicative0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) - ), - ( PropName "Bind1", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) ) - ) - ] - ) :| - [ - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" - }, LiteralObject Nothing - [ - ( PropName "bind", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "bindE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" - }, LiteralObject Nothing - [ - ( PropName "pure", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) - ( PropName "pureE" ) - ), - ( PropName "Apply0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "functorEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "map", AbsN Nothing - ( ParamNamed Nothing ( Name "f$26" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$27" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) - ) - ( PropName "Apply0" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) - ) - ( PropName "apply" ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Control.Applicative" ) ( Name "pure" ) ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "applicativeEffect" ) - ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "f$26" ) ) :| [] ) :| [] - ) - ) - ( Ref Nothing ( Local ( Name "a$27" ) ) :| [] ) - ) - ) - ) - ] - ) :| [] - ) - ), - ( QName - { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect" - }, AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) ) - ( LiteralString Nothing "applyEffect" :| [] ) - ) - ( AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( LiteralObject Nothing - [ - ( PropName "apply", Let Nothing - ( Standalone - ( Nothing, Name "bind$5", AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) ) - ) - ( PropName "Bind1" ) - ) - ( Ref Nothing - ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] - ) :| [] - ) - ) :| [] - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f$7" ) :| [] ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a$8" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$5" ) ) ) - ( Ref Nothing ( Local ( Name "f$7" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "f'$9" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Local ( Name "bind$5" ) ) ) - ( Ref Nothing ( Local ( Name "a$8" ) ) :| [] ) - ) - ( AbsN Nothing - ( ParamNamed Nothing ( Name "a'$10" ) :| [] ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Control.Applicative" ) - ( Name "pure" ) - ) - ) - ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "monadEffect" ) - ) - ) - ( PropName "Applicative0" ) - ) - ( Ref Nothing - ( Imported - ( ModuleName "Prim" ) - ( Name "undefined" ) - ) :| [] - ) :| [] - ) - ) - ( AppN Nothing - ( Ref Nothing ( Local ( Name "f'$9" ) ) ) - ( Ref Nothing ( Local ( Name "a'$10" ) ) :| [] ) :| [] - ) - ) :| [] - ) - ) :| [] - ) - ) - ) - ) - ), - ( PropName "Functor0", AbsN Nothing - ( ParamUnused Nothing :| [] ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) - ) - ( LiteralInt Nothing 0 :| [] ) - ) - ) - ] - ) :| [] - ) - ) - ] - ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "logShow$w" }, AbsN Nothing @@ -264,9 +39,9 @@ UberModule ( PropName "log" ) ) ( AppN Nothing - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) - ( Ref Nothing ( Local ( Name "dictShow" ) ) :| [] ) + ( ObjectProp Nothing + ( Ref Nothing ( Local ( Name "dictShow" ) ) ) + ( PropName "show" ) ) ( Ref Nothing ( Local ( Name "a" ) ) :| [] ) :| [] ) @@ -302,24 +77,6 @@ UberModule ( Ref Nothing ( Local ( Name "y$188$214" ) ) ) ) ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "discard" - }, AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Control.Bind" ) ( Name "bind" ) ) ) - ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) :| [] ) - ), Standalone - ( QName - { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "logShow" - }, AbsN Nothing - ( ParamNamed Nothing ( Name "logShow$p2$231" ) :| [] ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| - [ Ref Nothing ( Local ( Name "logShow$p2$231" ) ) ] - ) - ) - ), Standalone ( QName { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "sumTo" }, AbsN Nothing @@ -520,12 +277,14 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "inc" - }, AppN Nothing + }, AbsN Nothing + ( ParamNamed Nothing ( Name "add3$p3$234" ) :| [] ) ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3" ) ) ) - ( LiteralInt Nothing 1 :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) ) + ( LiteralInt Nothing 1 :| + [ LiteralInt Nothing 0, Ref Nothing ( Local ( Name "add3$p3$234" ) ) ] + ) ) - ( LiteralInt Nothing 0 :| [] ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -576,62 +335,64 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) - ) - ( LiteralInt Nothing 1 :| [ LiteralInt Nothing 2, LiteralInt Nothing 3 ] ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) + ) + ( LiteralInt Nothing 1 :| [ LiteralInt Nothing 2, LiteralInt Nothing 3 ] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) :| [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) - ) - ( LiteralInt Nothing 4 :| [ LiteralInt Nothing 5, LiteralInt Nothing 6 ] ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) + ) + ( LiteralInt Nothing 4 :| [ LiteralInt Nothing 5, LiteralInt Nothing 6 ] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) - ) - ( LiteralInt Nothing 10 :| - [ LiteralInt Nothing 1, LiteralInt Nothing 2 ] - ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) + ) + ( LiteralInt Nothing 10 :| [ LiteralInt Nothing 1, LiteralInt Nothing 2 ] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "inc" ) ) - ) - ( LiteralInt Nothing 41 :| [] ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) + ) + ( LiteralInt Nothing 1 :| [ LiteralInt Nothing 0, LiteralInt Nothing 41 ] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing @@ -645,11 +406,11 @@ UberModule ) ( PropName "showArrayImpl" ) ) - ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) ) + ( ObjectProp Nothing ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [] - ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) + ) + ( PropName "showIntImpl" ) :| [] ) ) ] :| @@ -661,14 +422,16 @@ UberModule ) ( PropName "arrayMap" ) ) - ( AppN Nothing + ( AbsN Nothing + ( ParamNamed Nothing ( Name "add3$p3$247" ) :| [] ) ( AppN Nothing ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3" ) ) + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "add3$w" ) ) ) - ( LiteralInt Nothing 1 :| [] ) - ) - ( LiteralInt Nothing 2 :| [] ) :| [] + ( LiteralInt Nothing 1 :| + [ LiteralInt Nothing 2, Ref Nothing ( Local ( Name "add3$p3$247" ) ) ] + ) + ) :| [] ) ) ( LiteralArray Nothing @@ -677,125 +440,233 @@ UberModule ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "evenSteps$w" ) ) - ) - ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 10 ] ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "evenSteps$w" ) ) + ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 10 ] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "oddSteps$w" ) ) - ) - ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 7 ] ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "oddSteps$w" ) ) + ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 7 ] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "sumTo" ) ) - ) - ( LiteralInt Nothing 10 :| [] ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ Let Nothing + ( RecursiveGroup + ( + ( Nothing, Name "go$w$251", AbsN Nothing + ( ParamNamed Nothing + ( Name "acc$252" ) :| + [ ParamNamed Nothing ( Name "n$253" ) ] + ) + ( IfThenElse Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "eq$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "n$253" ) ) :| + [ LiteralInt Nothing 0 ] + ) + ) + ( Ref Nothing ( Local ( Name "acc$252" ) ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "go$w$251" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.Uncurry.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "acc$252" ) ) :| + [ Ref Nothing ( Local ( Name "n$253" ) ) ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.Uncurry.Test" ) + ( Name "sub$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "n$253" ) ) :| + [ LiteralInt Nothing 1 ] + ) + ] + ) + ) + ) + ) :| [] + ) :| [] + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "go$w$251" ) ) ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 10 ] ) + ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "sumTo" ) ) - ) - ( LiteralInt Nothing 100 :| [] ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ Let Nothing + ( RecursiveGroup + ( + ( Nothing, Name "go$w$256", AbsN Nothing + ( ParamNamed Nothing + ( Name "acc$257" ) :| + [ ParamNamed Nothing ( Name "n$258" ) ] + ) + ( IfThenElse Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "eq$w" ) ) + ) + ( Ref Nothing + ( Local ( Name "n$258" ) ) :| + [ LiteralInt Nothing 0 ] + ) + ) + ( Ref Nothing ( Local ( Name "acc$257" ) ) ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "go$w$256" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.Uncurry.Test" ) + ( Name "add$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "acc$257" ) ) :| + [ Ref Nothing ( Local ( Name "n$258" ) ) ] + ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.Uncurry.Test" ) + ( Name "sub$w" ) + ) + ) + ( Ref Nothing + ( Local ( Name "n$258" ) ) :| + [ LiteralInt Nothing 1 ] + ) + ] + ) + ) + ) + ) :| [] + ) :| [] + ) + ( AppN Nothing + ( Ref Nothing ( Local ( Name "go$w$256" ) ) ) + ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 100 ] ) + ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "adderOf$w" ) ) + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "adderOf$w" ) ) + ) + ( LiteralInt Nothing 1 :| [ LiteralInt Nothing 2 ] ) ) - ( LiteralInt Nothing 1 :| [ LiteralInt Nothing 2 ] ) - ) - ( LiteralInt Nothing 3 :| [] ) :| [] + ( LiteralInt Nothing 3 :| [] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "adderOf$w" ) ) + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "adderOf$w" ) ) + ) + ( LiteralInt Nothing 2 :| [ LiteralInt Nothing 3 ] ) ) - ( LiteralInt Nothing 2 :| [ LiteralInt Nothing 3 ] ) - ) - ( LiteralInt Nothing 4 :| [] ) :| [] + ( LiteralInt Nothing 4 :| [] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) - ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "alwaysFirst$w" ) ) - ) - ( LiteralInt Nothing 7 :| [ LiteralInt Nothing 8 ] ) :| [] + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "alwaysFirst$w" ) ) + ) + ( LiteralInt Nothing 7 :| [ LiteralInt Nothing 8 ] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ] ) ( AppN Nothing ( AppN Nothing - ( Ref Nothing ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "logShow" ) ) ) - ( AppN Nothing - ( Ref Nothing - ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "alwaysFirst$w" ) ) - ) - ( LiteralInt Nothing 9 :| [ LiteralInt Nothing 10 ] ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| + [ AppN Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "alwaysFirst$w" ) ) + ) + ( LiteralInt Nothing 9 :| [ LiteralInt Nothing 10 ] ) + ] ) ) - ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| [] ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.Uncurry.Test/golden.lua b/test/ps/output/Golden.Uncurry.Test/golden.lua index 0c8f1590..36724142 100644 --- a/test/ps/output/Golden.Uncurry.Test/golden.lua +++ b/test/ps/output/Golden.Uncurry.Test/golden.lua @@ -1,21 +1,3 @@ -local function PSLUA_runtime_lazy(name) - return function(init) - local state = 0 - local val = nil - return function() - if state == 2 then - return val - elseif state == 1 then - return error(name .. " was needed before it finished initializing") - else - state = 1 - val = init() - state = 2 - return val - end - end - end -end local M = {} M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end, @@ -38,60 +20,12 @@ M.Data_Functor_foreign = { end end } -M.Effect_foreign = { - pureE = function(a) return function() return a end end, - bindE = function(a) - return function(f) return function() return f(a())() end end - end -} M.Effect_Console_foreign = { log = function(s) return function() print(s) end end } M.Data_Show_showInt = { show = M.Data_Show_foreign.showIntImpl } -M.Data_Show_show = function(dict) return dict.show end -M.Control_Applicative_pure = function(dict) return dict.pure end -M.Control_Bind_bind = function(dict) return dict.bind end -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end -} -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end -} -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() - return { - map = function(f_S_26) - return function(a_S_27) - local Effect_applicativeEffect = M.Effect_applicativeEffect - return (Effect_applicativeEffect.Apply0()).apply(M.Control_Applicative_pure(Effect_applicativeEffect)(f_S_26))(a_S_27) - end - end - } -end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() - return { - apply = (function() - local bind_S_5 = M.Control_Bind_bind(M.Effect_monadEffect.Bind1()) - return function(f_S_7) - return function(a_S_8) - return bind_S_5(f_S_7)(function(fPrime_S_9) - return bind_S_5(a_S_8)(function(aPrime_S_10) - return M.Control_Applicative_pure(M.Effect_monadEffect.Applicative0())(fPrime_S_9(aPrime_S_10)) - end) - end) - end - end - end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end - } -end) M.Effect_Console_logShow_S_w = function(dictShow, a) - return M.Effect_Console_foreign.log(M.Data_Show_show(dictShow)(a)) + return M.Effect_Console_foreign.log(dictShow.show(a)) end M.Golden_Uncurry_Test_eq_S_w = function(r1_S_201_S_218, r2_S_202_S_219) return r1_S_201_S_218 == r2_S_202_S_219 @@ -102,10 +36,6 @@ end M.Golden_Uncurry_Test_sub_S_w = function(x_S_187_S_213, y_S_188_S_214) return x_S_187_S_213 - y_S_188_S_214 end -M.Golden_Uncurry_Test_discard = M.Control_Bind_bind(M.Effect_bindEffect) -M.Golden_Uncurry_Test_logShow = function(logShow_S_p2_S_231) - return M.Effect_Console_logShow_S_w(M.Data_Show_showInt, logShow_S_p2_S_231) -end M.Golden_Uncurry_Test_sumTo = function(m) local go_S_w go_S_w = function(acc, n) @@ -162,26 +92,52 @@ M.Golden_Uncurry_Test_add3 = function(add3_S_p1) end end end -M.Golden_Uncurry_Test_inc = M.Golden_Uncurry_Test_add3(1)(0) +M.Golden_Uncurry_Test_inc = function(add3_S_p3_S_234) + return M.Golden_Uncurry_Test_add3_S_w(1, 0, add3_S_p3_S_234) +end return (function() - local Golden_Uncurry_Test_logShow, Golden_Uncurry_Test_add3_S_w, Golden_Uncurry_Test_adderOf_S_w, Golden_Uncurry_Test_alwaysFirst_S_w, Golden_Uncurry_Test_sumTo = M.Golden_Uncurry_Test_logShow, M.Golden_Uncurry_Test_add3_S_w, M.Golden_Uncurry_Test_adderOf_S_w, M.Golden_Uncurry_Test_alwaysFirst_S_w, M.Golden_Uncurry_Test_sumTo - local _ = Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_add3_S_w(1, 2, 3))() - local _ = Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_add3_S_w(4, 5, 6))() - local _ = Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_add3_S_w(10, 1, 2))() - local _ = Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_inc(41))() - local _ = M.Effect_Console_logShow_S_w({ - show = M.Data_Show_foreign.showArrayImpl(M.Data_Show_show(M.Data_Show_showInt)) - }, M.Data_Functor_foreign.arrayMap(M.Golden_Uncurry_Test_add3(1)(2))({ - [1] = 1, - [2] = 2, - [3] = 3 - }))() - local _ = Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_evenSteps_S_w(0, 10))() - local _ = Golden_Uncurry_Test_logShow(M.Golden_Uncurry_Test_oddSteps_S_w(0, 7))() - local _ = Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_sumTo(10))() - local _ = Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_sumTo(100))() - local _ = Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_adderOf_S_w(1, 2)(3))() - local _ = Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_adderOf_S_w(2, 3)(4))() - local _ = Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_alwaysFirst_S_w(7, 8))() - return Golden_Uncurry_Test_logShow(Golden_Uncurry_Test_alwaysFirst_S_w(9, 10))() + local Effect_Console_logShow_S_w, Data_Show_showInt, Golden_Uncurry_Test_add3_S_w, Data_Show_foreign, Golden_Uncurry_Test_adderOf_S_w, Golden_Uncurry_Test_alwaysFirst_S_w = M.Effect_Console_logShow_S_w, M.Data_Show_showInt, M.Golden_Uncurry_Test_add3_S_w, M.Data_Show_foreign, M.Golden_Uncurry_Test_adderOf_S_w, M.Golden_Uncurry_Test_alwaysFirst_S_w + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(1, 2, 3))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(4, 5, 6))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(10, 1, 2))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(1, 0, 41))() + local _ = Effect_Console_logShow_S_w({ + show = Data_Show_foreign.showArrayImpl(Data_Show_foreign.showIntImpl) + }, M.Data_Functor_foreign.arrayMap(function(add3_S_p3_S_247) + return M.Golden_Uncurry_Test_add3_S_w(1, 2, add3_S_p3_S_247) + end)({ [1] = 1, [2] = 2, [3] = 3 }))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, M.Golden_Uncurry_Test_evenSteps_S_w(0, 10))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, M.Golden_Uncurry_Test_oddSteps_S_w(0, 7))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, (function() + local go_S_w_S_251 + go_S_w_S_251 = function(acc_S_252, n_S_253) + local Golden_Uncurry_Test_add_S_w, Golden_Uncurry_Test_eq_S_w, Golden_Uncurry_Test_sub_S_w = M.Golden_Uncurry_Test_add_S_w, M.Golden_Uncurry_Test_eq_S_w, M.Golden_Uncurry_Test_sub_S_w + while true do + if Golden_Uncurry_Test_eq_S_w(n_S_253, 0) then + return acc_S_252 + else + acc_S_252, n_S_253 = Golden_Uncurry_Test_add_S_w(acc_S_252, n_S_253), Golden_Uncurry_Test_sub_S_w(n_S_253, 1) + end + end + end + return go_S_w_S_251(0, 10) + end)())() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, (function() + local go_S_w_S_256 + go_S_w_S_256 = function(acc_S_257, n_S_258) + local Golden_Uncurry_Test_add_S_w, Golden_Uncurry_Test_eq_S_w, Golden_Uncurry_Test_sub_S_w = M.Golden_Uncurry_Test_add_S_w, M.Golden_Uncurry_Test_eq_S_w, M.Golden_Uncurry_Test_sub_S_w + while true do + if Golden_Uncurry_Test_eq_S_w(n_S_258, 0) then + return acc_S_257 + else + acc_S_257, n_S_258 = Golden_Uncurry_Test_add_S_w(acc_S_257, n_S_258), Golden_Uncurry_Test_sub_S_w(n_S_258, 1) + end + end + end + return go_S_w_S_256(0, 100) + end)())() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_adderOf_S_w(1, 2)(3))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_adderOf_S_w(2, 3)(4))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_alwaysFirst_S_w(7, 8))() + return Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_alwaysFirst_S_w(9, 10))() end)()