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" 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 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