From 80a7c005cdb94e17fdc7f19d13daaa63b500191d Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Sun, 12 Jul 2026 18:48:41 +0200 Subject: [PATCH 1/3] fix(ir): keep a bare-Ref alias to an @inline always binding shared (#171) Dissolving the alias multiplied the Always target's use sites right before Always pasted its body into every one of them, duplicating the body (a lifted foreign's lambda, for example) across all alias use sites. The top-level inliner now declines the bare-Ref tier when the target carries @inline always, so the alias stays the single materialization point and the body pastes into it once. The top-level Always decision is also keyed by name (policyAlways) rather than the RHS root annotation, so a binding that merely received an always-annotated body during an earlier paste does not itself turn unconditionally inlinable one fixpoint round later; the local rules keep reading the root annotation. --- ...2_190000_unisay_alias_to_always_binding.md | 10 ++++ lib/Language/PureScript/Backend/IR/Inliner.hs | 7 ++- .../PureScript/Backend/IR/Optimizer.hs | 54 +++++++++++++++---- .../PureScript/Backend/IR/Optimizer/Spec.hs | 40 ++++++++++++++ 4 files changed, 99 insertions(+), 12 deletions(-) create mode 100644 changelog.d/20260712_190000_unisay_alias_to_always_binding.md diff --git a/changelog.d/20260712_190000_unisay_alias_to_always_binding.md b/changelog.d/20260712_190000_unisay_alias_to_always_binding.md new file mode 100644 index 00000000..91c9d147 --- /dev/null +++ b/changelog.d/20260712_190000_unisay_alias_to_always_binding.md @@ -0,0 +1,10 @@ +### Fixed + +- The top-level inliner keeps a bare-`Ref` alias to an `@inline always` + binding as the single materialization point instead of dissolving it: + substituting the alias multiplied the target's use sites right before + `Always` pasted its body into every one of them, duplicating the body + (a lifted foreign's lambda, for example) across all alias use sites. + The `Always` directive is now also consulted by name at the top level, + so a binding that merely received an always-annotated body during an + earlier paste no longer turns unconditionally inlinable itself (#171). diff --git a/lib/Language/PureScript/Backend/IR/Inliner.hs b/lib/Language/PureScript/Backend/IR/Inliner.hs index a04c9b3b..42cf0f49 100644 --- a/lib/Language/PureScript/Backend/IR/Inliner.hs +++ b/lib/Language/PureScript/Backend/IR/Inliner.hs @@ -64,7 +64,12 @@ stages: rewrites may strip an annotation off its node, so decisions key off names — and the optimizer consults the resulting policy: - * @Just Always@ on a root forces inlining ('isInlinableExpr'); + * @Just Always@ on a root forces inlining: the top-level inliner + consults it by name (@policyAlways@) and keeps a bare-Ref alias + to such a name as the single materialization point — dissolving + the alias would multiply the target's use sites right before + Always pastes its body into each (issue #171); the local rules + read the root annotation directly ('isInlinableExpr'); * @Never@ names are never pasted ('withBinding', the call-site rules, and the uncurry split all veto them); * @Arity n@ names are pasted exactly at call sites applying at diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs index 0a67a71b..b04b46e3 100644 --- a/lib/Language/PureScript/Backend/IR/Optimizer.hs +++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs @@ -357,7 +357,11 @@ annotations after optimization. See Note [Inline annotations and inlining heuristics]. -} data InlinePolicy = InlinePolicy - { policyNever ∷ Set QName + { policyAlways ∷ Set QName + {- ^ pasted at every use site; a bare-Ref alias to such a name is + never dissolved (issue #171) + -} + , policyNever ∷ Set QName -- ^ never pasted anywhere , policyArity ∷ Map QName Natural -- ^ pasted exactly at call sites applying at least N arguments @@ -382,6 +386,7 @@ collectInlinePolicy UberModule {uberModuleBindings, uberModuleForeigns} = fromBinding (qname, expr) = rootPolicy <> fieldsPolicy where rootPolicy = case getAnn expr of + Just Always → mempty {policyAlways = Set.singleton qname} Just Never → mempty {policyNever = Set.singleton qname} Just (Arity n) → mempty {policyArity = Map.singleton qname n} _ → mempty @@ -501,6 +506,27 @@ optimizeModule inlining policy UberModule {..} = runWriterT do qname `Set.member` policyNever policy || qname `Map.member` policyArity policy + -- The top-level counterpart of 'isInlinableExpr', diverging from it + -- twice (issue #171). The Always directive is consulted by name — + -- 'policyAlways', not the RHS root annotation, which an earlier paste + -- may have planted there: a binding that merely received an + -- always-annotated body must not itself turn unconditionally + -- inlinable. And a bare-Ref alias to an @inline always@ binding is + -- never dissolved: substituting it would multiply the target's use + -- sites right before Always pastes its body into every one of them, + -- destroying the alias that is the better materialization point on + -- both size and speed. The target's body pastes into the surviving + -- alias instead. + topLevelInlinable ∷ QName → Exp → Bool + topLevelInlinable qname expr = + qname `Set.member` policyAlways policy + || (isInlinableValue expr && not (aliasesAlwaysBinding expr)) + + aliasesAlwaysBinding ∷ Exp → Bool + aliasesAlwaysBinding = \case + Ref _ ref → maybe False (`Set.member` policyAlways policy) (refQName ref) + _ → False + -- 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 @@ -545,7 +571,7 @@ optimizeModule inlining policy UberModule {..} = runWriterT do if mayInlineWholeBinding && not (vetoedWholeBinding qname) && not (isForeignImport expr) - && (isInlinableExpr expr || isUsedOnce) + && (topLevelInlinable qname expr || isUsedOnce) then do -- The binding is dropped from the module in favor of the -- substituted copies: a rewrite even when it had no @@ -1703,9 +1729,21 @@ position. -- See Note [Inline annotations and inlining heuristics] -- and Note [Complexity and Capture gate inlining] isInlinableExpr ∷ Exp → Bool -isInlinableExpr expr = - hasInlineAnnotation expr - || isRef expr +isInlinableExpr expr = hasInlineAnnotation expr || isInlinableValue expr + where + hasInlineAnnotation ∷ Exp → Bool + hasInlineAnnotation = + getAnn >>> \case + Just Always → True + _ → False + +{- | The structural tiers of 'isInlinableExpr' — everything but the +Always annotation, which the top-level inliner consults by name instead +(see 'InlinePolicy' and issue #171). +-} +isInlinableValue ∷ Exp → Bool +isInlinableValue expr = + isRef expr || isNonRecursiveLiteral expr || isCheapProjection expr where @@ -1714,12 +1752,6 @@ isInlinableExpr expr = Ref {} → True _ → False - hasInlineAnnotation ∷ Exp → Bool - hasInlineAnnotation = - getAnn >>> \case - Just Always → True - _ → False - -- The Deref tier. The explicit disjuncts above are subsumed for the -- shapes they share (a Ref, a short scalar), but kept: they also admit -- what the tier prices differently (a long string literal). diff --git a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs index 92644340..c4f665a4 100644 --- a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs @@ -927,6 +927,46 @@ spec = describe "IR Optimizer" do annotateShow optimized fooKept === [QName mainModule (Name "foo")] + describe "keeps a bare-Ref alias to an @inline always binding (#171)" do + test "the alias stays the single materialization point" do + let semiringModule = moduleNameFromString "Data.Semiring" + mainModule = moduleNameFromString "Main" + intAddName = QName semiringModule (Name "intAdd") + addName = QName mainModule (Name "add") + -- The shape ForeignLift gives a lifted foreign: a lambda marked + -- @inline always@ so its call sites beta-reduce. Unary, so the + -- uncurry split leaves it alone and the test sees only the + -- alias interaction. + liftedIntAdd = + setAnn (Just Always) . abstraction (paramNamed (Name "x")) $ + primBinOp PrimAdd (refLocal (Name "x")) (refLocal (Name "x")) + original = + Linker.UberModule + { uberModuleForeigns = [] + , uberModuleBindings = + [ Standalone (intAddName, liftedIntAdd) + , Standalone + (addName, refImported semiringModule (Name "intAdd")) + ] + , uberModuleExports = + [ (Name "main1", refImported mainModule (Name "add")) + , (Name "main2", refImported mainModule (Name "add")) + ] + } + optimized ← + either (fail . show) pure (optimizedUberModuleChecked original) + annotateShow optimized + -- Dissolving the alias would take the Always target's use sites + -- from one to two right before Always pastes its body into every + -- one of them. Instead the alias survives — the body materializes + -- once, in the alias — and both exports keep referencing it. + [qn | Standalone (qn, _) ← Linker.uberModuleBindings optimized] + === [addName] + Linker.uberModuleExports optimized + === [ (Name "main1", refImported mainModule (Name "add")) + , (Name "main2", refImported mainModule (Name "add")) + ] + describe "gates inlining by Complexity and Capture (issue #231)" do let main' = moduleNameFromString "Main" ext = moduleNameFromString "Ext" From da99d6d50bda8964ad30229122166c0c181008bb Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Sun, 12 Jul 2026 21:18:21 +0200 Subject: [PATCH 2/3] test(ps): repoint the golden set at psc-0.15.15-20260712-2 The set release picks up prelude v7.3.1, which flips `@inline unit` from `always` to `never` so the `unit = {}` foreign singleton is pinned to one shared binding instead of being pasted per use site (purescript-lua/purescript-lua#176). Only the prelude fork moved in this release. Refs #176 --- test/ps/spago.lock | 6 +++--- test/ps/spago.yaml | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/test/ps/spago.lock b/test/ps/spago.lock index 9b0bfca1..cbab19a1 100644 --- a/test/ps/spago.lock +++ b/test/ps/spago.lock @@ -32,7 +32,7 @@ }, "package_set": { "address": { - "url": "https://github.com/purescript-lua/purescript-lua-package-sets/releases/download/psc-0.15.15-20260712/packages.json" + "url": "https://github.com/purescript-lua/purescript-lua-package-sets/releases/download/psc-0.15.15-20260712-2/packages.json" }, "compiler": ">=0.15.15 <0.16.0", "content": { @@ -537,7 +537,7 @@ "precise-datetime": "7.0.0", "prelude": { "git": "https://github.com/purescript-lua/purescript-lua-prelude.git", - "ref": "v7.3.0", + "ref": "v7.3.1", "dependencies": [] }, "prettier-printer": "3.0.0", @@ -1163,7 +1163,7 @@ "prelude": { "type": "git", "url": "https://github.com/purescript-lua/purescript-lua-prelude.git", - "rev": "26c058c2a053cf4dd7240f0d822ec096c0fecbe1", + "rev": "5718c84fdde6247749cb053e816df696c30fe691", "dependencies": [] }, "profunctor": { diff --git a/test/ps/spago.yaml b/test/ps/spago.yaml index 3effd5da..6d6ff547 100644 --- a/test/ps/spago.yaml +++ b/test/ps/spago.yaml @@ -39,4 +39,4 @@ workspace: backend: cmd: "true" packageSet: - url: https://github.com/purescript-lua/purescript-lua-package-sets/releases/download/psc-0.15.15-20260712/packages.json + url: https://github.com/purescript-lua/purescript-lua-package-sets/releases/download/psc-0.15.15-20260712-2/packages.json From 012ff8b4b040b850dcfb8af987851beb471df6ac Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Sun, 12 Jul 2026 21:18:31 +0200 Subject: [PATCH 3/3] test(golden): accept unit sharing shape from prelude v7.3.1 With `@inline unit never`, the `Data_Unit_foreign.unit` accessor is no longer folded into each use site; it becomes a single shared binding (`local Data_Unit_unit = Data_Unit_foreign.unit`) that call sites reference by name. Ten golden.lua move to this shape; the linked output still holds exactly one `{}` for unit (the one inside the hoisted foreign table), and every eval/golden.txt oracle is byte-identical, so runtime behaviour is unchanged. The remaining golden.ir churn is the prelude source path moving to the v7.3.1 commit. Refs #176 --- .../output/Golden.ArrayOfUnits.Test/golden.ir | 28 +- .../Golden.ArrayOfUnits.Test/golden.lua | 9 +- .../Golden.ArrayPatternMatch.Test/golden.ir | 2 +- .../Golden.BugListGenericEq.Test/golden.ir | 2 +- .../output/Golden.CharLiterals.Test/golden.ir | 2 +- .../Golden.DerivedFunctor.Test/golden.ir | 2 +- .../Golden.DirectiveAccessor.Test/golden.ir | 2 +- .../Golden.DirectiveArity.Test/golden.ir | 2 +- .../ps/output/Golden.Fibonacci.Test/golden.ir | 2 +- .../output/Golden.FieldCaching.Test/golden.ir | 2 +- test/ps/output/Golden.FloatIn.Test/golden.ir | 22 +- test/ps/output/Golden.FloatIn.Test/golden.lua | 3 +- .../golden.ir | 2 +- .../Golden.GenericEqTwoTypes.Test/golden.ir | 2 +- .../output/Golden.HelloPrelude.Test/golden.ir | 15 +- .../Golden.HelloPrelude.Test/golden.lua | 3 +- test/ps/output/Golden.Issue37.Test/golden.ir | 20 +- test/ps/output/Golden.Issue37.Test/golden.lua | 5 +- .../Golden.LongApplyChain.Test/golden.ir | 2 +- .../Golden.LongBindFlipped.Test/golden.ir | 2 +- .../Golden.LongCallbackChain.Test/golden.ir | 2 +- .../Golden.LongEitherBind.Test/golden.ir | 2 +- .../Golden.LongExceptBind.Test/golden.ir | 2 +- .../Golden.LongMaybeBind.Test/golden.ir | 51 +- .../Golden.LongMaybeBind.Test/golden.lua | 7 +- .../Golden.LongMaybeBindModule.Test/golden.ir | 49 +- .../golden.lua | 7 +- .../Golden.LongReaderBind.Test/golden.ir | 2 +- .../Golden.LongStackBind.Test/golden.ir | 1896 +++++-------- .../Golden.LongStackBind.Test/golden.lua | 301 +- .../Golden.LongStateBind.Test/golden.ir | 1869 +++++-------- .../Golden.LongStateBind.Test/golden.lua | 301 +- .../Golden.LongWriterBind.Test/golden.ir | 2451 +++++++---------- .../Golden.LongWriterBind.Test/golden.lua | 401 +-- .../Golden.Loopification.Test/golden.ir | 2 +- .../output/Golden.MaybeChain.Test/golden.ir | 2 +- .../output/Golden.NumberIsNaN.Test/golden.ir | 2 +- test/ps/output/Golden.Primops.Test/golden.ir | 2 +- .../Golden.ProfunctorDictLens.Test/golden.ir | 2 +- .../Golden.RecGroupOrder.Test/golden.ir | 15 +- .../Golden.RecGroupOrder.Test/golden.lua | 3 +- .../Golden.StringCodePoints.Test/golden.ir | 8 +- .../Golden.TailRecM2Shadow.Test/golden.ir | 2 +- .../Golden.UncurriedLift.Test/golden.ir | 2 +- test/ps/output/Golden.Uncurry.Test/golden.ir | 4 +- 45 files changed, 3037 insertions(+), 4477 deletions(-) diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir index f7451314..46719d9f 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir @@ -4,13 +4,19 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName @@ -310,13 +316,10 @@ UberModule ( Name "main", Let Nothing ( Standalone ( Nothing, Name "arr$0", LiteralArray Nothing - [ ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ), ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ), ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) + [ Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ), Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ), Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) ] ) :| [] ) @@ -421,9 +424,8 @@ UberModule ) ( PropName "pure" ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) :| [] ) ) diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua index dbaf93f1..a21beadf 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua @@ -17,6 +17,7 @@ local function PSLUA_runtime_lazy(name) end end local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } local Data_Foldable_foreign = { foldrArray = function(f) @@ -109,9 +110,9 @@ local Effect_Console_logShow_S_w = function(dictShow, a) end return (function() local arr_S_0 = { - [1] = Data_Unit_foreign.unit, - [2] = Data_Unit_foreign.unit, - [3] = Data_Unit_foreign.unit + [1] = Data_Unit_unit, + [2] = Data_Unit_unit, + [3] = Data_Unit_unit } return function() local _ = Data_Foldable_foldableArray.foldr(function(x_S_940) @@ -127,7 +128,7 @@ return (function() end)()(Effect_Console_logShow_S_w({ show = function() return "unit" end }, x_S_940)) - end)(Effect_applicativeEffect.pure(Data_Unit_foreign.unit))(arr_S_0)() + end)(Effect_applicativeEffect.pure(Data_Unit_unit))(arr_S_0)() return Effect_Console_logShow_S_w({ show = Data_Show_foreign.showIntImpl }, Data_Foldable_foldableArray.foldl(function(c_S_372_S_914) diff --git a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir index fbc13768..9358ba00 100644 --- a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir +++ b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir index 3083d78d..4c1bbb16 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Record.Unsafe", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Record.Unsafe" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Record/Unsafe.purs" + ( ModuleName "Record.Unsafe" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Record/Unsafe.purs" [ ( Nothing, Name "unsafeGet" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.CharLiterals.Test/golden.ir b/test/ps/output/Golden.CharLiterals.Test/golden.ir index 67436abd..b65b00b7 100644 --- a/test/ps/output/Golden.CharLiterals.Test/golden.ir +++ b/test/ps/output/Golden.CharLiterals.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showCharImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir index 3513d23d..73779488 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir b/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir index eb25b1ab..f85d680b 100644 --- a/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir +++ b/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.DirectiveArity.Test/golden.ir b/test/ps/output/Golden.DirectiveArity.Test/golden.ir index f72ead2e..a95fcd37 100644 --- a/test/ps/output/Golden.DirectiveArity.Test/golden.ir +++ b/test/ps/output/Golden.DirectiveArity.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.Fibonacci.Test/golden.ir b/test/ps/output/Golden.Fibonacci.Test/golden.ir index bcee986c..6d1b3d5a 100644 --- a/test/ps/output/Golden.Fibonacci.Test/golden.ir +++ b/test/ps/output/Golden.Fibonacci.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.FieldCaching.Test/golden.ir b/test/ps/output/Golden.FieldCaching.Test/golden.ir index a48e5c57..5fb1ca4f 100644 --- a/test/ps/output/Golden.FieldCaching.Test/golden.ir +++ b/test/ps/output/Golden.FieldCaching.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.FloatIn.Test/golden.ir b/test/ps/output/Golden.FloatIn.Test/golden.ir index 9178c0fb..e71976a0 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.ir +++ b/test/ps/output/Golden.FloatIn.Test/golden.ir @@ -4,13 +4,19 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName @@ -69,17 +75,11 @@ UberModule ( PrimBinOp Nothing PrimAdd ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing ( Ref Nothing ( Local ( Name "f" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ) ) diff --git a/test/ps/output/Golden.FloatIn.Test/golden.lua b/test/ps/output/Golden.FloatIn.Test/golden.lua index 87aa0556..327e8b12 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.lua +++ b/test/ps/output/Golden.FloatIn.Test/golden.lua @@ -1,5 +1,6 @@ local M = {} local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Effect_Console_foreign = { @@ -14,7 +15,7 @@ local Golden_FloatIn_Test_pickShared_S_w = function(useIt, n) if useIt then local shared = Golden_FloatIn_Test_tick(n) local f = function() return shared + shared end - return f(Data_Unit_foreign.unit) + f(Data_Unit_foreign.unit) + return f(Data_Unit_unit) + f(Data_Unit_unit) else return 0 end diff --git a/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.ir b/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.ir index edc1f065..f23752db 100644 --- a/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.ir +++ b/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir index b0f15c0a..1da8b6da 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Record.Unsafe", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Record.Unsafe" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Record/Unsafe.purs" + ( ModuleName "Record.Unsafe" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Record/Unsafe.purs" [ ( Nothing, Name "unsafeGet" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.HelloPrelude.Test/golden.ir b/test/ps/output/Golden.HelloPrelude.Test/golden.ir index 03ea1cb6..811ac87e 100644 --- a/test/ps/output/Golden.HelloPrelude.Test/golden.ir +++ b/test/ps/output/Golden.HelloPrelude.Test/golden.ir @@ -4,8 +4,14 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" @@ -213,10 +219,7 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ( PropName "pure" ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ] } \ No newline at end of file diff --git a/test/ps/output/Golden.HelloPrelude.Test/golden.lua b/test/ps/output/Golden.HelloPrelude.Test/golden.lua index c696beca..d5dc3231 100644 --- a/test/ps/output/Golden.HelloPrelude.Test/golden.lua +++ b/test/ps/output/Golden.HelloPrelude.Test/golden.lua @@ -17,6 +17,7 @@ local function PSLUA_runtime_lazy(name) end end local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Effect_foreign = { pureE = function(a) return function() return a end end, bindE = function(a) @@ -64,4 +65,4 @@ Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() Functor0 = function() return Effect_Lazy_functorEffect(0) end } end) -return { main = Effect_applicativeEffect.pure(Data_Unit_foreign.unit) } +return { main = Effect_applicativeEffect.pure(Data_Unit_unit) } diff --git a/test/ps/output/Golden.Issue37.Test/golden.ir b/test/ps/output/Golden.Issue37.Test/golden.ir index ebdbeab0..fe625d3a 100644 --- a/test/ps/output/Golden.Issue37.Test/golden.ir +++ b/test/ps/output/Golden.Issue37.Test/golden.ir @@ -4,8 +4,14 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign" @@ -317,10 +323,7 @@ UberModule ( ParamUnused Nothing :| [] ) ( AppN Nothing ( Ref Nothing ( Local ( Name "pure$4" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) :| [] ) ) :| [] @@ -333,10 +336,7 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) ) ( PropName "pure" ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) :| [] ) ) ] diff --git a/test/ps/output/Golden.Issue37.Test/golden.lua b/test/ps/output/Golden.Issue37.Test/golden.lua index 5b1080b4..318ebde8 100644 --- a/test/ps/output/Golden.Issue37.Test/golden.lua +++ b/test/ps/output/Golden.Issue37.Test/golden.lua @@ -17,6 +17,7 @@ local function PSLUA_runtime_lazy(name) end end local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Effect_foreign = { pureE = function(a) return function() return a end end, bindE = function(a) @@ -83,8 +84,8 @@ return { end) end end)()(f_S_6) - }))(function() return pure_S_4(Data_Unit_foreign.unit) end) + }))(function() return pure_S_4(Data_Unit_unit) end) end) end - end)()(Effect_applicativeEffect.pure(Data_Unit_foreign.unit)) + end)()(Effect_applicativeEffect.pure(Data_Unit_unit)) } diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.ir b/test/ps/output/Golden.LongApplyChain.Test/golden.ir index 891d1d46..9c60b197 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.ir +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir index 040111e3..e75b46ad 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir index 6616aecc..717c5b82 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.LongEitherBind.Test/golden.ir b/test/ps/output/Golden.LongEitherBind.Test/golden.ir index 1e3e1792..e7813dea 100644 --- a/test/ps/output/Golden.LongEitherBind.Test/golden.ir +++ b/test/ps/output/Golden.LongEitherBind.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ), ( Nothing, Name "showStringImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.ir b/test/ps/output/Golden.LongExceptBind.Test/golden.ir index 687b484e..af25fa7e 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.ir +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ), ( Nothing, Name "showStringImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir index e7882272..fa29e2e3 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir @@ -4,13 +4,19 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName @@ -1203,14 +1209,11 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) :| [ AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -5920,14 +5923,11 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) :| [ AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -7975,14 +7975,11 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) :| [ AbsN Nothing ( ParamUnused Nothing :| [] ) diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua index c783cac0..c65fdab1 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua @@ -1,4 +1,5 @@ local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } local Effect_Console_foreign = { log = function(s) return function() print(s) end end @@ -87,7 +88,7 @@ local Golden_LongMaybeBind_Test_compute = (function() return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x247, 1)), function( x248 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x248, 1)), function( x249 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x249, 1)), function( x250 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x250, 1)), function( x251 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x251, 1)), function( x252 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x252, 1)), function( x253 ) @@ -361,7 +362,7 @@ local Golden_LongMaybeBind_Test_compute = (function() return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x147, 1)), function( x148 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x148, 1)), function( x149 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x149, 1)), function( x150 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x150, 1)), function( x151 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x151, 1)), function( x152 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x152, 1)), function( x153 ) @@ -510,7 +511,7 @@ local Golden_LongMaybeBind_Test_compute = (function() return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x47, 1)), function( x48 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x48, 1)), function( x49 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x49, 1)), function( x50 ) - return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x50, 1)), function( x51 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x51, 1)), function( x52 ) return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x52, 1)), function( x53 ) diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir index 15e56775..a708887f 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir @@ -4,8 +4,14 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "Just" @@ -1199,14 +1205,11 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) :| [ AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -5940,14 +5943,11 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) :| [ AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -8017,14 +8017,11 @@ UberModule ( Name "Just" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) :| [ AbsN Nothing ( ParamUnused Nothing :| [] ) diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua index 6790f468..19f122a4 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua @@ -1,4 +1,5 @@ local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Data_Maybe_Just = function(value0) return { "Data.Maybe∷Maybe.Just", value0 } end @@ -82,7 +83,7 @@ return { return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x247_S_246, 1)), function( x248_S_247 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x248_S_247, 1)), function( x249_S_248 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x249_S_248, 1)), function( x250_S_249 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x250_S_249, 1)), function( x251_S_250 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x251_S_250, 1)), function( x252_S_251 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x252_S_251, 1)), function( x253_S_252 ) @@ -356,7 +357,7 @@ return { return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x147_S_146, 1)), function( x148_S_147 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x148_S_147, 1)), function( x149_S_148 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x149_S_148, 1)), function( x150_S_149 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x150_S_149, 1)), function( x151_S_150 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x151_S_150, 1)), function( x152_S_151 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x152_S_151, 1)), function( x153_S_152 ) @@ -505,7 +506,7 @@ return { return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x47_S_46, 1)), function( x48_S_47 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x48_S_47, 1)), function( x49_S_48 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x49_S_48, 1)), function( x50_S_49 ) - return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_unit), function( ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x50_S_49, 1)), function( x51_S_50 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x51_S_50, 1)), function( x52_S_51 ) return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x52_S_51, 1)), function( x53_S_52 ) diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.ir b/test/ps/output/Golden.LongReaderBind.Test/golden.ir index 9b55ef54..ed6fe7cf 100644 --- a/test/ps/output/Golden.LongReaderBind.Test/golden.ir +++ b/test/ps/output/Golden.LongReaderBind.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.ir b/test/ps/output/Golden.LongStackBind.Test/golden.ir index 09467669..f5f6b7fc 100644 --- a/test/ps/output/Golden.LongStackBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStackBind.Test/golden.ir @@ -4,13 +4,19 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ), ( Nothing, Name "showStringImpl" ) ] ), Standalone ( QName @@ -893,11 +899,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -965,11 +968,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -1046,14 +1046,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1130,14 +1127,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1214,14 +1208,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1300,14 +1291,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1386,14 +1374,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1474,14 +1459,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1562,14 +1544,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1650,14 +1629,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1823,11 +1799,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -1898,11 +1871,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1979,14 +1952,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2063,14 +2033,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2147,14 +2114,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2233,14 +2197,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2321,14 +2282,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2409,14 +2367,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2497,14 +2452,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2585,14 +2537,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2673,14 +2622,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2761,14 +2707,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2849,14 +2792,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2937,14 +2877,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3025,14 +2962,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3113,14 +3047,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3201,14 +3132,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3289,14 +3217,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3377,14 +3302,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3465,14 +3387,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3631,11 +3550,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -3706,11 +3622,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3787,14 +3703,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3871,17 +3784,14 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) - ) - ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) + ) + ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) @@ -3955,14 +3865,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4041,14 +3948,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4129,14 +4033,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4217,14 +4118,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4305,14 +4203,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4393,14 +4288,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4481,14 +4373,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4569,14 +4458,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4657,14 +4543,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4745,14 +4628,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4833,14 +4713,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4921,14 +4798,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5009,14 +4883,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5097,14 +4968,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5185,14 +5053,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5273,14 +5138,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5439,11 +5301,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -5514,11 +5373,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5595,14 +5454,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5679,14 +5535,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5763,14 +5616,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5849,14 +5699,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5935,14 +5782,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6023,14 +5867,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6111,14 +5952,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6199,14 +6037,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6287,14 +6122,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6375,14 +6207,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6463,14 +6292,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6551,14 +6377,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6639,14 +6462,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6727,14 +6547,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6815,14 +6632,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6903,14 +6717,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6991,14 +6802,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7079,14 +6887,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7245,11 +7050,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -7320,11 +7122,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7401,14 +7203,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7485,14 +7284,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7569,14 +7365,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7655,14 +7448,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7741,14 +7531,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7829,14 +7616,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7917,14 +7701,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8005,14 +7786,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8093,14 +7871,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8181,14 +7956,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8269,14 +8041,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8357,14 +8126,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8441,18 +8207,15 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported - ( ModuleName "Data.Tuple" ) - ( Name "Tuple" ) - ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) + ( ModuleName "Data.Tuple" ) + ( Name "Tuple" ) ) - ( PropName "unit" ) :| [] + ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8533,14 +8296,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8621,14 +8381,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8709,14 +8466,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8797,14 +8551,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8885,14 +8636,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9051,11 +8799,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -9126,11 +8871,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9207,14 +8952,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9291,14 +9033,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9375,14 +9114,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9461,14 +9197,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9547,14 +9280,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9635,14 +9365,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9723,14 +9450,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9811,14 +9535,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9899,14 +9620,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9987,14 +9705,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10075,14 +9790,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10163,14 +9875,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10251,14 +9960,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10339,14 +10045,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10427,14 +10130,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10515,14 +10215,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10603,14 +10300,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10691,14 +10385,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10857,11 +10548,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -10932,11 +10620,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11013,14 +10701,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11097,14 +10782,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11181,14 +10863,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11267,14 +10946,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11353,14 +11029,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11441,14 +11114,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11529,14 +11199,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11617,14 +11284,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11705,14 +11369,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11793,14 +11454,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11881,14 +11539,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -11969,14 +11624,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12057,14 +11709,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12145,14 +11794,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12233,14 +11879,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12321,14 +11964,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12409,14 +12049,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12497,14 +12134,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12659,11 +12293,8 @@ UberModule ( 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 + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -12719,11 +12350,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -12797,14 +12425,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12881,14 +12506,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -12965,14 +12587,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13049,14 +12668,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13135,14 +12751,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13223,14 +12836,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13311,14 +12921,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13399,14 +13006,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13487,14 +13091,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13575,14 +13176,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13663,14 +13261,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13751,14 +13346,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13839,14 +13431,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -13927,14 +13516,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -14015,14 +13601,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -14103,14 +13686,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -14191,14 +13771,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -14279,14 +13856,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.lua b/test/ps/output/Golden.LongStackBind.Test/golden.lua index e0e8a0b5..5c228b3c 100644 --- a/test/ps/output/Golden.LongStackBind.Test/golden.lua +++ b/test/ps/output/Golden.LongStackBind.Test/golden.lua @@ -1,4 +1,5 @@ local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end, showStringImpl = function(s) @@ -241,43 +242,43 @@ local Golden_LongStackBind_Test_go = (function() local _S_kont1882 = function(x1_S_1883) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x141 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x141, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x141, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x142 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x142, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x142, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x143 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x143, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x143, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x144 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x144, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x144, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x145 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x145, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x145, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x146 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x146, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x146, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x147 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x147, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x147, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x148 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x148, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x148, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x149 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x149, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x149, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x150 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x150, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x150, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( final ) return (Control_Monad_State_Trans_applicativeStateT(Golden_LongStackBind_Test_monadExceptT)).pure(Golden_LongStackBind_Test_add_S_w(x1_S_1883, final)) @@ -306,83 +307,83 @@ local Golden_LongStackBind_Test_go = (function() local _S_kont1884 = function(x1_S_1885) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x121 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x121, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x121, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x122 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x122, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x122, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x123 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x123, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x123, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x124 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x124, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x124, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x125 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x125, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x125, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x126 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x126, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x126, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x127 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x127, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x127, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x128 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x128, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x128, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x129 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x129, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x129, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x130 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x130, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x130, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x131 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x131, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x131, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x132 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x132, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x132, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x133 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x133, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x133, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x134 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x134, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x134, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x135 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x135, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x135, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x136 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x136, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x136, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x137 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x137, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x137, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x138 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x138, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x138, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x139 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x139, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x139, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x140 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x140, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x140, 1))) end)(function( ) return _S_kont1882(x1_S_1885) end) @@ -429,83 +430,83 @@ local Golden_LongStackBind_Test_go = (function() local _S_kont1886 = function(x1_S_1887) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x101 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x101, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x101, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x102 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x102, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x102, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x103 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x103, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x103, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x104 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x104, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x104, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x105 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x105, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x105, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x106 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x106, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x106, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x107 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x107, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x107, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x108 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x108, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x108, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x109 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x109, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x109, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x110 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x110, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x110, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x111 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x111, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x111, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x112 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x112, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x112, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x113 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x113, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x113, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x114 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x114, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x114, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x115 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x115, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x115, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x116 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x116, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x116, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x117 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x117, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x117, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x118 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x118, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x118, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x119 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x119, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x119, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x120 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x120, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x120, 1))) end)(function( ) return _S_kont1884(x1_S_1887) end) @@ -552,83 +553,83 @@ local Golden_LongStackBind_Test_go = (function() local _S_kont1888 = function(x1_S_1889) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x81 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x81, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x81, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x82 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x82, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x82, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x83 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x83, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x83, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x84 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x84, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x84, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x85 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x85, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x85, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x86 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x86, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x86, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x87 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x87, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x87, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x88 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x88, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x88, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x89 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x89, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x89, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x90 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x90, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x90, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x91 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x91, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x91, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x92 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x92, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x92, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x93 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x93, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x93, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x94 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x94, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x94, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x95 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x95, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x95, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x96 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x96, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x96, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x97 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x97, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x97, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x98 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x98, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x98, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x99 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x99, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x99, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x100 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x100, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x100, 1))) end)(function( ) return _S_kont1886(x1_S_1889) end) @@ -675,83 +676,83 @@ local Golden_LongStackBind_Test_go = (function() local _S_kont1890 = function(x1_S_1891) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x61 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x61, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x61, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x62 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x62, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x62, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x63 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x63, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x63, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x64 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x64, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x64, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x65 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x65, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x65, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x66 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x66, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x66, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x67 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x67, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x67, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x68 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x68, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x68, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x69 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x69, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x69, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x70 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x70, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x70, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x71 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x71, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x71, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x72 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x72, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x72, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x73 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x73, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x73, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x74 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x74, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x74, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x75 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x75, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x75, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x76 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x76, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x76, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x77 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x77, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x77, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x78 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x78, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x78, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x79 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x79, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x79, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x80 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x80, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x80, 1))) end)(function( ) return _S_kont1888(x1_S_1891) end) @@ -798,83 +799,83 @@ local Golden_LongStackBind_Test_go = (function() local _S_kont1892 = function(x1_S_1893) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x41 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x41, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x41, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x42 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x42, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x42, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x43 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x43, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x43, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x44 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x44, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x44, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x45 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x45, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x45, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x46 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x46, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x46, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x47 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x47, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x47, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x48 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x48, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x48, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x49 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x49, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x49, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x50 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x50, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x50, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x51 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x51, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x51, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x52 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x52, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x52, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x53 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x53, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x53, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x54 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x54, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x54, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x55 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x55, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x55, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x56 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x56, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x56, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x57 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x57, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x57, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x58 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x58, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x58, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x59 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x59, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x59, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x60 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x60, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x60, 1))) end)(function( ) return _S_kont1890(x1_S_1893) end) @@ -921,83 +922,83 @@ local Golden_LongStackBind_Test_go = (function() local _S_kont1894 = function(x1_S_1895) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x21 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x21, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x21, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x22 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x22, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x22, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x23 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x23, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x23, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x24 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x24, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x24, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x25 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x25, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x25, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x26 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x26, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x26, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x27 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x27, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x27, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x28 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x28, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x28, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x29 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x29, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x29, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x30 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x30, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x30, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x31 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x31, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x31, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x32 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x32, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x32, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x33 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x33, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x33, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x34 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x34, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x34, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x35 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x35, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x35, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x36 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x36, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x36, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x37 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x37, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x37, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x38 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x38, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x38, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x39 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x39, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x39, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x40 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x40, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x40, 1))) end)(function( ) return _S_kont1892(x1_S_1895) end) @@ -1043,83 +1044,83 @@ local Golden_LongStackBind_Test_go = (function() end return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x1 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x1, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x1, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x2 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x2, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x2, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x3 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x3, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x3, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x4 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x4, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x4, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x5 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x5, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x5, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x6 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x6, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x6, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x7 ) return Golden_LongStackBind_Test_discard(function() - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x7, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x7, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x8 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x8, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x8, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x9 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x9, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x9, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x10 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x10, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x10, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x11 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x11, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x11, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x12 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x12, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x12, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x13 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x13, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x13, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x14 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x14, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x14, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x15 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x15, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x15, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x16 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x16, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x16, 1))) end)(function() return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x17 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x17, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x17, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x18 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x18, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x18, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x19 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x19, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x19, 1))) end)(function( ) return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x20 ) return Golden_LongStackBind_Test_discard(function( ) - return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x20, 1))) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStackBind_Test_add_S_w(x20, 1))) end)(function( ) return _S_kont1894(x1) end) diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.ir b/test/ps/output/Golden.LongStateBind.Test/golden.ir index 58f591dc..b90b4037 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStateBind.Test/golden.ir @@ -4,13 +4,19 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName @@ -482,11 +488,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -535,11 +538,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -594,14 +594,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -656,14 +653,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -718,14 +712,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -782,14 +773,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -846,14 +834,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -912,14 +897,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -978,14 +960,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1044,14 +1023,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1214,11 +1190,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -1270,11 +1243,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1329,14 +1302,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1391,14 +1361,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1453,14 +1420,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1517,14 +1481,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1583,14 +1544,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1649,14 +1607,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1715,14 +1670,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1781,14 +1733,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1847,14 +1796,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1913,14 +1859,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -1979,14 +1922,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2045,14 +1985,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2111,14 +2048,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2177,14 +2111,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2243,14 +2174,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2309,14 +2237,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2375,14 +2300,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2441,14 +2363,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2598,11 +2517,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -2654,11 +2570,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2713,14 +2629,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2775,14 +2688,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2837,14 +2747,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2901,14 +2808,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -2967,14 +2871,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3033,14 +2934,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3099,14 +2997,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3165,14 +3060,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3231,14 +3123,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3297,14 +3186,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3363,14 +3249,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3429,14 +3312,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3495,14 +3375,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3561,14 +3438,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3627,14 +3501,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3693,14 +3564,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3759,14 +3627,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3825,14 +3690,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -3980,11 +3842,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -4033,11 +3892,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -4092,14 +3948,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4154,14 +4007,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4216,14 +4066,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4280,14 +4127,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4344,14 +4188,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4410,14 +4251,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4476,14 +4314,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4542,14 +4377,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4608,14 +4440,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4674,14 +4503,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4740,14 +4566,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4806,14 +4629,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4872,14 +4692,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -4938,14 +4755,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5004,14 +4818,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5070,14 +4881,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5136,14 +4944,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5202,14 +5007,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5356,11 +5158,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -5409,11 +5208,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -5468,14 +5264,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5530,14 +5323,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5592,14 +5382,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5656,14 +5443,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5720,14 +5504,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5786,14 +5567,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5852,14 +5630,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5918,14 +5693,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -5984,14 +5756,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6050,14 +5819,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6116,14 +5882,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6182,14 +5945,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6248,14 +6008,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6314,14 +6071,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6380,14 +6134,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6446,14 +6197,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6512,14 +6260,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6578,14 +6323,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6725,11 +6467,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -6778,11 +6517,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -6837,14 +6573,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6899,14 +6632,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -6961,14 +6691,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7025,14 +6752,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7089,14 +6813,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7155,14 +6876,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7221,14 +6939,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7287,14 +7002,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7353,14 +7065,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7419,14 +7128,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7485,14 +7191,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7551,15 +7254,12 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) ) ( AppN Nothing ( Ref Nothing @@ -7617,14 +7317,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7683,14 +7380,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7749,14 +7443,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7815,14 +7506,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7881,14 +7569,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -7947,14 +7632,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8094,11 +7776,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -8147,11 +7826,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -8206,14 +7882,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8268,14 +7941,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8330,14 +8000,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8394,14 +8061,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8458,14 +8122,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8524,14 +8185,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8590,14 +8248,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8656,14 +8311,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8722,14 +8374,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8788,14 +8437,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8854,14 +8500,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8920,14 +8563,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -8986,14 +8626,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9052,14 +8689,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9118,14 +8752,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9184,14 +8815,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9250,14 +8878,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9316,14 +8941,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9459,10 +9081,7 @@ UberModule ( 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 ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing ( Ref Nothing @@ -9498,11 +9117,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( AppN Nothing @@ -9554,11 +9170,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9613,14 +9229,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9675,14 +9288,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9737,14 +9347,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9801,14 +9408,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9865,14 +9469,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9931,14 +9532,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -9997,14 +9595,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10063,14 +9658,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10129,14 +9721,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10195,14 +9784,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10261,14 +9847,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10327,14 +9910,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10393,14 +9973,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10459,14 +10036,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10525,14 +10099,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10591,14 +10162,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing @@ -10657,14 +10225,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( AppN Nothing diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.lua b/test/ps/output/Golden.LongStateBind.Test/golden.lua index 726008d1..6910133b 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.lua +++ b/test/ps/output/Golden.LongStateBind.Test/golden.lua @@ -1,4 +1,5 @@ local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } local Effect_Console_foreign = { log = function(s) return function() print(s) end end @@ -117,43 +118,43 @@ local Golden_LongStateBind_Test_go = (function() return function(x100_S_1462) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x141 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x141, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x141, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x142 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x142, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x142, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x143 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x143, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x143, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x144 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x144, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x144, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x145 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x145, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x145, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x146 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x146, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x146, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x147 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x147, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x147, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x148 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x148, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x148, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x149 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x149, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x149, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x150 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x150, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x150, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( final ) return (Control_Monad_State_Trans_applicativeStateT(Data_Identity_monadIdentity)).pure(Golden_LongStateBind_Test_add_S_w(Golden_LongStateBind_Test_add_S_w(x1_S_1461, x100_S_1462), final)) @@ -184,83 +185,83 @@ local Golden_LongStateBind_Test_go = (function() return function(x100_S_1465) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x121 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x121, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x121, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x122 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x122, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x122, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x123 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x123, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x123, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x124 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x124, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x124, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x125 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x125, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x125, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x126 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x126, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x126, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x127 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x127, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x127, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x128 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x128, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x128, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x129 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x129, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x129, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x130 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x130, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x130, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x131 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x131, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x131, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x132 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x132, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x132, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x133 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x133, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x133, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x134 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x134, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x134, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x135 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x135, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x135, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x136 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x136, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x136, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x137 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x137, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x137, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x138 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x138, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x138, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x139 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x139, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x139, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x140 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x140, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x140, 1)) end)(function( ) return _S_kont1460(x1_S_1464)(x100_S_1465) end) @@ -309,83 +310,83 @@ local Golden_LongStateBind_Test_go = (function() return function(x100_S_1468) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x101 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x101, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x101, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x102 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x102, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x102, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x103 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x103, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x103, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x104 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x104, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x104, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x105 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x105, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x105, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x106 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x106, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x106, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x107 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x107, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x107, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x108 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x108, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x108, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x109 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x109, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x109, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x110 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x110, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x110, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x111 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x111, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x111, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x112 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x112, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x112, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x113 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x113, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x113, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x114 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x114, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x114, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x115 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x115, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x115, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x116 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x116, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x116, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x117 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x117, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x117, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x118 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x118, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x118, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x119 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x119, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x119, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x120 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x120, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x120, 1)) end)(function( ) return _S_kont1463(x1_S_1467)(x100_S_1468) end) @@ -433,83 +434,83 @@ local Golden_LongStateBind_Test_go = (function() local _S_kont1469 = function(x1_S_1470) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x81 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x81, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x81, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x82 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x82, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x82, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x83 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x83, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x83, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x84 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x84, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x84, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x85 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x85, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x85, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x86 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x86, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x86, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x87 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x87, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x87, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x88 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x88, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x88, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x89 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x89, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x89, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x90 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x90, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x90, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x91 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x91, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x91, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x92 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x92, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x92, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x93 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x93, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x93, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x94 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x94, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x94, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x95 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x95, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x95, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x96 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x96, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x96, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x97 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x97, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x97, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x98 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x98, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x98, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x99 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x99, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x99, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x100 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x100, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x100, 1)) end)(function( ) return _S_kont1466(x1_S_1470)(x100) end) @@ -556,83 +557,83 @@ local Golden_LongStateBind_Test_go = (function() local _S_kont1471 = function(x1_S_1472) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x61 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x61, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x61, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x62 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x62, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x62, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x63 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x63, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x63, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x64 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x64, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x64, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x65 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x65, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x65, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x66 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x66, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x66, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x67 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x67, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x67, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x68 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x68, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x68, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x69 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x69, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x69, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x70 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x70, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x70, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x71 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x71, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x71, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x72 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x72, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x72, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x73 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x73, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x73, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x74 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x74, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x74, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x75 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x75, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x75, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x76 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x76, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x76, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x77 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x77, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x77, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x78 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x78, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x78, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x79 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x79, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x79, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x80 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x80, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x80, 1)) end)(function( ) return _S_kont1469(x1_S_1472) end) @@ -679,83 +680,83 @@ local Golden_LongStateBind_Test_go = (function() local _S_kont1473 = function(x1_S_1474) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x41 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x41, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x41, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x42 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x42, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x42, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x43 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x43, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x43, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x44 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x44, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x44, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x45 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x45, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x45, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x46 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x46, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x46, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x47 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x47, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x47, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x48 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x48, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x48, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x49 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x49, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x49, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x50 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x50, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x50, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x51 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x51, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x51, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x52 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x52, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x52, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x53 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x53, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x53, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x54 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x54, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x54, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x55 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x55, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x55, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x56 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x56, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x56, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x57 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x57, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x57, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x58 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x58, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x58, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x59 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x59, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x59, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x60 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x60, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x60, 1)) end)(function( ) return _S_kont1471(x1_S_1474) end) @@ -802,83 +803,83 @@ local Golden_LongStateBind_Test_go = (function() local _S_kont1475 = function(x1_S_1476) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x21 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x21, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x21, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x22 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x22, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x22, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x23 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x23, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x23, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x24 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x24, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x24, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x25 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x25, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x25, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x26 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x26, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x26, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x27 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x27, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x27, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x28 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x28, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x28, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x29 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x29, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x29, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x30 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x30, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x30, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x31 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x31, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x31, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x32 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x32, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x32, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x33 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x33, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x33, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x34 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x34, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x34, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x35 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x35, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x35, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x36 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x36, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x36, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x37 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x37, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x37, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x38 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x38, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x38, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x39 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x39, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x39, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x40 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x40, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x40, 1)) end)(function( ) return _S_kont1473(x1_S_1476) end) @@ -924,83 +925,83 @@ local Golden_LongStateBind_Test_go = (function() end return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x1 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x1, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x1, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x2 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x2, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x2, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x3 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x3, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x3, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x4 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x4, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x4, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x5 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x5, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x5, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x6 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x6, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x6, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x7 ) return Golden_LongStateBind_Test_discard(function() - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x7, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x7, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x8 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x8, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x8, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x9 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x9, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x9, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x10 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x10, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x10, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x11 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x11, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x11, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x12 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x12, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x12, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x13 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x13, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x13, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x14 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x14, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x14, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x15 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x15, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x15, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x16 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x16, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x16, 1)) end)(function() return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x17 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x17, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x17, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x18 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x18, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x18, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x19 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x19, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x19, 1)) end)(function( ) return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x20 ) return Golden_LongStateBind_Test_discard(function( ) - return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x20, 1)) + return Data_Tuple_Tuple(Data_Unit_unit)(Golden_LongStateBind_Test_add_S_w(x20, 1)) end)(function( ) return _S_kont1475(x1) end) diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.ir b/test/ps/output/Golden.LongWriterBind.Test/golden.ir index f45dc806..0b1ecccd 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.ir +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.ir @@ -4,13 +4,19 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Semigroup" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Semigroup.purs" + ( ModuleName "Data.Semigroup" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Semigroup.purs" [ ( Nothing, Name "concatArray" ) ] ), Standalone ( QName @@ -22,7 +28,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName @@ -332,10 +338,7 @@ UberModule ( 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 ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 161 ] :| [] ) :| [] ) @@ -350,10 +353,7 @@ UberModule ( 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 ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 162 ] :| [] ) :| [] ) @@ -368,11 +368,8 @@ UberModule ( 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 + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 163 ] :| [] ) :| [] @@ -393,11 +390,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 164 ] :| [] ) :| [] @@ -418,11 +412,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 165 ] :| [] ) :| [] @@ -443,11 +434,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 166 ] :| [] ) :| [] @@ -471,14 +462,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -504,14 +492,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -537,14 +522,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -570,14 +552,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -603,14 +582,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -636,14 +612,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -669,14 +642,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -702,14 +672,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -735,14 +702,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -768,14 +732,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -801,14 +762,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -834,14 +792,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -867,14 +822,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -900,14 +852,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -933,14 +882,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -966,14 +912,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -999,14 +942,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1032,14 +972,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1065,14 +1002,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1098,14 +1032,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1131,14 +1062,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1164,14 +1092,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1197,14 +1122,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1230,14 +1152,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1263,14 +1182,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1296,14 +1212,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1329,14 +1242,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1362,14 +1272,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1395,14 +1302,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1428,14 +1332,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1461,14 +1362,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1494,14 +1392,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1527,14 +1422,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1560,14 +1452,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1789,10 +1678,7 @@ UberModule ( 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 ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 121 ] :| [] ) :| [] ) @@ -1807,11 +1693,8 @@ UberModule ( 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 + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 122 ] :| [] ) :| [] @@ -1832,11 +1715,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 123 ] :| [] ) :| [] @@ -1857,11 +1737,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 124 ] :| [] ) :| [] @@ -1882,11 +1759,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 125 ] :| [] ) :| [] @@ -1907,14 +1781,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1940,14 +1811,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -1973,14 +1841,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2006,14 +1871,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2039,14 +1901,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2072,14 +1931,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2105,14 +1961,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2138,14 +1991,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2171,14 +2021,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2204,14 +2051,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2237,14 +2081,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2270,14 +2111,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2303,14 +2141,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2336,14 +2171,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2369,14 +2201,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2402,14 +2231,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2435,14 +2261,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2468,14 +2291,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2501,14 +2321,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2534,15 +2351,12 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) ) ( LiteralArray Nothing [ LiteralInt Nothing 145 ] :| [] @@ -2567,14 +2381,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2600,14 +2411,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2633,14 +2441,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2666,14 +2471,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2699,14 +2501,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2732,14 +2531,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2765,14 +2561,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2798,14 +2591,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2831,14 +2621,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2864,14 +2651,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2897,14 +2681,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2930,14 +2711,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2963,14 +2741,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -2996,14 +2771,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3029,14 +2801,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3139,10 +2908,7 @@ UberModule ( 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 ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 81 ] :| [] ) :| [] ) @@ -3157,11 +2923,8 @@ UberModule ( 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 + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 82 ] :| [] ) :| [] @@ -3182,11 +2945,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 83 ] :| [] ) :| [] @@ -3207,11 +2967,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 84 ] :| [] ) :| [] @@ -3232,11 +2989,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 85 ] :| [] ) :| [] @@ -3257,14 +3011,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 86 ] :| [] ) :| [] @@ -3288,14 +3039,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3321,14 +3069,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3354,14 +3099,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3387,14 +3129,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3420,14 +3159,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3453,14 +3189,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3486,14 +3219,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3519,14 +3249,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3552,14 +3279,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3585,14 +3309,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3618,17 +3339,14 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) - ) - ( LiteralArray Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) + ) + ( LiteralArray Nothing [ LiteralInt Nothing 97 ] :| [] ) :| [] ) @@ -3651,14 +3369,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3684,14 +3399,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3717,14 +3429,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3750,14 +3459,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3783,14 +3489,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3816,14 +3519,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3849,14 +3549,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3882,14 +3579,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3915,14 +3609,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3948,14 +3639,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -3981,14 +3669,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4014,14 +3699,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4047,14 +3729,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4080,14 +3759,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4113,14 +3789,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4146,14 +3819,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4179,14 +3849,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4212,14 +3879,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4245,14 +3909,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4278,14 +3939,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4311,14 +3969,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4344,14 +3999,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4377,14 +4029,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4487,10 +4136,7 @@ UberModule ( 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 ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 41 ] :| [] ) :| [] ) @@ -4505,11 +4151,8 @@ UberModule ( 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 + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 42 ] :| [] ) :| [] @@ -4530,11 +4173,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 43 ] :| [] ) :| [] @@ -4555,11 +4195,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 44 ] :| [] ) :| [] @@ -4580,11 +4217,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 45 ] :| [] ) :| [] @@ -4605,14 +4239,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 46 ] :| [] ) :| [] @@ -4636,14 +4267,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4669,14 +4297,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4702,15 +4327,12 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] + ) ) ( LiteralArray Nothing [ LiteralInt Nothing 49 ] :| [] @@ -4735,14 +4357,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4768,14 +4387,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4801,14 +4417,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4834,14 +4447,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4867,14 +4477,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4900,14 +4507,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4933,14 +4537,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4966,14 +4567,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -4999,14 +4597,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5032,14 +4627,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5065,14 +4657,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5098,14 +4687,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5131,14 +4717,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5164,14 +4747,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5197,14 +4777,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5230,14 +4807,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5263,14 +4837,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5296,14 +4867,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5329,14 +4897,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5362,14 +4927,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5395,14 +4957,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5428,14 +4987,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5461,14 +5017,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5494,14 +5047,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5527,14 +5077,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5560,14 +5107,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5593,14 +5137,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5626,14 +5167,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5659,14 +5197,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5692,14 +5227,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5725,14 +5257,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -5837,10 +5366,7 @@ UberModule ( 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 ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 1 ] :| [] ) :| [] ) @@ -5855,10 +5381,7 @@ UberModule ( 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 ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 2 ] :| [] ) :| [] ) @@ -5873,11 +5396,8 @@ UberModule ( 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 + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 3 ] :| [] ) :| [] @@ -5898,11 +5418,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 4 ] :| [] ) :| [] @@ -5923,11 +5440,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 5 ] :| [] ) :| [] @@ -5948,11 +5462,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 6 ] :| [] ) :| [] @@ -5973,14 +5484,11 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing [ LiteralInt Nothing 7 ] :| [] ) :| [] @@ -6004,14 +5512,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6037,14 +5542,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6070,14 +5572,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6103,14 +5602,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6136,14 +5632,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6169,14 +5662,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6202,14 +5692,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6235,14 +5722,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6268,14 +5752,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6301,14 +5782,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6334,14 +5812,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6367,14 +5842,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6400,14 +5872,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6433,14 +5902,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6466,14 +5932,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6499,14 +5962,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6532,14 +5992,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6565,14 +6022,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6598,14 +6052,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6631,14 +6082,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6664,14 +6112,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6697,14 +6142,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6730,14 +6172,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6763,14 +6202,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6796,14 +6232,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6829,14 +6262,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6862,14 +6292,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6895,14 +6322,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6928,14 +6352,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6961,14 +6382,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -6994,14 +6412,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -7027,14 +6442,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing @@ -7060,14 +6472,11 @@ UberModule ( Name "Tuple" ) ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.Unit" ) - ( Name "foreign" ) - ) - ) - ( PropName "unit" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Unit" ) + ( Name "unit" ) + ) :| [] ) ) ( LiteralArray Nothing diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.lua b/test/ps/output/Golden.LongWriterBind.Test/golden.lua index 58073610..4469f672 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.lua +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.lua @@ -1,4 +1,5 @@ local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Data_Semigroup_foreign = { concatArray = function(xs) return function(ys) @@ -80,124 +81,124 @@ local Golden_LongWriterBind_Test_discard = (function() end end)() local Golden_LongWriterBind_Test_go = (function() - local _S_kont752 = Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + local _S_kont752 = Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 161 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 162 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 163 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 164 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 165 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 166 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 167 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 168 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 169 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 170 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 171 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 172 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 173 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 174 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 175 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 176 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 177 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 178 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 179 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 180 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 181 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 182 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 183 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 184 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 185 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 186 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 187 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 188 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 189 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 190 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 191 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 192 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 193 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 194 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 195 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 196 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 197 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 198 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 199 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 200 }))(function( ) return ((function( ) @@ -258,124 +259,124 @@ local Golden_LongWriterBind_Test_go = (function() end) end) end) - local _S_kont753 = Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + local _S_kont753 = Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 121 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 122 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 123 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 124 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 125 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 126 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 127 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 128 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 129 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 130 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 131 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 132 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 133 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 134 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 135 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 136 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 137 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 138 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 139 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 140 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 141 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 142 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 143 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 144 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 145 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 146 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 147 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 148 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 149 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 150 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 151 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 152 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 153 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 154 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 155 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 156 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 157 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 158 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 159 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 160 }))(function( ) return _S_kont752 @@ -419,124 +420,124 @@ local Golden_LongWriterBind_Test_go = (function() end) end) end) - local _S_kont754 = Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + local _S_kont754 = Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 81 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 82 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 83 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 84 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 85 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 86 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 87 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 88 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 89 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 90 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 91 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 92 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 93 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 94 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 95 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 96 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 97 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 98 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 99 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 100 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 101 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 102 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 103 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 104 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 105 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 106 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 107 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 108 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 109 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 110 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 111 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 112 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 113 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 114 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 115 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 116 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 117 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 118 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 119 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 120 }))(function( ) return _S_kont753 @@ -580,124 +581,124 @@ local Golden_LongWriterBind_Test_go = (function() end) end) end) - local _S_kont755 = Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + local _S_kont755 = Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 41 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 42 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 43 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 44 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 45 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 46 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 47 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 48 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 49 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 50 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 51 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 52 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 53 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 54 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 55 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 56 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 57 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 58 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 59 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 60 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 61 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 62 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 63 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 64 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 65 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 66 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 67 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 68 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 69 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 70 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 71 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 72 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 73 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 74 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 75 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 76 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 77 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 78 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 79 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 80 }))(function( ) return _S_kont754 @@ -741,124 +742,124 @@ local Golden_LongWriterBind_Test_go = (function() end) end) end) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 1 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 2 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 3 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 4 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 5 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 6 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 7 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 8 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 9 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 10 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 11 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 12 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 13 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 14 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 15 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 16 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 17 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 18 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 19 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 20 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 21 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 22 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 23 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 24 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 25 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 26 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 27 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 28 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 29 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 30 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 31 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 32 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 33 }))(function() - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 34 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 35 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 36 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 37 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 38 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 39 }))(function( ) - return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_foreign.unit)({ + return Golden_LongWriterBind_Test_discard(Data_Tuple_Tuple(Data_Unit_unit)({ [1] = 40 }))(function( ) return _S_kont755 diff --git a/test/ps/output/Golden.Loopification.Test/golden.ir b/test/ps/output/Golden.Loopification.Test/golden.ir index 87d1128a..58d39095 100644 --- a/test/ps/output/Golden.Loopification.Test/golden.ir +++ b/test/ps/output/Golden.Loopification.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.ir b/test/ps/output/Golden.MaybeChain.Test/golden.ir index baf719a2..b7e8c0ec 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChain.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.NumberIsNaN.Test/golden.ir b/test/ps/output/Golden.NumberIsNaN.Test/golden.ir index 3faed136..f84a836b 100644 --- a/test/ps/output/Golden.NumberIsNaN.Test/golden.ir +++ b/test/ps/output/Golden.NumberIsNaN.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Ring", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Ring" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Ring.purs" + ( ModuleName "Data.Ring" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Ring.purs" [ ( Nothing, Name "numSub" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.Primops.Test/golden.ir b/test/ps/output/Golden.Primops.Test/golden.ir index 0931595f..3aa8ef0e 100644 --- a/test/ps/output/Golden.Primops.Test/golden.ir +++ b/test/ps/output/Golden.Primops.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir index f21c8c91..16fb7851 100644 --- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir +++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir index a7410d55..a6627be1 100644 --- a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir +++ b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir @@ -4,8 +4,14 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Unit" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Unit.purs" - [ ( Just Always, Name "unit" ) ] + ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs" + [ ( Just Never, Name "unit" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit" + }, ObjectProp ( Just Never ) + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) + ( PropName "unit" ) ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" @@ -71,10 +77,7 @@ UberModule ) ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "record$1" ) ) ) ( PropName "run" ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) ) - ( PropName "unit" ) :| [] - ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] ) :| [] ) ) ) diff --git a/test/ps/output/Golden.RecGroupOrder.Test/golden.lua b/test/ps/output/Golden.RecGroupOrder.Test/golden.lua index 1eccc254..2a7034d6 100644 --- a/test/ps/output/Golden.RecGroupOrder.Test/golden.lua +++ b/test/ps/output/Golden.RecGroupOrder.Test/golden.lua @@ -18,6 +18,7 @@ local function PSLUA_runtime_lazy(name) end local M = {} local Data_Unit_foreign = { unit = {} } +local Data_Unit_unit = Data_Unit_foreign.unit local Effect_Console_foreign = { log = function(s) return function() print(s) end end } @@ -31,5 +32,5 @@ return (function() return { run = function() return (Lazy_record_S_0(0)).tag end, tag = "ok!" } end) record_S_1 = Lazy_record_S_0(0) - return Effect_Console_foreign.log(record_S_1.run(Data_Unit_foreign.unit)) + return Effect_Console_foreign.log(record_S_1.run(Data_Unit_unit)) end)()() diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.ir b/test/ps/output/Golden.StringCodePoints.Test/golden.ir index 39139df7..4ec33ed1 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.ir +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ), ( Nothing, Name "showArrayImpl" ) ] ), Standalone ( QName @@ -22,7 +22,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Functor" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Functor.purs" + ( ModuleName "Data.Functor" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Functor.purs" [ ( Nothing, Name "arrayMap" ) ] ), Standalone ( QName @@ -34,7 +34,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Bounded" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Bounded.purs" + ( ModuleName "Data.Bounded" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Bounded.purs" [ ( Nothing, Name "topChar" ), ( Nothing, Name "bottomChar" ) ] ), Standalone ( QName @@ -52,7 +52,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.EuclideanRing", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.EuclideanRing" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/EuclideanRing.purs" + ( ModuleName "Data.EuclideanRing" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/EuclideanRing.purs" [ ( Nothing, Name "intDegree" ), ( Nothing, Name "intDiv" ), ( Nothing, Name "intMod" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir index 3749d955..425cc1fb 100644 --- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir +++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.UncurriedLift.Test/golden.ir b/test/ps/output/Golden.UncurriedLift.Test/golden.ir index 23db206a..8ce4f924 100644 --- a/test/ps/output/Golden.UncurriedLift.Test/golden.ir +++ b/test/ps/output/Golden.UncurriedLift.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone ( QName diff --git a/test/ps/output/Golden.Uncurry.Test/golden.ir b/test/ps/output/Golden.Uncurry.Test/golden.ir index 9d1f87c9..13cb4b2b 100644 --- a/test/ps/output/Golden.Uncurry.Test/golden.ir +++ b/test/ps/output/Golden.Uncurry.Test/golden.ir @@ -4,7 +4,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + ( ModuleName "Data.Show" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ), ( Nothing, Name "showArrayImpl" ) ] ), Standalone ( QName @@ -16,7 +16,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "foreign" }, ForeignImport Nothing - ( ModuleName "Data.Functor" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Functor.purs" + ( ModuleName "Data.Functor" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Functor.purs" [ ( Nothing, Name "arrayMap" ) ] ), Standalone ( QName