From 98043eb8f01b2b94ca145db91f239aa6d15c3d84 Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Sun, 12 Jul 2026 15:57:26 +0200 Subject: [PATCH 1/4] perf: rebuild sharing for multi-use foreign accessor reads (#248) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The linker annotated every foreign accessor @inline always, so each use site re-materialized a field read off the foreign table. That default bought wrapper transparency, but stage 2 of #174 made the shared form strictly cheaper for multi-use names: an accessor kept as a binding is promoted to a chunk local, so every use is a register or upvalue access with zero table reads. The linker now emits accessors carrying only their explicit pragma, and a final IR pass (shareForeignAccessors, after the specialize fixpoint) counts the accessor reads that survived optimization and re-binds every read occurring at two or more sites to its linker QName, rewriting the reads to references. Counting at the end of the pipeline also catches the copies minted by call-site inlining — a dictionary method resolved at several sites pastes one field read per site — so dict-projected primitives like Data.Show.showIntImpl share too. Single-use accessors keep the dissolved form: no binding, no local slot. Explicit pragmas keep their meaning in both directions: always opts a name out of the re-binding, never keeps the accessor a shared binding from the start. ForeignLift-lifted bodies are now marked always by the lift itself, since they exist to beta-reduce at saturated call sites. Eval goldens are unchanged; the structural golden churn is the shared accessors materializing as promoted locals. --- ..._150000_unisay_foreign_accessor_default.md | 12 + lib/Language/PureScript/Backend/IR/Inliner.hs | 20 +- lib/Language/PureScript/Backend/IR/Linker.hs | 35 +- .../PureScript/Backend/IR/Optimizer.hs | 114 +- .../PureScript/Backend/Lua/ForeignLift.hs | 11 +- .../PureScript/Backend/IR/Optimizer/Spec.hs | 80 + .../ps/output/Golden.Annotations.M1/golden.ir | 2 +- .../ps/output/Golden.Annotations.M2/golden.ir | 2 +- .../output/Golden.ArrayOfUnits.Test/golden.ir | 12 +- .../Golden.ArrayPatternMatch.Test/golden.ir | 52 +- .../Golden.ArrayPatternMatch.Test/golden.lua | 10 +- .../Golden.BugListGenericEq.Test/golden.ir | 25 +- .../Golden.BugListGenericEq.Test/golden.lua | 7 +- .../output/Golden.CharLiterals.Test/golden.ir | 46 +- .../Golden.CharLiterals.Test/golden.lua | 17 +- .../Golden.DerivedFunctor.Test/golden.ir | 42 +- .../Golden.DerivedFunctor.Test/golden.lua | 8 +- .../ps/output/Golden.Fibonacci.Test/golden.ir | 4 +- .../output/Golden.FieldCaching.Test/golden.ir | 62 +- .../Golden.FieldCaching.Test/golden.lua | 12 +- test/ps/output/Golden.FloatIn.Test/golden.ir | 70 +- test/ps/output/Golden.FloatIn.Test/golden.lua | 13 +- test/ps/output/Golden.Foreign.Lib/golden.ir | 4 +- test/ps/output/Golden.Foreign.Test/golden.ir | 6 +- .../Golden.ForeignSharing.Test/golden.ir | 26 +- .../Golden.ForeignSharing.Test/golden.lua | 3 +- .../Golden.ForeignSharing.Token/golden.ir | 2 +- .../Golden.GenericEqTwoTypes.Test/golden.ir | 32 +- .../Golden.GenericEqTwoTypes.Test/golden.lua | 9 +- .../output/Golden.HelloPrelude.Test/golden.ir | 4 +- test/ps/output/Golden.Issue37.Test/golden.ir | 4 +- .../Golden.LongApplyChain.Test/golden.ir | 2 +- .../Golden.LongBindFlipped.Test/golden.ir | 2 +- .../Golden.LongCallbackChain.Test/golden.ir | 4 +- .../output/Golden.LongDoBlock.Test/golden.ir | 1806 +++-------------- .../output/Golden.LongDoBlock.Test/golden.lua | 601 +++--- .../Golden.LongEitherBind.Test/golden.ir | 2 +- .../Golden.LongExceptBind.Test/golden.ir | 4 +- .../Golden.LongMaybeBind.Test/golden.ir | 2 +- .../Golden.LongReaderBind.Test/golden.ir | 6 +- .../Golden.LongStackBind.Test/golden.ir | 4 +- .../Golden.LongStateBind.Test/golden.ir | 4 +- .../Golden.LongWriterBind.Test/golden.ir | 8 +- .../Golden.Loopification.Test/golden.ir | 72 +- .../Golden.Loopification.Test/golden.lua | 14 +- .../output/Golden.MaybeChain.Test/golden.ir | 32 +- .../output/Golden.MaybeChain.Test/golden.lua | 6 +- .../output/Golden.NumberIsNaN.Test/golden.ir | 135 +- .../output/Golden.NumberIsNaN.Test/golden.lua | 25 +- test/ps/output/Golden.Primops.Test/golden.ir | 18 +- test/ps/output/Golden.Primops.Test/golden.lua | 5 +- .../Golden.ProfunctorDictLens.Test/golden.ir | 67 +- .../Golden.ProfunctorDictLens.Test/golden.lua | 11 +- .../Golden.RecGroupOrder.Test/golden.ir | 2 +- .../Golden.StringCodePoints.Test/golden.ir | 458 ++--- .../Golden.StringCodePoints.Test/golden.lua | 100 +- .../Golden.StringEscapes.Test/golden.ir | 2 +- .../Golden.TailRecM2Shadow.Test/golden.ir | 168 +- .../Golden.TailRecM2Shadow.Test/golden.lua | 29 +- .../Golden.TestReturnTableField/golden.ir | 2 +- .../Golden.UncurriedLift.Test/golden.ir | 92 +- .../Golden.UncurriedLift.Test/golden.lua | 18 +- test/ps/output/Golden.Uncurry.Test/golden.ir | 24 +- test/ps/output/Golden.Uncurry.Test/golden.lua | 5 +- 64 files changed, 1652 insertions(+), 2824 deletions(-) create mode 100644 changelog.d/20260712_150000_unisay_foreign_accessor_default.md diff --git a/changelog.d/20260712_150000_unisay_foreign_accessor_default.md b/changelog.d/20260712_150000_unisay_foreign_accessor_default.md new file mode 100644 index 00000000..dc5c421f --- /dev/null +++ b/changelog.d/20260712_150000_unisay_foreign_accessor_default.md @@ -0,0 +1,12 @@ +### Changed + +- Foreign accessors are no longer `@inline always` by default (#248). An + accessor without a pragma now dissolves into its use site only when it has + at most one; at two or more sites it is kept as a shared binding, which + stage-2 promotion (#174) turns into a chunk local — every use becomes a + register/upvalue read instead of a repeated table-field read. Explicit + pragmas keep their meaning in both directions: `@inline always` + restores the per-site field read, `@inline never` keeps the shared + binding even when used once. Bodies lifted into the IR by the foreign-lift + pass are still marked inline-always by that pass, since they exist to + beta-reduce at saturated call sites. diff --git a/lib/Language/PureScript/Backend/IR/Inliner.hs b/lib/Language/PureScript/Backend/IR/Inliner.hs index 71e07442..a04c9b3b 100644 --- a/lib/Language/PureScript/Backend/IR/Inliner.hs +++ b/lib/Language/PureScript/Backend/IR/Inliner.hs @@ -76,12 +76,20 @@ stages: A whole-binding pragma on a foreign name (@always@/@never@/@default@ only — there is no body to paste at an arity, nor a field to select) is drained into 'moduleForeigns' and reaches the linker, which binds each foreign name -to an 'ObjectProp' accessor annotated with that pragma, defaulting to -'Always' so the wrapper around the FFI object is inlined away unless a -pragma says otherwise (see Note [Foreign bindings structure emitted by the -Linker]). @never@ keeps the accessor as a shared binding — the way to -declare sharing intent for an FFI value; an explicit @default@ resolves to -the same built-in 'Always'. +to an 'ObjectProp' accessor carrying that pragma alone (see +Note [Foreign bindings structure emitted by the Linker]). An unannotated +accessor dissolves into its use sites like any cheap projection, but the +sharing is rebuilt at the end of the pipeline: +'Language.PureScript.Backend.IR.Optimizer.shareForeignAccessors' re-binds a +field read that survived at two or more sites, since a read repeated per +site loses to a shared binding once stage-2 promotion turns that binding +into a chunk local (issue #248). @always@ opts a name out of the re-binding +— a per-site field read at any use count — and @never@ keeps the accessor a +shared binding from the start, even when used once; an explicit @default@ +resolves to no annotation, same as leaving the pragma off. The lifted +foreign bodies are the exception: +'Language.PureScript.Backend.Lua.ForeignLift.liftForeigns' marks them +@always@ itself, because they exist to beta-reduce at saturated call sites. The 'ForeignImport' expression itself — the table of a foreign module's exports — is the one shape the optimizer refuses to inline even when it is diff --git a/lib/Language/PureScript/Backend/IR/Linker.hs b/lib/Language/PureScript/Backend/IR/Linker.hs index 06390732..a1fcf402 100644 --- a/lib/Language/PureScript/Backend/IR/Linker.hs +++ b/lib/Language/PureScript/Backend/IR/Linker.hs @@ -5,7 +5,6 @@ module Language.PureScript.Backend.IR.Linker where import Control.Lens (over) import Data.Graph (graphFromEdges', reverseTopSort) import Data.Set qualified as Set -import Language.PureScript.Backend.IR.Inliner qualified as Inline import Language.PureScript.Backend.IR.Names ( ModuleName (..) , Name (..) @@ -63,24 +62,25 @@ that downstream passes pattern-match by structure, so the producer here and the consumers must agree. * One 'ForeignImport' per module that has any foreigns, bound to the special - name @foreign@ (@QName moduleName (Name "foreign")@). It carries the module + name @foreign@ (@QName moduleName 'foreignName'@). It carries the module name, the source path, and the list of foreign names. * One 'ObjectProp' per foreign name, bound to @QName moduleName name@, that reads that name as a field off the @foreign@ import. It carries the name's - @inline@ pragma annotation when one is declared, and defaults to - 'Inline.Always'. + @inline@ pragma annotation when one is declared and no annotation + otherwise, leaving the dissolve-or-share decision to the optimizer's use + count (see Note [Inline annotations and inlining heuristics]). 'Language.PureScript.Backend.IR.DCE' depends on exactly these shapes: it splits the foreigns into 'ForeignImport's and 'ObjectProp's by pattern, and when it keeps a 'ForeignImport' it prunes the carried name list to the reachable names. -Change either shape here and the DCE patterns silently stop matching. +'Language.PureScript.Backend.IR.Optimizer.shareForeignAccessors' recognises +dissolved copies of the accessor shape via 'foreignAccessorQName'. Change +either shape here and those patterns silently stop matching. -} foreignBindings ∷ Module → [(QName, Exp)] foreignBindings Module {moduleName, modulePath, moduleForeigns} = foreignModuleBinding <> foreignNamesBindings where - foreignName = Name "foreign" - foreignModuleBinding ∷ [(QName, Exp)] = [ ( QName moduleName foreignName , ForeignImport noAnn moduleName modulePath moduleForeigns @@ -93,11 +93,30 @@ foreignBindings Module {moduleName, modulePath, moduleForeigns} = moduleForeigns <&> \(ann, name) → ( QName moduleName name , ObjectProp - (ann <|> Just Inline.Always) + ann (refImported moduleName foreignName) (PropName (nameToText name)) ) +{- | The special name a module's 'ForeignImport' table is bound to +(Note [Foreign bindings structure emitted by the Linker]). @foreign@ is a +PureScript keyword, so no user-defined top-level binding can collide with it. +-} +foreignName ∷ Name +foreignName = Name "foreign" + +{- | Recognise the accessor shape 'foreignBindings' emits — a field read off a +module's @foreign@ import — and recover the 'QName' the accessor was bound +to. Total on any expression: only the linker builds references to +'foreignName', and the property name round-trips through 'nameToText' (see +Note [Foreign bindings structure emitted by the Linker]). +-} +foreignAccessorQName ∷ RawExp ann → Maybe QName +foreignAccessorQName = \case + ObjectProp _ann (Ref _refAnn (Imported modname name)) (PropName prop) + | name == foreignName → Just (QName modname (Name prop)) + _ → Nothing + qualifiedModuleBindings ∷ Module → [Grouping (QName, Exp)] qualifiedModuleBindings Module {moduleName, moduleBindings, moduleForeigns} = moduleBindings <&> \case diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs index 1772c374..2ce86a9e 100644 --- a/lib/Language/PureScript/Backend/IR/Optimizer.hs +++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs @@ -1,6 +1,6 @@ module Language.PureScript.Backend.IR.Optimizer where -import Control.Lens (over, toListOf) +import Control.Lens (over, toListOf, transformOf, universeOf) import Control.Monad.Writer.CPS (WriterT, runWriterT, tell) import Data.Foldable (foldrM) import Data.List qualified as List @@ -13,10 +13,14 @@ import Language.PureScript.Backend.IR.DCE (eliminateDeadCode) import Language.PureScript.Backend.IR.FlattenDeepBinds (flattenDeepBindsM) import Language.PureScript.Backend.IR.FloatIn (floatIn) import Language.PureScript.Backend.IR.Inliner (Annotation (..)) -import Language.PureScript.Backend.IR.Linker (UberModule (..)) +import Language.PureScript.Backend.IR.Linker + ( UberModule (..) + , foreignAccessorQName + ) import Language.PureScript.Backend.IR.MagicDo (magicDo) import Language.PureScript.Backend.IR.Names ( FieldName + , ModuleName , Name (..) , PropName , QName (..) @@ -64,6 +68,7 @@ import Language.PureScript.Backend.IR.Types , literalString , paramName , primNot + , refImported , rewriteExpBottomUpM , setAnn , subexpressions @@ -141,6 +146,13 @@ optimizerPipeline policy = -- Maybe/Either/Writer/State chains into straight-line code. Code growth -- is bounded by 'inlineSizeBudget'. RunFixpoint "specialize+dce" (specializePass :| [dcePass]) + , -- Rebuild sharing for the foreign-accessor reads that dissolution + -- and the call-site pastes above duplicated: a read surviving at + -- two or more sites is re-bound to its linker name, which stage-2 + -- promotion then turns into a chunk local (issue #248). Runs after + -- the last pass that can multiply reads and before the final + -- flattening. See 'shareForeignAccessors'. + RunPass shareAccessorsPass , -- Flatten the remaining deeply-nested expression trees (issues #104, -- #108): continuation/bind chains of any monad (lambda-lifted -- into $kont helpers) and applicative/flipped-bind application @@ -194,6 +206,7 @@ optimizerPipeline policy = , passEnsures = guc } floatInPass = gucPass "float-in" floatIn + shareAccessorsPass = gucPass "share-accessors" shareForeignAccessors magicDoPass = Pass { passName = "magicDo" @@ -241,6 +254,103 @@ mergeForeignsIntoBindings uberModule@UberModule {..} = map Standalone uberModuleForeigns <> uberModuleBindings } +{- | Rebuild sharing for foreign-accessor reads duplicated during +optimization (issue #248). An unannotated accessor dissolves into its +use sites like any cheap projection (the Deref tier of +Note [Complexity and Capture gate inlining]), and call-site inlining +multiplies the pasted read further: a dictionary method resolved at +several sites pastes one field read per site. A field read repeated per +site loses to a shared binding once stage-2 promotion +('Language.PureScript.Backend.Lua.Promote') turns that binding into a +chunk local, so this pass counts the reads that survived the pipeline +and re-binds every accessor whose read occurs at two or more sites to +its linker name, rewriting the reads to references. + +Runs once, after the specialize fixpoint has finished pasting (see +'optimizerPipeline'). Only unannotated reads participate: a read +carrying @inline always@ is pasted per site on explicit request, and a +@never@ accessor never dissolved in the first place (see +Note [Inline annotations and inlining heuristics]). The re-bound +accessor is inserted right after its module's 'ForeignImport' binding, +where the module-init order guarantees the foreign table is already +initialized; the reads it replaces sit in bindings placed after every +foreign table ('mergeForeignsIntoBindings' front-loads them all) or in +exports. +-} +shareForeignAccessors ∷ UberModule → UberModule +shareForeignAccessors uber@UberModule {uberModuleBindings, uberModuleExports} + | Map.null shared = uber + | otherwise = + uber + { uberModuleBindings = + insertAccessorBindings + (fmap (fmap (fmap rewriteExp)) uberModuleBindings) + , uberModuleExports = fmap (fmap rewriteExp) uberModuleExports + } + where + -- Unannotated accessor reads, keyed by the QName the linker + -- originally bound the accessor to, with one representative + -- expression per key (every copy of a read is identical). Only reads + -- whose module still has its 'ForeignImport' binding participate — + -- always the case for a well-scoped module, since the read itself + -- references the foreign table. + shared ∷ Map QName Exp + shared = + Map.fromListWith (\_new old → old) accessorReads + `Map.restrictKeys` sharedNames + where + sharedNames = + Map.keysSet $ + Map.filter (> 1) $ + Map.fromListWith (+) [(qname, 1 ∷ Natural) | (qname, _) ← accessorReads] + + accessorReads ∷ [(QName, Exp)] + accessorReads = + [ (qname, node) + | expr ← + (snd <$> (listGrouping =<< uberModuleBindings)) + <> (snd <$> uberModuleExports) + , node ← universeOf subexpressions expr + , isNothing (getAnn node) + , Just qname ← [foreignAccessorQName node] + , qname `Set.notMember` boundNames + , qnameModuleName qname `Set.member` modulesWithForeign + ] + + -- Top-level names already bound: an accessor kept by an @inline + -- never@ veto reaches this pass as a binding, and its reads are + -- already references. + boundNames ∷ Set QName + boundNames = + Set.fromList (fst <$> (listGrouping =<< uberModuleBindings)) + + modulesWithForeign ∷ Set ModuleName + modulesWithForeign = + Set.fromList + [ qnameModuleName qname + | Standalone (qname, ForeignImport {}) ← uberModuleBindings + ] + + rewriteExp ∷ Exp → Exp + rewriteExp = transformOf subexpressions \node → + case foreignAccessorQName node of + Just qname@(QName modname name) + | isNothing (getAnn node) + , qname `Map.member` shared → + refImported modname name + _ → node + + insertAccessorBindings + ∷ [Grouping (QName, Exp)] → [Grouping (QName, Exp)] + insertAccessorBindings = concatMap \case + grouping@(Standalone (qname, ForeignImport {})) → + grouping + : [ Standalone (accessor, rhs) + | (accessor, rhs) ← Map.toAscList shared + , qnameModuleName accessor == qnameModuleName qname + ] + grouping → [grouping] + {- | Every inlining directive of the module, keyed by binding name. Collected once from the pristine module: later rewrites can drop an annotation off its node (e.g. constant folding replaces a binding's root diff --git a/lib/Language/PureScript/Backend/Lua/ForeignLift.hs b/lib/Language/PureScript/Backend/Lua/ForeignLift.hs index e981c0c1..c65770a2 100644 --- a/lib/Language/PureScript/Backend/Lua/ForeignLift.hs +++ b/lib/Language/PureScript/Backend/Lua/ForeignLift.hs @@ -86,6 +86,7 @@ import Control.Monad.Oops qualified as Oops import Data.Map.Strict qualified as Map import Data.Set qualified as Set import Data.Tagged (Tagged, untag) +import Language.PureScript.Backend.IR.Inliner qualified as Inline import Language.PureScript.Backend.IR.Linker (UberModule (..)) import Language.PureScript.Backend.IR.Names ( ModuleName @@ -242,7 +243,15 @@ liftForeigns case expr of ObjectProp ann _ _ | qname `Set.member` allowlist → case liftAccessor sources qname of - Just lifted → pure (Right (qname, setAnn ann lifted)) + -- A lifted body exists to beta-reduce at saturated call + -- sites, so it is marked @inline always@ here: without the + -- annotation a multi-use lifted body — an abstraction, not + -- a cheap projection — would stay a shared binding and its + -- call sites would never reduce (see Note [Inline + -- annotations and inlining heuristics]). An explicit + -- pragma still wins. + Just lifted → + pure (Right (qname, setAnn (ann <|> Just Inline.Always) lifted)) Nothing → Oops.throw (NotLiftable qname) _ → pure (Left entry) let (keptForeigns, liftedBindings) = partitionEithers results diff --git a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs index 84d4b75c..8919cb98 100644 --- a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs +++ b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs @@ -37,6 +37,7 @@ import Language.PureScript.Backend.IR.Optimizer import Language.PureScript.Backend.IR.Supply (runSupply) import Language.PureScript.Backend.IR.Types ( AlgebraicType (ProductType, SumType) + , Ann , Capture (..) , Exp , Grouping (..) @@ -1674,6 +1675,85 @@ spec = describe "IR Optimizer" do annotateShow optimized accessorKept === [(QName mainModule (Name "x"), Just Never)] + describe "shares multi-use foreign accessors (issue #248)" do + -- With stage-2 promotion a kept accessor binding becomes a chunk + -- local, so at two or more use sites the shared form beats a field + -- read repeated per site. An unannotated accessor therefore + -- dissolves only into a single use site; @inline always@ restores + -- per-site dissolution at any use count. + let mainModule = moduleNameFromString "Main" + moduleWith ∷ [Grouping (Ann, Name, Exp)] → [Name] → Ann → Module + moduleWith bindings exports foreignAnn = + Module + { moduleName = mainModule + , moduleBindings = bindings + , moduleImports = [] + , moduleExports = exports + , moduleReExports = Map.empty + , moduleForeigns = [(foreignAnn, Name "x")] + , modulePath = "Main.purs" + } + checked = + either (fail . show) pure + . optimizedUberModuleChecked + . Linker.makeUberModule (LinkAsModule mainModule) + . pure + accessorBindings ∷ Linker.UberModule → [QName] + accessorBindings optimized = + [ qn + | Standalone (qn, ObjectProp {}) ← + Linker.uberModuleBindings optimized + ] + xAccessor ∷ Ann → Exp + xAccessor ann = + setAnn ann $ + objectProp + (refImported mainModule (Name "foreign")) + (PropName "x") + + it "keeps an unannotated accessor referenced twice" do + optimized ← + checked $ + moduleWith + [ Standalone (noAnn, Name "a", refLocal (Name "x")) + , Standalone (noAnn, Name "b", refLocal (Name "x")) + ] + [Name "a", Name "b"] + noAnn + accessorBindings optimized `shouldBe` [QName mainModule (Name "x")] + -- Both use sites reference the shared binding instead of + -- re-reading the field off the foreign table. + Linker.uberModuleExports optimized + `shouldBe` [ (Name "a", refImported mainModule (Name "x")) + , (Name "b", refImported mainModule (Name "x")) + ] + + it "dissolves an unannotated accessor used once" do + optimized ← + checked $ + moduleWith + [Standalone (noAnn, Name "a", refLocal (Name "x"))] + [Name "a"] + noAnn + accessorBindings optimized `shouldBe` [] + Linker.uberModuleExports optimized + `shouldBe` [(Name "a", xAccessor noAnn)] + + it "dissolves a twice-referenced accessor annotated @inline always" do + optimized ← + checked $ + moduleWith + [ Standalone (noAnn, Name "a", refLocal (Name "x")) + , Standalone (noAnn, Name "b", refLocal (Name "x")) + ] + [Name "a", Name "b"] + (Just Always) + accessorBindings optimized `shouldBe` [] + Linker.uberModuleExports optimized + `shouldBe` [ (Name "a", xAccessor (Just Always)) + , (Name "b", xAccessor (Just Always)) + ] + describe "counts free references against the live module (#143)" do -- Within a single 'optimizeModule' run the use-once check must consult -- the current (post-substitution) view of the module, not a stale diff --git a/test/ps/output/Golden.Annotations.M1/golden.ir b/test/ps/output/Golden.Annotations.M1/golden.ir index d848db85..6e5f24db 100644 --- a/test/ps/output/Golden.Annotations.M1/golden.ir +++ b/test/ps/output/Golden.Annotations.M1/golden.ir @@ -17,7 +17,7 @@ UberModule ( Ref Nothing ( Local ( Name "v$0" ) ) ) ) ), - ( Name "dontInlineClosure", ObjectProp ( Just Always ) + ( Name "dontInlineClosure", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Annotations.M1" ) ( Name "foreign" ) ) ) ( PropName "dontInlineClosure" ) ), diff --git a/test/ps/output/Golden.Annotations.M2/golden.ir b/test/ps/output/Golden.Annotations.M2/golden.ir index 88d6fc35..62d4443d 100644 --- a/test/ps/output/Golden.Annotations.M2/golden.ir +++ b/test/ps/output/Golden.Annotations.M2/golden.ir @@ -36,7 +36,7 @@ UberModule ) ), ( Name "inlineIntoMe2", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Annotations.M1" ) ( Name "foreign" ) ) ) ( PropName "dontInlineClosure" ) ) diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir index 2174ccac..f7451314 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir @@ -36,11 +36,11 @@ UberModule { qnameModuleName = ModuleName "Data.Foldable", qnameName = Name "foldableArray" }, LiteralObject Nothing [ - ( PropName "foldr", ObjectProp ( Just Always ) + ( PropName "foldr", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Foldable" ) ( Name "foreign" ) ) ) ( PropName "foldrArray" ) ), - ( PropName "foldl", ObjectProp ( Just Always ) + ( PropName "foldl", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Foldable" ) ( Name "foreign" ) ) ) ( PropName "foldlArray" ) ), @@ -114,7 +114,7 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" }, LiteralObject Nothing [ - ( PropName "bind", ObjectProp ( Just Always ) + ( PropName "bind", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), @@ -131,7 +131,7 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" }, LiteralObject Nothing [ - ( PropName "pure", ObjectProp ( Just Always ) + ( PropName "pure", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), @@ -292,7 +292,7 @@ UberModule }, AbsN Nothing ( ParamNamed Nothing ( Name "dictShow" ) :| [ ParamNamed Nothing ( Name "a" ) ] ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) @@ -437,7 +437,7 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", ObjectProp ( Just Always ) + ( PropName "show", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) diff --git a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir index 049205e2..fbc13768 100644 --- a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir +++ b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.ir @@ -7,12 +7,24 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ArrayPatternMatch.Test", qnameName = Name "lastOfThree" }, AbsN Nothing @@ -56,15 +68,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( Let Nothing ( Standalone ( Nothing, Name "v$235", LiteralArray Nothing @@ -90,15 +96,9 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( Let Nothing ( Standalone ( Nothing, Name "v$242", LiteralArray Nothing @@ -123,15 +123,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( IfThenElse Nothing ( Eq Nothing ( LiteralInt Nothing 2 ) @@ -151,15 +145,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( Let Nothing ( Standalone ( Nothing, Name "v$256", LiteralArray Nothing diff --git a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua index 36248816..2f1bc162 100644 --- a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua +++ b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua @@ -1,8 +1,10 @@ local M = {} local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log M.Golden_ArrayPatternMatch_Test_lastOfThree = function(v) if 3 == #(v) then return v[3] else return -1 end end @@ -10,18 +12,18 @@ M.Golden_ArrayPatternMatch_Test_firstTwo = function(v) if 2 == #(v) then return v[1] + v[2] else return -1 end end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local _ = Effect_Console_log(Data_Show_showIntImpl((function() local v_S_235 = { [1] = 10, [2] = 20 } if 2 == #(v_S_235) then return v_S_235[1] + v_S_235[2] else return -1 end end)()))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local _ = Effect_Console_log(Data_Show_showIntImpl((function() local v_S_242 = { [1] = 1, [2] = 2, [3] = 3 } if 2 == #(v_S_242) then return v_S_242[1] + v_S_242[2] else return -1 end end)()))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local _ = Effect_Console_log(Data_Show_showIntImpl((function() if 2 == #({}) then return ({})[1] + ({})[2] else return -1 end end)()))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + return Effect_Console_log(Data_Show_showIntImpl((function() local v_S_256 = { [1] = 7, [2] = 8, [3] = 9 } if 3 == #(v_S_256) then return v_S_256[3] else return -1 end end)()))() diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir index 5385c1f7..22ed46a9 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir @@ -13,6 +13,12 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Type.Proxy", qnameName = Name "Proxy" }, Ctor Nothing ProductType @@ -117,7 +123,7 @@ UberModule ) :| [ Standalone ( Nothing, Name "get", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Record.Unsafe" ) ( Name "foreign" ) ) ) @@ -567,10 +573,7 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$270" ) ) ) ( LiteralString Nothing "true" ) @@ -651,12 +654,7 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$271" ) ) ) ( LiteralString Nothing "true" ) @@ -706,10 +704,7 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$272" ) ) ) ( LiteralString Nothing "true" ) diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.lua b/test/ps/output/Golden.BugListGenericEq.Test/golden.lua index 87aac1c9..5882a0f4 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.lua +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.lua @@ -5,6 +5,7 @@ local Record_Unsafe_foreign = { local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Type_Proxy_Proxy = {} local Data_HeytingAlgebra_heytingAlgebraBoolean Data_HeytingAlgebra_heytingAlgebraBoolean = { @@ -146,7 +147,7 @@ end return (function() local _ = (function() local a_S_2_S_270 = Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_Nil)(Golden_BugListGenericEq_Test_Nil) - return Effect_Console_foreign.log((function() + return Effect_Console_log((function() if a_S_2_S_270 then return "true" elseif false == a_S_2_S_270 then @@ -158,7 +159,7 @@ return (function() end)()() local _ = (function() local a_S_2_S_271 = Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil)))(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil))) - return Effect_Console_foreign.log((function() + return Effect_Console_log((function() if a_S_2_S_271 then return "true" elseif false == a_S_2_S_271 then @@ -170,7 +171,7 @@ return (function() end)()() return (function() local a_S_2_S_272 = Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_cons_S_w(1, Golden_BugListGenericEq_Test_Nil))(Golden_BugListGenericEq_Test_cons_S_w(2, Golden_BugListGenericEq_Test_Nil)) - return Effect_Console_foreign.log((function() + return Effect_Console_log((function() if a_S_2_S_272 then return "true" elseif false == a_S_2_S_272 then diff --git a/test/ps/output/Golden.CharLiterals.Test/golden.ir b/test/ps/output/Golden.CharLiterals.Test/golden.ir index ed88c53f..67436abd 100644 --- a/test/ps/output/Golden.CharLiterals.Test/golden.ir +++ b/test/ps/output/Golden.CharLiterals.Test/golden.ir @@ -13,6 +13,12 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.CharLiterals.Test", qnameName = Name "show" }, ObjectProp Nothing @@ -27,10 +33,7 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) @@ -43,10 +46,7 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) @@ -58,10 +58,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) @@ -73,10 +70,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) @@ -88,10 +82,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) @@ -103,10 +94,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.CharLiterals.Test" ) ( Name "show" ) ) @@ -118,10 +106,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "true" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) @@ -130,10 +115,7 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( Let Nothing ( Standalone ( Nothing, Name "v$111$230", Eq Nothing diff --git a/test/ps/output/Golden.CharLiterals.Test/golden.lua b/test/ps/output/Golden.CharLiterals.Test/golden.lua index 6884bf25..f8bad8a6 100644 --- a/test/ps/output/Golden.CharLiterals.Test/golden.lua +++ b/test/ps/output/Golden.CharLiterals.Test/golden.lua @@ -18,16 +18,17 @@ local Data_Show_foreign = { local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Golden_CharLiterals_Test_show = Data_Show_foreign.showCharImpl return (function() - local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\n"))() - local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\t"))() - local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\r"))() - local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\'"))() - local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\\"))() - local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("a"))() - local _ = Effect_Console_foreign.log("true")() - return Effect_Console_foreign.log((function() + local _ = Effect_Console_log(Golden_CharLiterals_Test_show("\n"))() + local _ = Effect_Console_log(Golden_CharLiterals_Test_show("\t"))() + local _ = Effect_Console_log(Golden_CharLiterals_Test_show("\r"))() + local _ = Effect_Console_log(Golden_CharLiterals_Test_show("\'"))() + local _ = Effect_Console_log(Golden_CharLiterals_Test_show("\\"))() + local _ = Effect_Console_log(Golden_CharLiterals_Test_show("a"))() + local _ = Effect_Console_log("true")() + return Effect_Console_log((function() local v_S_111_S_230 = "Data.Ordering∷Ordering.LT" == (function() if "\t" < "\n" then return "Data.Ordering∷Ordering.LT" diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir index 4a13f12d..c700601b 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir @@ -7,12 +7,24 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DerivedFunctor.Test", qnameName = Name "Leaf" }, Ctor Nothing SumType @@ -277,15 +289,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported @@ -309,15 +315,9 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported @@ -342,15 +342,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "sumTree" ) ) diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.lua b/test/ps/output/Golden.DerivedFunctor.Test/golden.lua index d9ddade7..1738fceb 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.lua +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.lua @@ -1,8 +1,10 @@ local M = {} local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Golden_DerivedFunctor_Test_Leaf = { ["$ctor"] = "Golden.DerivedFunctor.Test∷Tree.Leaf" } @@ -77,9 +79,9 @@ local Golden_DerivedFunctor_Test_fromRight_S_w = function(fallback, v) end end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(0, Golden_DerivedFunctor_Test_Right(42))))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(7, Golden_DerivedFunctor_Test_Left("no"))))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_sumTree(Golden_DerivedFunctor_Test_functorTree.map(function( v1_S_2 ) + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(0, Golden_DerivedFunctor_Test_Right(42))))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(7, Golden_DerivedFunctor_Test_Left("no"))))() + return Effect_Console_log(Data_Show_showIntImpl(Golden_DerivedFunctor_Test_sumTree(Golden_DerivedFunctor_Test_functorTree.map(function( v1_S_2 ) return v1_S_2 * 2 end)(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Leaf)(1)(Golden_DerivedFunctor_Test_Leaf))(2)(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Leaf)(3)(Golden_DerivedFunctor_Test_Leaf))))))() end)() diff --git a/test/ps/output/Golden.Fibonacci.Test/golden.ir b/test/ps/output/Golden.Fibonacci.Test/golden.ir index d7243e66..bcee986c 100644 --- a/test/ps/output/Golden.Fibonacci.Test/golden.ir +++ b/test/ps/output/Golden.Fibonacci.Test/golden.ir @@ -67,12 +67,12 @@ UberModule ( Imported ( ModuleName "Golden.Fibonacci.Test" ) ( Name "fib" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) diff --git a/test/ps/output/Golden.FieldCaching.Test/golden.ir b/test/ps/output/Golden.FieldCaching.Test/golden.ir index e3cd59d9..a48e5c57 100644 --- a/test/ps/output/Golden.FieldCaching.Test/golden.ir +++ b/test/ps/output/Golden.FieldCaching.Test/golden.ir @@ -7,12 +7,24 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FieldCaching.Test", qnameName = Name "sub$w" }, AbsN Nothing @@ -218,15 +230,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( PrimBinOp Nothing PrimAdd ( AppN Nothing ( Ref Nothing @@ -248,15 +254,9 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "weigh" ) ) @@ -269,15 +269,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "sumLoop$w" ) ) @@ -290,15 +284,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( PrimBinOp Nothing PrimAdd ( AppN Nothing ( Ref Nothing @@ -331,15 +319,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FieldCaching.Test" ) ( Name "apply2" ) ) diff --git a/test/ps/output/Golden.FieldCaching.Test/golden.lua b/test/ps/output/Golden.FieldCaching.Test/golden.lua index 86571392..e7d34ee5 100644 --- a/test/ps/output/Golden.FieldCaching.Test/golden.lua +++ b/test/ps/output/Golden.FieldCaching.Test/golden.lua @@ -1,8 +1,10 @@ local M = {} local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Golden_FieldCaching_Test_sub_S_w = function(x_S_188_S_219, y_S_189_S_220) return x_S_188_S_219 - y_S_189_S_220 end @@ -49,11 +51,11 @@ M.Golden_FieldCaching_Test_closed = function(x) end) end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(1) + Golden_FieldCaching_Test_weigh(2)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(10)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_sumLoop_S_w(0, 4)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(5, 1)) + Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(5, 2))))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_apply2(function( y_S_263 ) + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_FieldCaching_Test_weigh(1) + Golden_FieldCaching_Test_weigh(2)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_FieldCaching_Test_weigh(10)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_FieldCaching_Test_sumLoop_S_w(0, 4)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(5, 1)) + Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(5, 2))))() + return Effect_Console_log(Data_Show_showIntImpl(Golden_FieldCaching_Test_apply2(function( y_S_263 ) return Golden_FieldCaching_Test_weigh(5) + Golden_FieldCaching_Test_weigh(y_S_263) end)))() end)() diff --git a/test/ps/output/Golden.FloatIn.Test/golden.ir b/test/ps/output/Golden.FloatIn.Test/golden.ir index a25c1d1d..9178c0fb 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.ir +++ b/test/ps/output/Golden.FloatIn.Test/golden.ir @@ -13,18 +13,36 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Golden.FloatIn.Test" ) "src/Golden/FloatIn/Test.purs" [ ( Nothing, Name "tick" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "tick" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "foreign" ) ) ) + ( PropName "tick" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.FloatIn.Test", qnameName = Name "pickShared$w" }, AbsN Nothing @@ -34,12 +52,7 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "shared", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "foreign" ) ) - ) - ( PropName "tick" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "tick" ) ) ) ( Ref Nothing ( Local ( Name "n" ) ) :| [] ) ) :| [] ) @@ -112,9 +125,8 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "tick", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "foreign" ) ) ) - ( PropName "tick" ) + ( Name "tick", Ref Nothing + ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "tick" ) ) ), ( Name "expensive", Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "expensive" ) ) @@ -153,15 +165,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) @@ -175,15 +181,9 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) @@ -196,15 +196,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) @@ -219,15 +213,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) ) diff --git a/test/ps/output/Golden.FloatIn.Test/golden.lua b/test/ps/output/Golden.FloatIn.Test/golden.lua index 0b590dea..87aa0556 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.lua +++ b/test/ps/output/Golden.FloatIn.Test/golden.lua @@ -1,15 +1,18 @@ local M = {} local 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 = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Golden_FloatIn_Test_foreign = { tick = function(n) print("tick") return n + n end } +local Golden_FloatIn_Test_tick = Golden_FloatIn_Test_foreign.tick local Golden_FloatIn_Test_pickShared_S_w = function(useIt, n) if useIt then - local shared = Golden_FloatIn_Test_foreign.tick(n) + 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) else @@ -26,8 +29,8 @@ local Golden_FloatIn_Test_pick_S_w = function(useIt, n) end end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pick_S_w(true, 3)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pick_S_w(false, 3)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pickShared_S_w(true, 3)))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pickShared_S_w(false, 3)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_FloatIn_Test_pick_S_w(true, 3)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_FloatIn_Test_pick_S_w(false, 3)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_FloatIn_Test_pickShared_S_w(true, 3)))() + return Effect_Console_log(Data_Show_showIntImpl(Golden_FloatIn_Test_pickShared_S_w(false, 3)))() end)() diff --git a/test/ps/output/Golden.Foreign.Lib/golden.ir b/test/ps/output/Golden.Foreign.Lib/golden.ir index 9c53d20b..33c53ecf 100644 --- a/test/ps/output/Golden.Foreign.Lib/golden.ir +++ b/test/ps/output/Golden.Foreign.Lib/golden.ir @@ -9,11 +9,11 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "dead", ObjectProp ( Just Always ) + ( Name "dead", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Foreign.Lib" ) ( Name "foreign" ) ) ) ( PropName "dead" ) ), - ( Name "alive", ObjectProp ( Just Always ) + ( Name "alive", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Foreign.Lib" ) ( Name "foreign" ) ) ) ( PropName "alive" ) ) diff --git a/test/ps/output/Golden.Foreign.Test/golden.ir b/test/ps/output/Golden.Foreign.Test/golden.ir index 76ffb232..3a0652d8 100644 --- a/test/ps/output/Golden.Foreign.Test/golden.ir +++ b/test/ps/output/Golden.Foreign.Test/golden.ir @@ -15,14 +15,14 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "foo", ObjectProp ( Just Always ) + ( Name "foo", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Foreign.Test" ) ( Name "foreign" ) ) ) ( PropName "foo" ) ), ( Name "baz", LiteralArray Nothing - [ ObjectProp ( Just Always ) + [ ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Foreign.Test" ) ( Name "foreign" ) ) ) - ( PropName "boo" ), ObjectProp ( Just Always ) + ( PropName "boo" ), ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Foreign.Lib" ) ( Name "foreign" ) ) ) ( PropName "alive" ) ] diff --git a/test/ps/output/Golden.ForeignSharing.Test/golden.ir b/test/ps/output/Golden.ForeignSharing.Test/golden.ir index ed40606f..8021c27d 100644 --- a/test/ps/output/Golden.ForeignSharing.Test/golden.ir +++ b/test/ps/output/Golden.ForeignSharing.Test/golden.ir @@ -13,6 +13,14 @@ UberModule ( ModuleName "Golden.ForeignSharing.Token" ) "src/Golden/ForeignSharing/Token.purs" [ ( Nothing, Name "token" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.ForeignSharing.Token", qnameName = Name "token" + }, ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "foreign" ) ) + ) + ( PropName "token" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ForeignSharing.Test", qnameName = Name "foreign" }, ForeignImport Nothing @@ -22,31 +30,25 @@ UberModule ], uberModuleForeigns = [], uberModuleExports = [ ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) ( IfThenElse Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ForeignSharing.Test" ) ( Name "foreign" ) ) ) ( PropName "same" ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "foreign" ) ) - ) - ( PropName "token" ) :| [] - ) - ) - ( ObjectProp ( Just Always ) ( Ref Nothing - ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "foreign" ) ) + ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "token" ) ) :| [] ) - ( PropName "token" ) :| [] + ) + ( Ref Nothing + ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "token" ) ) :| [] ) ) ( LiteralString Nothing "shared" ) diff --git a/test/ps/output/Golden.ForeignSharing.Test/golden.lua b/test/ps/output/Golden.ForeignSharing.Test/golden.lua index 95b99fbd..943c913e 100644 --- a/test/ps/output/Golden.ForeignSharing.Test/golden.lua +++ b/test/ps/output/Golden.ForeignSharing.Test/golden.lua @@ -2,11 +2,12 @@ local Effect_Console_foreign = { log = function(s) return function() print(s) end end } local Golden_ForeignSharing_Token_foreign = { token = {} } +local Golden_ForeignSharing_Token_token = Golden_ForeignSharing_Token_foreign.token local Golden_ForeignSharing_Test_foreign = { same = function(a) return function(b) return rawequal(a, b) end end } return Effect_Console_foreign.log((function() - if Golden_ForeignSharing_Test_foreign.same(Golden_ForeignSharing_Token_foreign.token)(Golden_ForeignSharing_Token_foreign.token) then + if Golden_ForeignSharing_Test_foreign.same(Golden_ForeignSharing_Token_token)(Golden_ForeignSharing_Token_token) then return "shared" else return "fresh" diff --git a/test/ps/output/Golden.ForeignSharing.Token/golden.ir b/test/ps/output/Golden.ForeignSharing.Token/golden.ir index 40663808..fe91ac1c 100644 --- a/test/ps/output/Golden.ForeignSharing.Token/golden.ir +++ b/test/ps/output/Golden.ForeignSharing.Token/golden.ir @@ -9,7 +9,7 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "token", ObjectProp ( Just Always ) + ( Name "token", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ForeignSharing.Token" ) ( Name "foreign" ) ) ) diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir index 5e094972..9c96ed87 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir @@ -13,6 +13,12 @@ UberModule ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Type.Proxy", qnameName = Name "Proxy" }, Ctor Nothing ProductType @@ -132,7 +138,7 @@ UberModule ) :| [ Standalone ( Nothing, Name "get", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Record.Unsafe" ) ( Name "foreign" ) ) ) @@ -921,10 +927,7 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$300" ) ) ) ( LiteralString Nothing "true" ) @@ -985,12 +988,7 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$301" ) ) ) ( LiteralString Nothing "true" ) @@ -1086,12 +1084,7 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$302" ) ) ) ( LiteralString Nothing "true" ) @@ -1155,10 +1148,7 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$303" ) ) ) ( LiteralString Nothing "true" ) diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua index 7bba1214..c05174e0 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua @@ -4,6 +4,7 @@ local Record_Unsafe_foreign = { local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Type_Proxy_Proxy = {} local Data_HeytingAlgebra_heytingAlgebraBoolean Data_HeytingAlgebra_heytingAlgebraBoolean = { @@ -196,7 +197,7 @@ end return (function() local _ = (function() local a_S_2_S_300 = Golden_GenericEqTwoTypes_Test_eq1(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil)))(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil))) - return Effect_Console_foreign.log((function() + return Effect_Console_log((function() if a_S_2_S_300 then return "true" elseif false == a_S_2_S_300 then @@ -208,7 +209,7 @@ return (function() end)()() local _ = (function() local a_S_2_S_301 = Golden_GenericEqTwoTypes_Test_eq1(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_Nil))(Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil)) - return Effect_Console_foreign.log((function() + return Effect_Console_log((function() if a_S_2_S_301 then return "true" elseif false == a_S_2_S_301 then @@ -220,7 +221,7 @@ return (function() end)()() local _ = (function() local a_S_2_S_302 = Golden_GenericEqTwoTypes_Test_eq(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf)))(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf))) - return Effect_Console_foreign.log((function() + return Effect_Console_log((function() if a_S_2_S_302 then return "true" elseif false == a_S_2_S_302 then @@ -232,7 +233,7 @@ return (function() end)()() return (function() local a_S_2_S_303 = Golden_GenericEqTwoTypes_Test_eq(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 1, Golden_GenericEqTwoTypes_Test_Leaf))(Golden_GenericEqTwoTypes_Test_node_S_w(Golden_GenericEqTwoTypes_Test_Leaf, 2, Golden_GenericEqTwoTypes_Test_Leaf)) - return Effect_Console_foreign.log((function() + return Effect_Console_log((function() if a_S_2_S_303 then return "true" elseif false == a_S_2_S_303 then diff --git a/test/ps/output/Golden.HelloPrelude.Test/golden.ir b/test/ps/output/Golden.HelloPrelude.Test/golden.ir index 1e44bd57..03ea1cb6 100644 --- a/test/ps/output/Golden.HelloPrelude.Test/golden.ir +++ b/test/ps/output/Golden.HelloPrelude.Test/golden.ir @@ -33,7 +33,7 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" }, LiteralObject Nothing [ - ( PropName "bind", ObjectProp ( Just Always ) + ( PropName "bind", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), @@ -50,7 +50,7 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" }, LiteralObject Nothing [ - ( PropName "pure", ObjectProp ( Just Always ) + ( PropName "pure", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), diff --git a/test/ps/output/Golden.Issue37.Test/golden.ir b/test/ps/output/Golden.Issue37.Test/golden.ir index aa689aa0..ebdbeab0 100644 --- a/test/ps/output/Golden.Issue37.Test/golden.ir +++ b/test/ps/output/Golden.Issue37.Test/golden.ir @@ -33,7 +33,7 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" }, LiteralObject Nothing [ - ( PropName "bind", ObjectProp ( Just Always ) + ( PropName "bind", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), @@ -50,7 +50,7 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" }, LiteralObject Nothing [ - ( PropName "pure", ObjectProp ( Just Always ) + ( PropName "pure", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.ir b/test/ps/output/Golden.LongApplyChain.Test/golden.ir index 8617edb9..b489a0cd 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.ir +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.ir @@ -4777,7 +4777,7 @@ UberModule ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir index 4eb242ae..c0395397 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir @@ -4230,7 +4230,7 @@ UberModule ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir index 4b7ab861..6616aecc 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir @@ -5325,12 +5325,12 @@ UberModule ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) diff --git a/test/ps/output/Golden.LongDoBlock.Test/golden.ir b/test/ps/output/Golden.LongDoBlock.Test/golden.ir index 059fec85..9fae446a 100644 --- a/test/ps/output/Golden.LongDoBlock.Test/golden.ir +++ b/test/ps/output/Golden.LongDoBlock.Test/golden.ir @@ -6,6 +6,12 @@ UberModule }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -15,10 +21,7 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "1" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) @@ -26,1490 +29,1043 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "2" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "3" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "4" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "5" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "6" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "7" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "8" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "9" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "10" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "11" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "12" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "13" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "14" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "15" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "16" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "17" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "18" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "19" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "20" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "21" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "22" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "23" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "24" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "25" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "26" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "27" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "28" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "29" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "30" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "31" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "32" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "33" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "34" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "35" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "36" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "37" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "38" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "39" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "40" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "41" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "42" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "43" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "44" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "45" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "46" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "47" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "48" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "49" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "50" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "51" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "52" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "53" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "54" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "55" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "56" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "57" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "58" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "59" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "60" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "61" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "62" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "63" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "64" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "65" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "66" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "67" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "68" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "69" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "70" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "71" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "72" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "73" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "74" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "75" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "76" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "77" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "78" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "79" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "80" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "81" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "82" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "83" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "84" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "85" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "86" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "87" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "88" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "89" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "90" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "91" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "92" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "93" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "94" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "95" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "96" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "97" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "98" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "99" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "100" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "101" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "102" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "103" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "104" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "105" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "106" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "107" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "108" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "109" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "110" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "111" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "112" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "113" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "114" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "115" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "116" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "117" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "118" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "119" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "120" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "121" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "122" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "123" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "124" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "125" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "126" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "127" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "128" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "129" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "130" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "131" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "132" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "133" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "134" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "135" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "136" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "137" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "138" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "139" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "140" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "141" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "142" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "143" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "144" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "145" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "146" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "147" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "148" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "149" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "150" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) @@ -1523,12 +1079,7 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "151" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) @@ -1536,12 +1087,7 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "152" :| [] ) ) ( Ref Nothing @@ -1550,12 +1096,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "153" :| [] ) ) ( Ref Nothing @@ -1564,12 +1105,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "154" :| [] ) ) ( Ref Nothing @@ -1578,12 +1114,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "155" :| [] ) ) ( Ref Nothing @@ -1592,12 +1123,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "156" :| [] ) ) ( Ref Nothing @@ -1606,12 +1132,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "157" :| [] ) ) ( Ref Nothing @@ -1620,12 +1141,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "158" :| [] ) ) ( Ref Nothing @@ -1634,12 +1150,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "159" :| [] ) ) ( Ref Nothing @@ -1648,12 +1159,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "160" :| [] ) ) ( Ref Nothing @@ -1662,12 +1168,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "161" :| [] ) ) ( Ref Nothing @@ -1676,12 +1177,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "162" :| [] ) ) ( Ref Nothing @@ -1690,12 +1186,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "163" :| [] ) ) ( Ref Nothing @@ -1704,12 +1195,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "164" :| [] ) ) ( Ref Nothing @@ -1718,12 +1204,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "165" :| [] ) ) ( Ref Nothing @@ -1732,12 +1213,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "166" :| [] ) ) ( Ref Nothing @@ -1746,12 +1222,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "167" :| [] ) ) ( Ref Nothing @@ -1760,12 +1231,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "168" :| [] ) ) ( Ref Nothing @@ -1774,12 +1240,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "169" :| [] ) ) ( Ref Nothing @@ -1788,12 +1249,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "170" :| [] ) ) ( Ref Nothing @@ -1802,12 +1258,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "171" :| [] ) ) ( Ref Nothing @@ -1816,12 +1267,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "172" :| [] ) ) ( Ref Nothing @@ -1830,12 +1276,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "173" :| [] ) ) ( Ref Nothing @@ -1844,12 +1285,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "174" :| [] ) ) ( Ref Nothing @@ -1858,12 +1294,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "175" :| [] ) ) ( Ref Nothing @@ -1872,12 +1303,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "176" :| [] ) ) ( Ref Nothing @@ -1886,12 +1312,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "177" :| [] ) ) ( Ref Nothing @@ -1900,12 +1321,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "178" :| [] ) ) ( Ref Nothing @@ -1914,12 +1330,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "179" :| [] ) ) ( Ref Nothing @@ -1928,12 +1339,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "180" :| [] ) ) ( Ref Nothing @@ -1942,12 +1348,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "181" :| [] ) ) ( Ref Nothing @@ -1956,12 +1357,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "182" :| [] ) ) ( Ref Nothing @@ -1970,12 +1366,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "183" :| [] ) ) ( Ref Nothing @@ -1984,12 +1375,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "184" :| [] ) ) ( Ref Nothing @@ -1998,12 +1384,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "185" :| [] ) ) ( Ref Nothing @@ -2012,12 +1393,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "186" :| [] ) ) ( Ref Nothing @@ -2026,12 +1402,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "187" :| [] ) ) ( Ref Nothing @@ -2040,12 +1411,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "188" :| [] ) ) ( Ref Nothing @@ -2054,12 +1420,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "189" :| [] ) ) ( Ref Nothing @@ -2068,12 +1429,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "190" :| [] ) ) ( Ref Nothing @@ -2082,12 +1438,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "191" :| [] ) ) ( Ref Nothing @@ -2096,12 +1447,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "192" :| [] ) ) ( Ref Nothing @@ -2110,12 +1456,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "193" :| [] ) ) ( Ref Nothing @@ -2124,12 +1465,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "194" :| [] ) ) ( Ref Nothing @@ -2138,12 +1474,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "195" :| [] ) ) ( Ref Nothing @@ -2152,12 +1483,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "196" :| [] ) ) ( Ref Nothing @@ -2166,12 +1492,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "197" :| [] ) ) ( Ref Nothing @@ -2180,12 +1501,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "198" :| [] ) ) ( Ref Nothing @@ -2194,12 +1510,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "199" :| [] ) ) ( Ref Nothing @@ -2208,12 +1519,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "200" :| [] ) ) ( Ref Nothing @@ -2222,12 +1528,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "201" :| [] ) ) ( Ref Nothing @@ -2236,12 +1537,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "202" :| [] ) ) ( Ref Nothing @@ -2250,12 +1546,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "203" :| [] ) ) ( Ref Nothing @@ -2264,12 +1555,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "204" :| [] ) ) ( Ref Nothing @@ -2278,12 +1564,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "205" :| [] ) ) ( Ref Nothing @@ -2292,12 +1573,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "206" :| [] ) ) ( Ref Nothing @@ -2306,12 +1582,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "207" :| [] ) ) ( Ref Nothing @@ -2320,12 +1591,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "208" :| [] ) ) ( Ref Nothing @@ -2334,12 +1600,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "209" :| [] ) ) ( Ref Nothing @@ -2348,12 +1609,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "210" :| [] ) ) ( Ref Nothing @@ -2362,12 +1618,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "211" :| [] ) ) ( Ref Nothing @@ -2376,12 +1627,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "212" :| [] ) ) ( Ref Nothing @@ -2390,12 +1636,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "213" :| [] ) ) ( Ref Nothing @@ -2404,12 +1645,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "214" :| [] ) ) ( Ref Nothing @@ -2418,12 +1654,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "215" :| [] ) ) ( Ref Nothing @@ -2432,12 +1663,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "216" :| [] ) ) ( Ref Nothing @@ -2446,12 +1672,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "217" :| [] ) ) ( Ref Nothing @@ -2460,12 +1681,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "218" :| [] ) ) ( Ref Nothing @@ -2474,12 +1690,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "219" :| [] ) ) ( Ref Nothing @@ -2488,12 +1699,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "220" :| [] ) ) ( Ref Nothing @@ -2502,12 +1708,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "221" :| [] ) ) ( Ref Nothing @@ -2516,12 +1717,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "222" :| [] ) ) ( Ref Nothing @@ -2530,12 +1726,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "223" :| [] ) ) ( Ref Nothing @@ -2544,12 +1735,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "224" :| [] ) ) ( Ref Nothing @@ -2558,12 +1744,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "225" :| [] ) ) ( Ref Nothing @@ -2572,12 +1753,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "226" :| [] ) ) ( Ref Nothing @@ -2586,12 +1762,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "227" :| [] ) ) ( Ref Nothing @@ -2600,12 +1771,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "228" :| [] ) ) ( Ref Nothing @@ -2614,12 +1780,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "229" :| [] ) ) ( Ref Nothing @@ -2628,12 +1789,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "230" :| [] ) ) ( Ref Nothing @@ -2642,12 +1798,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "231" :| [] ) ) ( Ref Nothing @@ -2656,12 +1807,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "232" :| [] ) ) ( Ref Nothing @@ -2670,12 +1816,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "233" :| [] ) ) ( Ref Nothing @@ -2684,12 +1825,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "234" :| [] ) ) ( Ref Nothing @@ -2698,12 +1834,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "235" :| [] ) ) ( Ref Nothing @@ -2712,12 +1843,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "236" :| [] ) ) ( Ref Nothing @@ -2726,12 +1852,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "237" :| [] ) ) ( Ref Nothing @@ -2740,12 +1861,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "238" :| [] ) ) ( Ref Nothing @@ -2754,12 +1870,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "239" :| [] ) ) ( Ref Nothing @@ -2768,12 +1879,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "240" :| [] ) ) ( Ref Nothing @@ -2782,12 +1888,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "241" :| [] ) ) ( Ref Nothing @@ -2796,12 +1897,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "242" :| [] ) ) ( Ref Nothing @@ -2810,12 +1906,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "243" :| [] ) ) ( Ref Nothing @@ -2824,12 +1915,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "244" :| [] ) ) ( Ref Nothing @@ -2838,12 +1924,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "245" :| [] ) ) ( Ref Nothing @@ -2852,12 +1933,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "246" :| [] ) ) ( Ref Nothing @@ -2866,12 +1942,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "247" :| [] ) ) ( Ref Nothing @@ -2880,12 +1951,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "248" :| [] ) ) ( Ref Nothing @@ -2894,12 +1960,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "249" :| [] ) ) ( Ref Nothing @@ -2908,12 +1969,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "250" :| [] ) ) ( Ref Nothing @@ -2922,12 +1978,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "251" :| [] ) ) ( Ref Nothing @@ -2936,12 +1987,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "252" :| [] ) ) ( Ref Nothing @@ -2950,12 +1996,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "253" :| [] ) ) ( Ref Nothing @@ -2964,12 +2005,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "254" :| [] ) ) ( Ref Nothing @@ -2978,12 +2014,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "255" :| [] ) ) ( Ref Nothing @@ -2992,12 +2023,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "256" :| [] ) ) ( Ref Nothing @@ -3006,12 +2032,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "257" :| [] ) ) ( Ref Nothing @@ -3020,12 +2041,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "258" :| [] ) ) ( Ref Nothing @@ -3034,12 +2050,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "259" :| [] ) ) ( Ref Nothing @@ -3048,12 +2059,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "260" :| [] ) ) ( Ref Nothing @@ -3062,12 +2068,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "261" :| [] ) ) ( Ref Nothing @@ -3076,12 +2077,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "262" :| [] ) ) ( Ref Nothing @@ -3090,12 +2086,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "263" :| [] ) ) ( Ref Nothing @@ -3104,12 +2095,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "264" :| [] ) ) ( Ref Nothing @@ -3118,12 +2104,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "265" :| [] ) ) ( Ref Nothing @@ -3132,12 +2113,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "266" :| [] ) ) ( Ref Nothing @@ -3146,12 +2122,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "267" :| [] ) ) ( Ref Nothing @@ -3160,12 +2131,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "268" :| [] ) ) ( Ref Nothing @@ -3174,12 +2140,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "269" :| [] ) ) ( Ref Nothing @@ -3188,12 +2149,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "270" :| [] ) ) ( Ref Nothing @@ -3202,12 +2158,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "271" :| [] ) ) ( Ref Nothing @@ -3216,12 +2167,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "272" :| [] ) ) ( Ref Nothing @@ -3230,12 +2176,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "273" :| [] ) ) ( Ref Nothing @@ -3244,12 +2185,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "274" :| [] ) ) ( Ref Nothing @@ -3258,12 +2194,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "275" :| [] ) ) ( Ref Nothing @@ -3272,12 +2203,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "276" :| [] ) ) ( Ref Nothing @@ -3286,12 +2212,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "277" :| [] ) ) ( Ref Nothing @@ -3300,12 +2221,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "278" :| [] ) ) ( Ref Nothing @@ -3314,12 +2230,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "279" :| [] ) ) ( Ref Nothing @@ -3328,12 +2239,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "280" :| [] ) ) ( Ref Nothing @@ -3342,12 +2248,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "281" :| [] ) ) ( Ref Nothing @@ -3356,12 +2257,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "282" :| [] ) ) ( Ref Nothing @@ -3370,12 +2266,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "283" :| [] ) ) ( Ref Nothing @@ -3384,12 +2275,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "284" :| [] ) ) ( Ref Nothing @@ -3398,12 +2284,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "285" :| [] ) ) ( Ref Nothing @@ -3412,12 +2293,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "286" :| [] ) ) ( Ref Nothing @@ -3426,12 +2302,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "287" :| [] ) ) ( Ref Nothing @@ -3440,12 +2311,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "288" :| [] ) ) ( Ref Nothing @@ -3454,12 +2320,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "289" :| [] ) ) ( Ref Nothing @@ -3468,12 +2329,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "290" :| [] ) ) ( Ref Nothing @@ -3482,12 +2338,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "291" :| [] ) ) ( Ref Nothing @@ -3496,12 +2347,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "292" :| [] ) ) ( Ref Nothing @@ -3510,12 +2356,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "293" :| [] ) ) ( Ref Nothing @@ -3524,12 +2365,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "294" :| [] ) ) ( Ref Nothing @@ -3538,12 +2374,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "295" :| [] ) ) ( Ref Nothing @@ -3552,12 +2383,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "296" :| [] ) ) ( Ref Nothing @@ -3566,12 +2392,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "297" :| [] ) ) ( Ref Nothing @@ -3580,12 +2401,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "298" :| [] ) ) ( Ref Nothing @@ -3594,12 +2410,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "299" :| [] ) ) ( Ref Nothing @@ -3610,12 +2421,7 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "300" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) diff --git a/test/ps/output/Golden.LongDoBlock.Test/golden.lua b/test/ps/output/Golden.LongDoBlock.Test/golden.lua index db0bb738..6d51e0be 100644 --- a/test/ps/output/Golden.LongDoBlock.Test/golden.lua +++ b/test/ps/output/Golden.LongDoBlock.Test/golden.lua @@ -1,307 +1,308 @@ local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log return (function() - local _ = Effect_Console_foreign.log("1")() - local _ = Effect_Console_foreign.log("2")() - local _ = Effect_Console_foreign.log("3")() - local _ = Effect_Console_foreign.log("4")() - local _ = Effect_Console_foreign.log("5")() - local _ = Effect_Console_foreign.log("6")() - local _ = Effect_Console_foreign.log("7")() - local _ = Effect_Console_foreign.log("8")() - local _ = Effect_Console_foreign.log("9")() - local _ = Effect_Console_foreign.log("10")() - local _ = Effect_Console_foreign.log("11")() - local _ = Effect_Console_foreign.log("12")() - local _ = Effect_Console_foreign.log("13")() - local _ = Effect_Console_foreign.log("14")() - local _ = Effect_Console_foreign.log("15")() - local _ = Effect_Console_foreign.log("16")() - local _ = Effect_Console_foreign.log("17")() - local _ = Effect_Console_foreign.log("18")() - local _ = Effect_Console_foreign.log("19")() - local _ = Effect_Console_foreign.log("20")() - local _ = Effect_Console_foreign.log("21")() - local _ = Effect_Console_foreign.log("22")() - local _ = Effect_Console_foreign.log("23")() - local _ = Effect_Console_foreign.log("24")() - local _ = Effect_Console_foreign.log("25")() - local _ = Effect_Console_foreign.log("26")() - local _ = Effect_Console_foreign.log("27")() - local _ = Effect_Console_foreign.log("28")() - local _ = Effect_Console_foreign.log("29")() - local _ = Effect_Console_foreign.log("30")() - local _ = Effect_Console_foreign.log("31")() - local _ = Effect_Console_foreign.log("32")() - local _ = Effect_Console_foreign.log("33")() - local _ = Effect_Console_foreign.log("34")() - local _ = Effect_Console_foreign.log("35")() - local _ = Effect_Console_foreign.log("36")() - local _ = Effect_Console_foreign.log("37")() - local _ = Effect_Console_foreign.log("38")() - local _ = Effect_Console_foreign.log("39")() - local _ = Effect_Console_foreign.log("40")() - local _ = Effect_Console_foreign.log("41")() - local _ = Effect_Console_foreign.log("42")() - local _ = Effect_Console_foreign.log("43")() - local _ = Effect_Console_foreign.log("44")() - local _ = Effect_Console_foreign.log("45")() - local _ = Effect_Console_foreign.log("46")() - local _ = Effect_Console_foreign.log("47")() - local _ = Effect_Console_foreign.log("48")() - local _ = Effect_Console_foreign.log("49")() - local _ = Effect_Console_foreign.log("50")() - local _ = Effect_Console_foreign.log("51")() - local _ = Effect_Console_foreign.log("52")() - local _ = Effect_Console_foreign.log("53")() - local _ = Effect_Console_foreign.log("54")() - local _ = Effect_Console_foreign.log("55")() - local _ = Effect_Console_foreign.log("56")() - local _ = Effect_Console_foreign.log("57")() - local _ = Effect_Console_foreign.log("58")() - local _ = Effect_Console_foreign.log("59")() - local _ = Effect_Console_foreign.log("60")() - local _ = Effect_Console_foreign.log("61")() - local _ = Effect_Console_foreign.log("62")() - local _ = Effect_Console_foreign.log("63")() - local _ = Effect_Console_foreign.log("64")() - local _ = Effect_Console_foreign.log("65")() - local _ = Effect_Console_foreign.log("66")() - local _ = Effect_Console_foreign.log("67")() - local _ = Effect_Console_foreign.log("68")() - local _ = Effect_Console_foreign.log("69")() - local _ = Effect_Console_foreign.log("70")() - local _ = Effect_Console_foreign.log("71")() - local _ = Effect_Console_foreign.log("72")() - local _ = Effect_Console_foreign.log("73")() - local _ = Effect_Console_foreign.log("74")() - local _ = Effect_Console_foreign.log("75")() - local _ = Effect_Console_foreign.log("76")() - local _ = Effect_Console_foreign.log("77")() - local _ = Effect_Console_foreign.log("78")() - local _ = Effect_Console_foreign.log("79")() - local _ = Effect_Console_foreign.log("80")() - local _ = Effect_Console_foreign.log("81")() - local _ = Effect_Console_foreign.log("82")() - local _ = Effect_Console_foreign.log("83")() - local _ = Effect_Console_foreign.log("84")() - local _ = Effect_Console_foreign.log("85")() - local _ = Effect_Console_foreign.log("86")() - local _ = Effect_Console_foreign.log("87")() - local _ = Effect_Console_foreign.log("88")() - local _ = Effect_Console_foreign.log("89")() - local _ = Effect_Console_foreign.log("90")() - local _ = Effect_Console_foreign.log("91")() - local _ = Effect_Console_foreign.log("92")() - local _ = Effect_Console_foreign.log("93")() - local _ = Effect_Console_foreign.log("94")() - local _ = Effect_Console_foreign.log("95")() - local _ = Effect_Console_foreign.log("96")() - local _ = Effect_Console_foreign.log("97")() - local _ = Effect_Console_foreign.log("98")() - local _ = Effect_Console_foreign.log("99")() - local _ = Effect_Console_foreign.log("100")() - local _ = Effect_Console_foreign.log("101")() - local _ = Effect_Console_foreign.log("102")() - local _ = Effect_Console_foreign.log("103")() - local _ = Effect_Console_foreign.log("104")() - local _ = Effect_Console_foreign.log("105")() - local _ = Effect_Console_foreign.log("106")() - local _ = Effect_Console_foreign.log("107")() - local _ = Effect_Console_foreign.log("108")() - local _ = Effect_Console_foreign.log("109")() - local _ = Effect_Console_foreign.log("110")() - local _ = Effect_Console_foreign.log("111")() - local _ = Effect_Console_foreign.log("112")() - local _ = Effect_Console_foreign.log("113")() - local _ = Effect_Console_foreign.log("114")() - local _ = Effect_Console_foreign.log("115")() - local _ = Effect_Console_foreign.log("116")() - local _ = Effect_Console_foreign.log("117")() - local _ = Effect_Console_foreign.log("118")() - local _ = Effect_Console_foreign.log("119")() - local _ = Effect_Console_foreign.log("120")() - local _ = Effect_Console_foreign.log("121")() - local _ = Effect_Console_foreign.log("122")() - local _ = Effect_Console_foreign.log("123")() - local _ = Effect_Console_foreign.log("124")() - local _ = Effect_Console_foreign.log("125")() - local _ = Effect_Console_foreign.log("126")() - local _ = Effect_Console_foreign.log("127")() - local _ = Effect_Console_foreign.log("128")() - local _ = Effect_Console_foreign.log("129")() - local _ = Effect_Console_foreign.log("130")() - local _ = Effect_Console_foreign.log("131")() - local _ = Effect_Console_foreign.log("132")() - local _ = Effect_Console_foreign.log("133")() - local _ = Effect_Console_foreign.log("134")() - local _ = Effect_Console_foreign.log("135")() - local _ = Effect_Console_foreign.log("136")() - local _ = Effect_Console_foreign.log("137")() - local _ = Effect_Console_foreign.log("138")() - local _ = Effect_Console_foreign.log("139")() - local _ = Effect_Console_foreign.log("140")() - local _ = Effect_Console_foreign.log("141")() - local _ = Effect_Console_foreign.log("142")() - local _ = Effect_Console_foreign.log("143")() - local _ = Effect_Console_foreign.log("144")() - local _ = Effect_Console_foreign.log("145")() - local _ = Effect_Console_foreign.log("146")() - local _ = Effect_Console_foreign.log("147")() - local _ = Effect_Console_foreign.log("148")() - local _ = Effect_Console_foreign.log("149")() - local _ = Effect_Console_foreign.log("150")() + local _ = Effect_Console_log("1")() + local _ = Effect_Console_log("2")() + local _ = Effect_Console_log("3")() + local _ = Effect_Console_log("4")() + local _ = Effect_Console_log("5")() + local _ = Effect_Console_log("6")() + local _ = Effect_Console_log("7")() + local _ = Effect_Console_log("8")() + local _ = Effect_Console_log("9")() + local _ = Effect_Console_log("10")() + local _ = Effect_Console_log("11")() + local _ = Effect_Console_log("12")() + local _ = Effect_Console_log("13")() + local _ = Effect_Console_log("14")() + local _ = Effect_Console_log("15")() + local _ = Effect_Console_log("16")() + local _ = Effect_Console_log("17")() + local _ = Effect_Console_log("18")() + local _ = Effect_Console_log("19")() + local _ = Effect_Console_log("20")() + local _ = Effect_Console_log("21")() + local _ = Effect_Console_log("22")() + local _ = Effect_Console_log("23")() + local _ = Effect_Console_log("24")() + local _ = Effect_Console_log("25")() + local _ = Effect_Console_log("26")() + local _ = Effect_Console_log("27")() + local _ = Effect_Console_log("28")() + local _ = Effect_Console_log("29")() + local _ = Effect_Console_log("30")() + local _ = Effect_Console_log("31")() + local _ = Effect_Console_log("32")() + local _ = Effect_Console_log("33")() + local _ = Effect_Console_log("34")() + local _ = Effect_Console_log("35")() + local _ = Effect_Console_log("36")() + local _ = Effect_Console_log("37")() + local _ = Effect_Console_log("38")() + local _ = Effect_Console_log("39")() + local _ = Effect_Console_log("40")() + local _ = Effect_Console_log("41")() + local _ = Effect_Console_log("42")() + local _ = Effect_Console_log("43")() + local _ = Effect_Console_log("44")() + local _ = Effect_Console_log("45")() + local _ = Effect_Console_log("46")() + local _ = Effect_Console_log("47")() + local _ = Effect_Console_log("48")() + local _ = Effect_Console_log("49")() + local _ = Effect_Console_log("50")() + local _ = Effect_Console_log("51")() + local _ = Effect_Console_log("52")() + local _ = Effect_Console_log("53")() + local _ = Effect_Console_log("54")() + local _ = Effect_Console_log("55")() + local _ = Effect_Console_log("56")() + local _ = Effect_Console_log("57")() + local _ = Effect_Console_log("58")() + local _ = Effect_Console_log("59")() + local _ = Effect_Console_log("60")() + local _ = Effect_Console_log("61")() + local _ = Effect_Console_log("62")() + local _ = Effect_Console_log("63")() + local _ = Effect_Console_log("64")() + local _ = Effect_Console_log("65")() + local _ = Effect_Console_log("66")() + local _ = Effect_Console_log("67")() + local _ = Effect_Console_log("68")() + local _ = Effect_Console_log("69")() + local _ = Effect_Console_log("70")() + local _ = Effect_Console_log("71")() + local _ = Effect_Console_log("72")() + local _ = Effect_Console_log("73")() + local _ = Effect_Console_log("74")() + local _ = Effect_Console_log("75")() + local _ = Effect_Console_log("76")() + local _ = Effect_Console_log("77")() + local _ = Effect_Console_log("78")() + local _ = Effect_Console_log("79")() + local _ = Effect_Console_log("80")() + local _ = Effect_Console_log("81")() + local _ = Effect_Console_log("82")() + local _ = Effect_Console_log("83")() + local _ = Effect_Console_log("84")() + local _ = Effect_Console_log("85")() + local _ = Effect_Console_log("86")() + local _ = Effect_Console_log("87")() + local _ = Effect_Console_log("88")() + local _ = Effect_Console_log("89")() + local _ = Effect_Console_log("90")() + local _ = Effect_Console_log("91")() + local _ = Effect_Console_log("92")() + local _ = Effect_Console_log("93")() + local _ = Effect_Console_log("94")() + local _ = Effect_Console_log("95")() + local _ = Effect_Console_log("96")() + local _ = Effect_Console_log("97")() + local _ = Effect_Console_log("98")() + local _ = Effect_Console_log("99")() + local _ = Effect_Console_log("100")() + local _ = Effect_Console_log("101")() + local _ = Effect_Console_log("102")() + local _ = Effect_Console_log("103")() + local _ = Effect_Console_log("104")() + local _ = Effect_Console_log("105")() + local _ = Effect_Console_log("106")() + local _ = Effect_Console_log("107")() + local _ = Effect_Console_log("108")() + local _ = Effect_Console_log("109")() + local _ = Effect_Console_log("110")() + local _ = Effect_Console_log("111")() + local _ = Effect_Console_log("112")() + local _ = Effect_Console_log("113")() + local _ = Effect_Console_log("114")() + local _ = Effect_Console_log("115")() + local _ = Effect_Console_log("116")() + local _ = Effect_Console_log("117")() + local _ = Effect_Console_log("118")() + local _ = Effect_Console_log("119")() + local _ = Effect_Console_log("120")() + local _ = Effect_Console_log("121")() + local _ = Effect_Console_log("122")() + local _ = Effect_Console_log("123")() + local _ = Effect_Console_log("124")() + local _ = Effect_Console_log("125")() + local _ = Effect_Console_log("126")() + local _ = Effect_Console_log("127")() + local _ = Effect_Console_log("128")() + local _ = Effect_Console_log("129")() + local _ = Effect_Console_log("130")() + local _ = Effect_Console_log("131")() + local _ = Effect_Console_log("132")() + local _ = Effect_Console_log("133")() + local _ = Effect_Console_log("134")() + local _ = Effect_Console_log("135")() + local _ = Effect_Console_log("136")() + local _ = Effect_Console_log("137")() + local _ = Effect_Console_log("138")() + local _ = Effect_Console_log("139")() + local _ = Effect_Console_log("140")() + local _ = Effect_Console_log("141")() + local _ = Effect_Console_log("142")() + local _ = Effect_Console_log("143")() + local _ = Effect_Console_log("144")() + local _ = Effect_Console_log("145")() + local _ = Effect_Console_log("146")() + local _ = Effect_Console_log("147")() + local _ = Effect_Console_log("148")() + local _ = Effect_Console_log("149")() + local _ = Effect_Console_log("150")() return (function() - local _ = Effect_Console_foreign.log("151")() - local _ = Effect_Console_foreign.log("152")() - local _ = Effect_Console_foreign.log("153")() - local _ = Effect_Console_foreign.log("154")() - local _ = Effect_Console_foreign.log("155")() - local _ = Effect_Console_foreign.log("156")() - local _ = Effect_Console_foreign.log("157")() - local _ = Effect_Console_foreign.log("158")() - local _ = Effect_Console_foreign.log("159")() - local _ = Effect_Console_foreign.log("160")() - local _ = Effect_Console_foreign.log("161")() - local _ = Effect_Console_foreign.log("162")() - local _ = Effect_Console_foreign.log("163")() - local _ = Effect_Console_foreign.log("164")() - local _ = Effect_Console_foreign.log("165")() - local _ = Effect_Console_foreign.log("166")() - local _ = Effect_Console_foreign.log("167")() - local _ = Effect_Console_foreign.log("168")() - local _ = Effect_Console_foreign.log("169")() - local _ = Effect_Console_foreign.log("170")() - local _ = Effect_Console_foreign.log("171")() - local _ = Effect_Console_foreign.log("172")() - local _ = Effect_Console_foreign.log("173")() - local _ = Effect_Console_foreign.log("174")() - local _ = Effect_Console_foreign.log("175")() - local _ = Effect_Console_foreign.log("176")() - local _ = Effect_Console_foreign.log("177")() - local _ = Effect_Console_foreign.log("178")() - local _ = Effect_Console_foreign.log("179")() - local _ = Effect_Console_foreign.log("180")() - local _ = Effect_Console_foreign.log("181")() - local _ = Effect_Console_foreign.log("182")() - local _ = Effect_Console_foreign.log("183")() - local _ = Effect_Console_foreign.log("184")() - local _ = Effect_Console_foreign.log("185")() - local _ = Effect_Console_foreign.log("186")() - local _ = Effect_Console_foreign.log("187")() - local _ = Effect_Console_foreign.log("188")() - local _ = Effect_Console_foreign.log("189")() - local _ = Effect_Console_foreign.log("190")() - local _ = Effect_Console_foreign.log("191")() - local _ = Effect_Console_foreign.log("192")() - local _ = Effect_Console_foreign.log("193")() - local _ = Effect_Console_foreign.log("194")() - local _ = Effect_Console_foreign.log("195")() - local _ = Effect_Console_foreign.log("196")() - local _ = Effect_Console_foreign.log("197")() - local _ = Effect_Console_foreign.log("198")() - local _ = Effect_Console_foreign.log("199")() - local _ = Effect_Console_foreign.log("200")() - local _ = Effect_Console_foreign.log("201")() - local _ = Effect_Console_foreign.log("202")() - local _ = Effect_Console_foreign.log("203")() - local _ = Effect_Console_foreign.log("204")() - local _ = Effect_Console_foreign.log("205")() - local _ = Effect_Console_foreign.log("206")() - local _ = Effect_Console_foreign.log("207")() - local _ = Effect_Console_foreign.log("208")() - local _ = Effect_Console_foreign.log("209")() - local _ = Effect_Console_foreign.log("210")() - local _ = Effect_Console_foreign.log("211")() - local _ = Effect_Console_foreign.log("212")() - local _ = Effect_Console_foreign.log("213")() - local _ = Effect_Console_foreign.log("214")() - local _ = Effect_Console_foreign.log("215")() - local _ = Effect_Console_foreign.log("216")() - local _ = Effect_Console_foreign.log("217")() - local _ = Effect_Console_foreign.log("218")() - local _ = Effect_Console_foreign.log("219")() - local _ = Effect_Console_foreign.log("220")() - local _ = Effect_Console_foreign.log("221")() - local _ = Effect_Console_foreign.log("222")() - local _ = Effect_Console_foreign.log("223")() - local _ = Effect_Console_foreign.log("224")() - local _ = Effect_Console_foreign.log("225")() - local _ = Effect_Console_foreign.log("226")() - local _ = Effect_Console_foreign.log("227")() - local _ = Effect_Console_foreign.log("228")() - local _ = Effect_Console_foreign.log("229")() - local _ = Effect_Console_foreign.log("230")() - local _ = Effect_Console_foreign.log("231")() - local _ = Effect_Console_foreign.log("232")() - local _ = Effect_Console_foreign.log("233")() - local _ = Effect_Console_foreign.log("234")() - local _ = Effect_Console_foreign.log("235")() - local _ = Effect_Console_foreign.log("236")() - local _ = Effect_Console_foreign.log("237")() - local _ = Effect_Console_foreign.log("238")() - local _ = Effect_Console_foreign.log("239")() - local _ = Effect_Console_foreign.log("240")() - local _ = Effect_Console_foreign.log("241")() - local _ = Effect_Console_foreign.log("242")() - local _ = Effect_Console_foreign.log("243")() - local _ = Effect_Console_foreign.log("244")() - local _ = Effect_Console_foreign.log("245")() - local _ = Effect_Console_foreign.log("246")() - local _ = Effect_Console_foreign.log("247")() - local _ = Effect_Console_foreign.log("248")() - local _ = Effect_Console_foreign.log("249")() - local _ = Effect_Console_foreign.log("250")() - local _ = Effect_Console_foreign.log("251")() - local _ = Effect_Console_foreign.log("252")() - local _ = Effect_Console_foreign.log("253")() - local _ = Effect_Console_foreign.log("254")() - local _ = Effect_Console_foreign.log("255")() - local _ = Effect_Console_foreign.log("256")() - local _ = Effect_Console_foreign.log("257")() - local _ = Effect_Console_foreign.log("258")() - local _ = Effect_Console_foreign.log("259")() - local _ = Effect_Console_foreign.log("260")() - local _ = Effect_Console_foreign.log("261")() - local _ = Effect_Console_foreign.log("262")() - local _ = Effect_Console_foreign.log("263")() - local _ = Effect_Console_foreign.log("264")() - local _ = Effect_Console_foreign.log("265")() - local _ = Effect_Console_foreign.log("266")() - local _ = Effect_Console_foreign.log("267")() - local _ = Effect_Console_foreign.log("268")() - local _ = Effect_Console_foreign.log("269")() - local _ = Effect_Console_foreign.log("270")() - local _ = Effect_Console_foreign.log("271")() - local _ = Effect_Console_foreign.log("272")() - local _ = Effect_Console_foreign.log("273")() - local _ = Effect_Console_foreign.log("274")() - local _ = Effect_Console_foreign.log("275")() - local _ = Effect_Console_foreign.log("276")() - local _ = Effect_Console_foreign.log("277")() - local _ = Effect_Console_foreign.log("278")() - local _ = Effect_Console_foreign.log("279")() - local _ = Effect_Console_foreign.log("280")() - local _ = Effect_Console_foreign.log("281")() - local _ = Effect_Console_foreign.log("282")() - local _ = Effect_Console_foreign.log("283")() - local _ = Effect_Console_foreign.log("284")() - local _ = Effect_Console_foreign.log("285")() - local _ = Effect_Console_foreign.log("286")() - local _ = Effect_Console_foreign.log("287")() - local _ = Effect_Console_foreign.log("288")() - local _ = Effect_Console_foreign.log("289")() - local _ = Effect_Console_foreign.log("290")() - local _ = Effect_Console_foreign.log("291")() - local _ = Effect_Console_foreign.log("292")() - local _ = Effect_Console_foreign.log("293")() - local _ = Effect_Console_foreign.log("294")() - local _ = Effect_Console_foreign.log("295")() - local _ = Effect_Console_foreign.log("296")() - local _ = Effect_Console_foreign.log("297")() - local _ = Effect_Console_foreign.log("298")() - local _ = Effect_Console_foreign.log("299")() - return Effect_Console_foreign.log("300")() + local _ = Effect_Console_log("151")() + local _ = Effect_Console_log("152")() + local _ = Effect_Console_log("153")() + local _ = Effect_Console_log("154")() + local _ = Effect_Console_log("155")() + local _ = Effect_Console_log("156")() + local _ = Effect_Console_log("157")() + local _ = Effect_Console_log("158")() + local _ = Effect_Console_log("159")() + local _ = Effect_Console_log("160")() + local _ = Effect_Console_log("161")() + local _ = Effect_Console_log("162")() + local _ = Effect_Console_log("163")() + local _ = Effect_Console_log("164")() + local _ = Effect_Console_log("165")() + local _ = Effect_Console_log("166")() + local _ = Effect_Console_log("167")() + local _ = Effect_Console_log("168")() + local _ = Effect_Console_log("169")() + local _ = Effect_Console_log("170")() + local _ = Effect_Console_log("171")() + local _ = Effect_Console_log("172")() + local _ = Effect_Console_log("173")() + local _ = Effect_Console_log("174")() + local _ = Effect_Console_log("175")() + local _ = Effect_Console_log("176")() + local _ = Effect_Console_log("177")() + local _ = Effect_Console_log("178")() + local _ = Effect_Console_log("179")() + local _ = Effect_Console_log("180")() + local _ = Effect_Console_log("181")() + local _ = Effect_Console_log("182")() + local _ = Effect_Console_log("183")() + local _ = Effect_Console_log("184")() + local _ = Effect_Console_log("185")() + local _ = Effect_Console_log("186")() + local _ = Effect_Console_log("187")() + local _ = Effect_Console_log("188")() + local _ = Effect_Console_log("189")() + local _ = Effect_Console_log("190")() + local _ = Effect_Console_log("191")() + local _ = Effect_Console_log("192")() + local _ = Effect_Console_log("193")() + local _ = Effect_Console_log("194")() + local _ = Effect_Console_log("195")() + local _ = Effect_Console_log("196")() + local _ = Effect_Console_log("197")() + local _ = Effect_Console_log("198")() + local _ = Effect_Console_log("199")() + local _ = Effect_Console_log("200")() + local _ = Effect_Console_log("201")() + local _ = Effect_Console_log("202")() + local _ = Effect_Console_log("203")() + local _ = Effect_Console_log("204")() + local _ = Effect_Console_log("205")() + local _ = Effect_Console_log("206")() + local _ = Effect_Console_log("207")() + local _ = Effect_Console_log("208")() + local _ = Effect_Console_log("209")() + local _ = Effect_Console_log("210")() + local _ = Effect_Console_log("211")() + local _ = Effect_Console_log("212")() + local _ = Effect_Console_log("213")() + local _ = Effect_Console_log("214")() + local _ = Effect_Console_log("215")() + local _ = Effect_Console_log("216")() + local _ = Effect_Console_log("217")() + local _ = Effect_Console_log("218")() + local _ = Effect_Console_log("219")() + local _ = Effect_Console_log("220")() + local _ = Effect_Console_log("221")() + local _ = Effect_Console_log("222")() + local _ = Effect_Console_log("223")() + local _ = Effect_Console_log("224")() + local _ = Effect_Console_log("225")() + local _ = Effect_Console_log("226")() + local _ = Effect_Console_log("227")() + local _ = Effect_Console_log("228")() + local _ = Effect_Console_log("229")() + local _ = Effect_Console_log("230")() + local _ = Effect_Console_log("231")() + local _ = Effect_Console_log("232")() + local _ = Effect_Console_log("233")() + local _ = Effect_Console_log("234")() + local _ = Effect_Console_log("235")() + local _ = Effect_Console_log("236")() + local _ = Effect_Console_log("237")() + local _ = Effect_Console_log("238")() + local _ = Effect_Console_log("239")() + local _ = Effect_Console_log("240")() + local _ = Effect_Console_log("241")() + local _ = Effect_Console_log("242")() + local _ = Effect_Console_log("243")() + local _ = Effect_Console_log("244")() + local _ = Effect_Console_log("245")() + local _ = Effect_Console_log("246")() + local _ = Effect_Console_log("247")() + local _ = Effect_Console_log("248")() + local _ = Effect_Console_log("249")() + local _ = Effect_Console_log("250")() + local _ = Effect_Console_log("251")() + local _ = Effect_Console_log("252")() + local _ = Effect_Console_log("253")() + local _ = Effect_Console_log("254")() + local _ = Effect_Console_log("255")() + local _ = Effect_Console_log("256")() + local _ = Effect_Console_log("257")() + local _ = Effect_Console_log("258")() + local _ = Effect_Console_log("259")() + local _ = Effect_Console_log("260")() + local _ = Effect_Console_log("261")() + local _ = Effect_Console_log("262")() + local _ = Effect_Console_log("263")() + local _ = Effect_Console_log("264")() + local _ = Effect_Console_log("265")() + local _ = Effect_Console_log("266")() + local _ = Effect_Console_log("267")() + local _ = Effect_Console_log("268")() + local _ = Effect_Console_log("269")() + local _ = Effect_Console_log("270")() + local _ = Effect_Console_log("271")() + local _ = Effect_Console_log("272")() + local _ = Effect_Console_log("273")() + local _ = Effect_Console_log("274")() + local _ = Effect_Console_log("275")() + local _ = Effect_Console_log("276")() + local _ = Effect_Console_log("277")() + local _ = Effect_Console_log("278")() + local _ = Effect_Console_log("279")() + local _ = Effect_Console_log("280")() + local _ = Effect_Console_log("281")() + local _ = Effect_Console_log("282")() + local _ = Effect_Console_log("283")() + local _ = Effect_Console_log("284")() + local _ = Effect_Console_log("285")() + local _ = Effect_Console_log("286")() + local _ = Effect_Console_log("287")() + local _ = Effect_Console_log("288")() + local _ = Effect_Console_log("289")() + local _ = Effect_Console_log("290")() + local _ = Effect_Console_log("291")() + local _ = Effect_Console_log("292")() + local _ = Effect_Console_log("293")() + local _ = Effect_Console_log("294")() + local _ = Effect_Console_log("295")() + local _ = Effect_Console_log("296")() + local _ = Effect_Console_log("297")() + local _ = Effect_Console_log("298")() + local _ = Effect_Console_log("299")() + return Effect_Console_log("300")() end)() end)() diff --git a/test/ps/output/Golden.LongEitherBind.Test/golden.ir b/test/ps/output/Golden.LongEitherBind.Test/golden.ir index 7156009e..1a16137a 100644 --- a/test/ps/output/Golden.LongEitherBind.Test/golden.ir +++ b/test/ps/output/Golden.LongEitherBind.Test/golden.ir @@ -2690,7 +2690,7 @@ UberModule ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.ir b/test/ps/output/Golden.LongExceptBind.Test/golden.ir index 66fd4115..4b64879e 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.ir +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.ir @@ -7638,7 +7638,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "compute" }, AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) ( PropName "unsafeCoerce" ) ) @@ -7653,7 +7653,7 @@ UberModule ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir index 1f3372b3..6a35da06 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir @@ -10390,7 +10390,7 @@ UberModule ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.ir b/test/ps/output/Golden.LongReaderBind.Test/golden.ir index c7f49895..9b55ef54 100644 --- a/test/ps/output/Golden.LongReaderBind.Test/golden.ir +++ b/test/ps/output/Golden.LongReaderBind.Test/golden.ir @@ -49,7 +49,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "compute" }, AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) ( PropName "unsafeCoerce" ) ) @@ -73,12 +73,12 @@ UberModule ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.ir b/test/ps/output/Golden.LongStackBind.Test/golden.ir index b594b04b..be55e7e5 100644 --- a/test/ps/output/Golden.LongStackBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStackBind.Test/golden.ir @@ -14413,7 +14413,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "compute" }, AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) ( PropName "unsafeCoerce" ) ) @@ -14465,7 +14465,7 @@ UberModule ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.ir b/test/ps/output/Golden.LongStateBind.Test/golden.ir index 7a1a6a58..3c35b0d9 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.ir +++ b/test/ps/output/Golden.LongStateBind.Test/golden.ir @@ -10801,12 +10801,12 @@ UberModule ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.ir b/test/ps/output/Golden.LongWriterBind.Test/golden.ir index dfa9ff4c..09994c37 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.ir +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.ir @@ -35,7 +35,7 @@ UberModule { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "semigroupArray" }, LiteralObject Nothing [ - ( PropName "append", ObjectProp ( Just Always ) + ( PropName "append", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) ( PropName "concatArray" ) ) @@ -7175,7 +7175,7 @@ UberModule { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "compute" }, ObjectProp Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) ( PropName "unsafeCoerce" ) ) @@ -7194,12 +7194,12 @@ UberModule ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "compute" ) ) ), ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) diff --git a/test/ps/output/Golden.Loopification.Test/golden.ir b/test/ps/output/Golden.Loopification.Test/golden.ir index 27dc08e8..87d1128a 100644 --- a/test/ps/output/Golden.Loopification.Test/golden.ir +++ b/test/ps/output/Golden.Loopification.Test/golden.ir @@ -7,12 +7,24 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.Loopification.Test", qnameName = Name "sub$w" }, AbsN Nothing @@ -304,15 +316,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "countdown" ) ) @@ -326,15 +332,9 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sumTo$w" ) ) @@ -347,15 +347,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( Let Nothing ( RecursiveGroup ( @@ -407,15 +401,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "mc91" ) ) @@ -428,15 +416,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "sumCPS$w" ) ) @@ -456,15 +438,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.Loopification.Test" ) ( Name "countDrop$w" ) ) diff --git a/test/ps/output/Golden.Loopification.Test/golden.lua b/test/ps/output/Golden.Loopification.Test/golden.lua index 3242bbae..f93cf44f 100644 --- a/test/ps/output/Golden.Loopification.Test/golden.lua +++ b/test/ps/output/Golden.Loopification.Test/golden.lua @@ -1,8 +1,10 @@ local M = {} local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Golden_Loopification_Test_sub_S_w = function(x_S_188_S_221, y_S_189_S_222) return x_S_188_S_221 - y_S_189_S_222 end @@ -94,9 +96,9 @@ M.Golden_Loopification_Test_countDrop = function(countDrop_S_p1) end end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_countdown(5)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_sumTo_S_w(0, 10)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_Loopification_Test_countdown(5)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_Loopification_Test_sumTo_S_w(0, 10)))() + local _ = Effect_Console_log(Data_Show_showIntImpl((function() local go_S_w_S_264 go_S_w_S_264 = function(acc_S_265, n_S_266) while true do @@ -109,9 +111,9 @@ return (function() end return go_S_w_S_264(0, 4) end)()))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_mc91(1)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_sumCPS_S_w(5, function( x_S_228 ) + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_Loopification_Test_mc91(1)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_Loopification_Test_sumCPS_S_w(5, function( x_S_228 ) return x_S_228 end)))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_countDrop_S_w(3, 99)))() + return Effect_Console_log(Data_Show_showIntImpl(Golden_Loopification_Test_countDrop_S_w(3, 99)))() end)() diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.ir b/test/ps/output/Golden.MaybeChain.Test/golden.ir index 6740ba9b..6bfda8ca 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.ir +++ b/test/ps/output/Golden.MaybeChain.Test/golden.ir @@ -7,12 +7,24 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "Nothing" }, Ctor Nothing SumType @@ -92,15 +104,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) ( LiteralInt Nothing 0 :| @@ -136,15 +142,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) ) ( LiteralInt Nothing 0 :| diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.lua b/test/ps/output/Golden.MaybeChain.Test/golden.lua index ceb95685..3006af84 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.lua +++ b/test/ps/output/Golden.MaybeChain.Test/golden.lua @@ -1,7 +1,9 @@ local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } @@ -24,10 +26,10 @@ local Golden_MaybeChain_Test_map_S_w = function(v_S_308, v1_S_309) end end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(function( x_S_0 ) + local _ = Effect_Console_log(Data_Show_showIntImpl(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(function( x_S_0 ) return x_S_0 end, Data_Maybe_Nothing)))))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(function( x0_S_1 ) + return Effect_Console_log(Data_Show_showIntImpl(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(function( x0_S_1 ) return x0_S_1 end, Data_Maybe_Just(42))))))() end)() diff --git a/test/ps/output/Golden.NumberIsNaN.Test/golden.ir b/test/ps/output/Golden.NumberIsNaN.Test/golden.ir index 96c824a2..3faed136 100644 --- a/test/ps/output/Golden.NumberIsNaN.Test/golden.ir +++ b/test/ps/output/Golden.NumberIsNaN.Test/golden.ir @@ -7,17 +7,45 @@ UberModule ( ModuleName "Data.Ring" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Ring.purs" [ ( Nothing, Name "numSub" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Ring", qnameName = Name "numSub" }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) ) + ( PropName "numSub" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.Number", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Data.Number" ) ".spago/p/numbers/e1489d3cf8621a43bbe21fc9c182fede9411d440/src/Data/Number.purs" [ ( Nothing, Name "nan" ), ( Nothing, Name "isNaN" ), ( Nothing, Name "infinity" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Number", qnameName = Name "infinity" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) ) + ( PropName "infinity" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Number", qnameName = Name "isNaN" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) ) + ( PropName "isNaN" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Number", qnameName = Name "nan" }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) ) + ( PropName "nan" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ) ], uberModuleForeigns = [], uberModuleExports = [ @@ -29,21 +57,12 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "a$2$325", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) ) - ( PropName "isNaN" ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) ) - ( PropName "nan" ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "isNaN" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "nan" ) ) :| [] ) ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$325" ) ) ) ( LiteralString Nothing "true" ) @@ -64,38 +83,20 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "a$2$327", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) - ) - ( PropName "isNaN" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "isNaN" ) ) ) ( AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) - ) - ( PropName "numSub" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "numSub" ) ) ) ( LiteralFloat Nothing 0.0 :| [] ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) - ) - ( PropName "nan" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Number" ) ( Name "nan" ) ) :| [] ) :| [] ) ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$327" ) ) ) ( LiteralString Nothing "true" ) @@ -115,43 +116,22 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "a$2$329", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) - ) - ( PropName "isNaN" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "isNaN" ) ) ) ( AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Ring" ) ( Name "foreign" ) ) - ) - ( PropName "numSub" ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) - ) - ( PropName "infinity" ) :| [] - ) - ) - ( ObjectProp ( Just Always ) + ( Ref Nothing ( Imported ( ModuleName "Data.Ring" ) ( Name "numSub" ) ) ) ( Ref Nothing - ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) + ( Imported ( ModuleName "Data.Number" ) ( Name "infinity" ) ) :| [] ) - ( PropName "infinity" ) :| [] + ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Number" ) ( Name "infinity" ) ) :| [] ) :| [] ) ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$329" ) ) ) ( LiteralString Nothing "true" ) @@ -171,22 +151,12 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "a$2$330", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) - ) - ( PropName "isNaN" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "isNaN" ) ) ) ( LiteralFloat Nothing 42.0 :| [] ) ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$330" ) ) ) ( LiteralString Nothing "true" ) @@ -208,21 +178,14 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "a$2$331", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) ) - ( PropName "isNaN" ) - ) - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "foreign" ) ) ) - ( PropName "infinity" ) :| [] + ( Ref Nothing ( Imported ( ModuleName "Data.Number" ) ( Name "isNaN" ) ) ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Number" ) ( Name "infinity" ) ) :| [] ) ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( IfThenElse Nothing ( Ref Nothing ( Local ( Name "a$2$331" ) ) ) ( LiteralString Nothing "true" ) diff --git a/test/ps/output/Golden.NumberIsNaN.Test/golden.lua b/test/ps/output/Golden.NumberIsNaN.Test/golden.lua index ac4246c1..7b13c184 100644 --- a/test/ps/output/Golden.NumberIsNaN.Test/golden.lua +++ b/test/ps/output/Golden.NumberIsNaN.Test/golden.lua @@ -1,18 +1,23 @@ local Data_Ring_foreign = { numSub = function(x) return function(y) return x - y end end } +local Data_Ring_numSub = Data_Ring_foreign.numSub local Data_Number_foreign = { nan = 0 / 0, isNaN = function(x) return x ~= x end, infinity = math.huge } +local Data_Number_infinity = Data_Number_foreign.infinity +local Data_Number_isNaN = Data_Number_foreign.isNaN +local Data_Number_nan = Data_Number_foreign.nan local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log return (function() local _ = (function() - local a_S_2_S_325 = Data_Number_foreign.isNaN(Data_Number_foreign.nan) - return Effect_Console_foreign.log((function() + local a_S_2_S_325 = Data_Number_isNaN(Data_Number_nan) + return Effect_Console_log((function() if a_S_2_S_325 then return "true" elseif false == a_S_2_S_325 then @@ -23,8 +28,8 @@ return (function() end)()) end)()() local _ = (function() - local a_S_2_S_327 = Data_Number_foreign.isNaN(Data_Ring_foreign.numSub(0.0)(Data_Number_foreign.nan)) - return Effect_Console_foreign.log((function() + local a_S_2_S_327 = Data_Number_isNaN(Data_Ring_numSub(0.0)(Data_Number_nan)) + return Effect_Console_log((function() if a_S_2_S_327 then return "true" elseif false == a_S_2_S_327 then @@ -35,8 +40,8 @@ return (function() end)()) end)()() local _ = (function() - local a_S_2_S_329 = Data_Number_foreign.isNaN(Data_Ring_foreign.numSub(Data_Number_foreign.infinity)(Data_Number_foreign.infinity)) - return Effect_Console_foreign.log((function() + local a_S_2_S_329 = Data_Number_isNaN(Data_Ring_numSub(Data_Number_infinity)(Data_Number_infinity)) + return Effect_Console_log((function() if a_S_2_S_329 then return "true" elseif false == a_S_2_S_329 then @@ -47,8 +52,8 @@ return (function() end)()) end)()() local _ = (function() - local a_S_2_S_330 = Data_Number_foreign.isNaN(42.0) - return Effect_Console_foreign.log((function() + local a_S_2_S_330 = Data_Number_isNaN(42.0) + return Effect_Console_log((function() if a_S_2_S_330 then return "true" elseif false == a_S_2_S_330 then @@ -59,8 +64,8 @@ return (function() end)()) end)()() return (function() - local a_S_2_S_331 = Data_Number_foreign.isNaN(Data_Number_foreign.infinity) - return Effect_Console_foreign.log((function() + local a_S_2_S_331 = Data_Number_isNaN(Data_Number_infinity) + return Effect_Console_log((function() if a_S_2_S_331 then return "true" elseif false == a_S_2_S_331 then diff --git a/test/ps/output/Golden.Primops.Test/golden.ir b/test/ps/output/Golden.Primops.Test/golden.ir index fcaa6276..0931595f 100644 --- a/test/ps/output/Golden.Primops.Test/golden.ir +++ b/test/ps/output/Golden.Primops.Test/golden.ir @@ -12,6 +12,12 @@ UberModule }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ), RecursiveGroup ( ( QName @@ -84,10 +90,7 @@ UberModule }, AbsN Nothing ( ParamNamed Nothing ( Name "dictShow" ) :| [ ParamNamed Nothing ( Name "a" ) ] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dictShow" ) ) ) @@ -166,7 +169,7 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) ) ( LiteralObject Nothing [ - ( PropName "show", ObjectProp ( Just Always ) + ( PropName "show", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) @@ -272,10 +275,7 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( LiteralString Nothing "foobar" :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) diff --git a/test/ps/output/Golden.Primops.Test/golden.lua b/test/ps/output/Golden.Primops.Test/golden.lua index 87bb431b..ec6defb6 100644 --- a/test/ps/output/Golden.Primops.Test/golden.lua +++ b/test/ps/output/Golden.Primops.Test/golden.lua @@ -3,6 +3,7 @@ local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Data_HeytingAlgebra_heytingAlgebraBoolean Data_HeytingAlgebra_heytingAlgebraBoolean = { ff = false, @@ -21,7 +22,7 @@ Data_HeytingAlgebra_heytingAlgebraBoolean = { _not_ = function(b_S_210) return not(b_S_210) end } local Effect_Console_logShow_S_w = function(dictShow, a) - return Effect_Console_foreign.log(dictShow.show(a)) + return Effect_Console_log(dictShow.show(a)) end local Golden_Primops_Test_sumTo_S_w = function(acc, n) while true do @@ -84,7 +85,7 @@ return (function() end end }, { ["$ctor"] = "Data.Ordering∷Ordering.LT" })() - local _ = Effect_Console_foreign.log("foobar")() + local _ = Effect_Console_log("foobar")() return Effect_Console_logShow_S_w({ show = function(v_S_117_S_260) if v_S_117_S_260 then diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir index 7f59f82d..f21c8c91 100644 --- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir +++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir @@ -7,23 +7,40 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Unsafe.Coerce", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Unsafe.Coerce" ) ".spago/p/unsafe-coerce/7a4c95f14b8118d9fb052e130d6e862fa3f5166a/src/Unsafe/Coerce.purs" [ ( Nothing, Name "unsafeCoerce" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Unsafe.Coerce", qnameName = Name "unsafeCoerce" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) + ( PropName "unsafeCoerce" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "unwrap" - }, ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) ) - ( PropName "unsafeCoerce" ) + }, Ref Nothing + ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "unsafeCoerce" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "Wrapped" @@ -64,15 +81,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) @@ -97,15 +108,9 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported @@ -134,33 +139,21 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.ProfunctorDictLens.Test" ) ( Name "unwrap" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) - ) - ( PropName "unsafeCoerce" ) + ( Ref Nothing + ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "unsafeCoerce" ) ) ) ( PrimBinOp Nothing PrimSub ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "foreign" ) ) - ) - ( PropName "unsafeCoerce" ) + ( Ref Nothing + ( Imported ( ModuleName "Unsafe.Coerce" ) ( Name "unsafeCoerce" ) ) ) ( LiteralInt Nothing 10 :| [] ) ) diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua index c93afb71..df58ea21 100644 --- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua +++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua @@ -1,16 +1,19 @@ local M = {} local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } +local Unsafe_Coerce_unsafeCoerce = Unsafe_Coerce_foreign.unsafeCoerce local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -local Golden_ProfunctorDictLens_Test_unwrap = Unsafe_Coerce_foreign.unsafeCoerce +local Effect_Console_log = Effect_Console_foreign.log +local Golden_ProfunctorDictLens_Test_unwrap = Unsafe_Coerce_unsafeCoerce local Golden_ProfunctorDictLens_Test_Wrapped = function(x) return x end M.Golden_ProfunctorDictLens_Test__Wrapped = function(dictProfunctor) return dictProfunctor.dimap(Golden_ProfunctorDictLens_Test_unwrap)(Golden_ProfunctorDictLens_Test_Wrapped) end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test_unwrap(10) + 1)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test_unwrap(10) * 2)))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Unsafe_Coerce_foreign.unsafeCoerce(Unsafe_Coerce_foreign.unsafeCoerce(10) - 5))))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test_unwrap(10) + 1)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test_unwrap(10) * 2)))() + return Effect_Console_log(Data_Show_showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Unsafe_Coerce_unsafeCoerce(Unsafe_Coerce_unsafeCoerce(10) - 5))))() end)() diff --git a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir index c9f89b28..a7410d55 100644 --- a/test/ps/output/Golden.RecGroupOrder.Test/golden.ir +++ b/test/ps/output/Golden.RecGroupOrder.Test/golden.ir @@ -65,7 +65,7 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.ir b/test/ps/output/Golden.StringCodePoints.Test/golden.ir index 5b743da1..977735cd 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.ir +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.ir @@ -7,18 +7,48 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ), ( Nothing, Name "showArrayImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showArrayImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showArrayImpl" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Data.Functor" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Functor.purs" [ ( Nothing, Name "arrayMap" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "arrayMap" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) + ( PropName "arrayMap" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Data.Bounded" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Bounded.purs" [ ( Nothing, Name "topChar" ), ( Nothing, Name "bottomChar" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "bottomChar" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) + ( PropName "bottomChar" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Bounded", qnameName = Name "topChar" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) + ( PropName "topChar" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.EuclideanRing", qnameName = Name "foreign" }, ForeignImport Nothing @@ -31,6 +61,12 @@ UberModule ( ModuleName "Partial.Unsafe" ) ".spago/p/partial/2f5c69b1de8f88f1fbc9b98281c9436088ae0789/src/Partial/Unsafe.purs" [ ( Nothing, Name "_unsafePartial" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Partial.Unsafe", qnameName = Name "_unsafePartial" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) ) + ( PropName "_unsafePartial" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.Unfoldable", qnameName = Name "foreign" }, ForeignImport Nothing @@ -49,18 +85,48 @@ UberModule ( ModuleName "Data.Enum" ) ".spago/p/enums/e85567b064ace664fca544c390c8db528514109a/src/Data/Enum.purs" [ ( Nothing, Name "toCharCode" ), ( Nothing, Name "fromCharCode" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "fromCharCode" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) + ( PropName "fromCharCode" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "toCharCode" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) + ( PropName "toCharCode" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.Unsafe", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Data.String.Unsafe" ) ".spago/p/strings/395c4b6cb74271b5570a1d7632fb6522785792af/src/Data/String/Unsafe.purs" [ ( Nothing, Name "charAt" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.String.Unsafe", qnameName = Name "charAt" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) ) + ( PropName "charAt" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodeUnits", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Data.String.CodeUnits" ) ".spago/p/strings/395c4b6cb74271b5570a1d7632fb6522785792af/src/Data/String/CodeUnits.purs" [ ( Nothing, Name "singleton" ), ( Nothing, Name "length" ), ( Nothing, Name "drop" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.String.CodeUnits", qnameName = Name "length" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) + ( PropName "length" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.String.CodeUnits", qnameName = Name "singleton" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) + ( PropName "singleton" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "foreign" }, ForeignImport Nothing @@ -74,6 +140,12 @@ UberModule ( Nothing, Name "_unsafeCodePointAt0" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "_codePointAt" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) + ( PropName "_codePointAt" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing @@ -165,9 +237,8 @@ UberModule { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showInt" }, LiteralObject Nothing [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) + ( PropName "show", Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ] ), Standalone @@ -311,15 +382,12 @@ UberModule [ FieldName "value0" ] ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "bottom1" - }, ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( PropName "bottomChar" ) + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "bottom1" }, Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottomChar" ) ) ), Standalone ( QName - { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "top1" }, ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( PropName "topChar" ) + { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "top1" }, Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "topChar" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "conj" @@ -331,14 +399,13 @@ UberModule ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "fromEnum" - }, ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "toCharCode" ) + }, Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ), Standalone ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "unsafeCodePointAt0" }, AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) ( PropName "_unsafeCodePointAt0" ) ) @@ -352,11 +419,8 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) - ) - ( PropName "charAt" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "charAt" ) ) ) ( LiteralInt Nothing 0 :| [] ) ) @@ -403,14 +467,8 @@ UberModule ( Let Nothing ( Standalone ( Nothing, Name "x$1474$1598", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodeUnits" ) - ( Name "foreign" ) - ) - ) - ( PropName "length" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "length" ) ) ) ( Ref Nothing ( Local ( Name "s$27" ) ) :| [] ) ) :| [] @@ -453,11 +511,8 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "foreign" ) ) - ) - ( PropName "charAt" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.Unsafe" ) ( Name "charAt" ) ) ) ( LiteralInt Nothing 1 :| [] ) ) @@ -528,11 +583,8 @@ UberModule ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) - ) - ( PropName "singleton" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "singleton" ) ) ) ( Let Nothing ( Standalone @@ -556,11 +608,8 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "v" ) ), AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] @@ -577,11 +626,8 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "v" ) ), AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] @@ -593,9 +639,8 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) ) - ( PropName "fromCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "fromCharCode" ) ) ) ( Ref Nothing ( Local ( Name "v" ) ) :| [] ) :| [] ) @@ -624,29 +669,19 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "v" ) ), AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) - ) - ( PropName "bottomChar" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottomChar" ) ) :| [] ) ] ) ) - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( PropName "bottomChar" ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) ) - ( PropName "topChar" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottomChar" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Bounded" ) ( Name "topChar" ) ) ) ) ( Exception Nothing "No patterns matched" ) ) @@ -676,11 +711,8 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) - ) - ( PropName "singleton" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "singleton" ) ) ) ( Let Nothing ( Standalone @@ -704,11 +736,8 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "x$1612$1699$1763" ) ), AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] @@ -725,11 +754,8 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "x$1612$1699$1763" ) ), AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] @@ -741,11 +767,8 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "fromCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "fromCharCode" ) ) ) ( Ref Nothing ( Local ( Name "x$1612$1699$1763" ) ) :| [] ) :| [] ) @@ -776,32 +799,23 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "x$1612$1699$1763" ) ), AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) - ) - ( PropName "bottomChar" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Bounded" ) + ( Name "bottomChar" ) + ) :| [] ) ] ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) - ) - ( PropName "bottomChar" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottomChar" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) - ) - ( PropName "topChar" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "topChar" ) ) ) ) ( Exception Nothing "No patterns matched" ) @@ -832,11 +846,8 @@ UberModule ) :| [] ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) - ) - ( PropName "singleton" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "singleton" ) ) ) ( Let Nothing ( Standalone @@ -860,11 +871,8 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "x$1612$1699$1765" ) ), AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "bottom1" ) ) :| [] @@ -881,11 +889,8 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "x$1612$1699$1765" ) ), AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "top1" ) ) :| [] @@ -897,11 +902,8 @@ UberModule ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "fromCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "fromCharCode" ) ) ) ( Ref Nothing ( Local ( Name "x$1612$1699$1765" ) ) :| [] ) :| [] ) @@ -932,32 +934,23 @@ UberModule ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :| [ Ref Nothing ( Local ( Name "x$1612$1699$1765" ) ), AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) - ) - ( PropName "toCharCode" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) - ) - ( PropName "bottomChar" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Bounded" ) + ( Name "bottomChar" ) + ) :| [] ) ] ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) - ) - ( PropName "bottomChar" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottomChar" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Bounded" ) ( Name "foreign" ) ) - ) - ( PropName "topChar" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Bounded" ) ( Name "topChar" ) ) ) ) ( Exception Nothing "No patterns matched" ) @@ -972,7 +965,7 @@ UberModule ( QName { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "singleton" }, AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) ( PropName "_singleton" ) ) @@ -1032,11 +1025,8 @@ UberModule ( IfThenElse Nothing ( Eq Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) - ) - ( PropName "length" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "length" ) ) ) ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) ) @@ -1157,7 +1147,7 @@ UberModule ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) @@ -1181,18 +1171,15 @@ UberModule ( ParamNamed Nothing ( Name "n" ) :| [ ParamNamed Nothing ( Name "s" ) ] ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) ) ( PropName "drop" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) - ) - ( PropName "length" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "length" ) ) ) ( AppN Nothing ( Ref Nothing @@ -1214,7 +1201,7 @@ UberModule { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "toCodePointArray" }, AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "foreign" ) ) ) ( PropName "_toCodePointArray" ) ) @@ -1226,7 +1213,7 @@ UberModule ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Unfoldable" ) ( Name "foreign" ) ) ) @@ -1254,11 +1241,8 @@ UberModule ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) - ) - ( PropName "_unsafePartial" ) + ( Ref Nothing + ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "_unsafePartial" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -1467,14 +1451,11 @@ UberModule ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "_codePointAt" ) ) - ( PropName "_codePointAt" ) ) ( Ref Nothing ( Imported @@ -1524,14 +1505,11 @@ UberModule ( AppN Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Data.String.CodePoints" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Data.String.CodePoints" ) + ( Name "_codePointAt" ) ) - ( PropName "_codePointAt" ) ) ( Ref Nothing ( Imported @@ -1721,7 +1699,7 @@ UberModule }, AbsN Nothing ( ParamNamed Nothing ( Name "dictShow" ) :| [ ParamNamed Nothing ( Name "a" ) ] ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) @@ -1747,14 +1725,8 @@ UberModule }, LiteralObject Nothing [ ( PropName "show", AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showArrayImpl" ) - ) - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) :| [] - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showArrayImpl" ) ) ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) :| [] ) ) ] ), Standalone @@ -1764,10 +1736,7 @@ UberModule ( ParamNamed Nothing ( Name "x$1556$1666" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) ) - ( PropName "_unsafePartial" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "_unsafePartial" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) ( AbsN Nothing @@ -1803,10 +1772,7 @@ UberModule ( ParamNamed Nothing ( Name "x$1556$1663" ) :| [] ) ( AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) - ( PropName "arrayMap" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "fromEnum" ) ) :| [] ) @@ -1839,11 +1805,8 @@ UberModule ) :| [ AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) - ) - ( PropName "arrayMap" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) ) ) ( Ref Nothing ( Imported @@ -1873,7 +1836,7 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [ AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Array" ) ( Name "foreign" ) ) ) ( PropName "length" ) ) @@ -1897,11 +1860,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :| [ AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) - ) - ( PropName "length" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "length" ) ) ) ( LiteralString Nothing "aéЯ𝐀z" :| [] ) ] @@ -1919,11 +1879,8 @@ UberModule ) :| [ AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) - ) - ( PropName "arrayMap" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) ) ) ( Ref Nothing ( Imported @@ -1961,11 +1918,8 @@ UberModule ) :| [ AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) - ) - ( PropName "arrayMap" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) ) ) ( Ref Nothing ( Imported @@ -2009,11 +1963,8 @@ UberModule ( LiteralString Nothing "(Just " ) ( PrimBinOp Nothing PrimConcat ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1542$1719" ) ) ) @@ -2091,11 +2042,8 @@ UberModule ( LiteralString Nothing "(Just " ) ( PrimBinOp Nothing PrimConcat ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1542$1727" ) ) ) @@ -2173,11 +2121,8 @@ UberModule ( LiteralString Nothing "(Just " ) ( PrimBinOp Nothing PrimConcat ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1542$1735" ) ) ) @@ -2255,11 +2200,8 @@ UberModule ( LiteralString Nothing "(Just " ) ( PrimBinOp Nothing PrimConcat ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v$1542$1746" ) ) ) @@ -2338,17 +2280,14 @@ UberModule ( PrimBinOp Nothing PrimConcat ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showArrayImpl" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showArrayImpl" ) ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Data.Show" ) + ( Name "showIntImpl" ) + ) :| [] ) ) ( ObjectProp Nothing @@ -2388,11 +2327,8 @@ UberModule ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ) ) ( AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) - ) - ( PropName "arrayMap" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) ) ) ( Ref Nothing ( Imported @@ -2448,7 +2384,7 @@ UberModule [ Eq Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.String.CodePoints" ) @@ -2489,10 +2425,7 @@ UberModule ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "showArray" ) ) :| [ AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) - ( PropName "arrayMap" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) ) ) ( Ref Nothing ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) @@ -2513,11 +2446,8 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) - ) - ( PropName "_unsafePartial" ) + ( Ref Nothing + ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "_unsafePartial" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.lua b/test/ps/output/Golden.StringCodePoints.Test/golden.lua index 7d2004c9..c96672cd 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.lua +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.lua @@ -28,6 +28,8 @@ local Data_Show_foreign = { end end } +local Data_Show_showArrayImpl = Data_Show_foreign.showArrayImpl +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Data_Functor_foreign = { arrayMap = function(f) return function(arr) @@ -38,6 +40,7 @@ local Data_Functor_foreign = { end end } +local Data_Functor_arrayMap = Data_Functor_foreign.arrayMap local Data_Bounded_foreign = { -- Lua 5.1 compatibility: -- * math.maxinteger/math.mininteger appeared in Lua 5.3; PureScript Int @@ -48,6 +51,8 @@ local Data_Bounded_foreign = { topChar = "\255", bottomChar = "\0" } +local Data_Bounded_bottomChar = Data_Bounded_foreign.bottomChar +local Data_Bounded_topChar = Data_Bounded_foreign.topChar local Data_EuclideanRing_foreign = { -- math.maxinteger is Lua 5.3+; PureScript Int is 32-bit, hence the -- literal bound in intDegree. @@ -67,6 +72,7 @@ local Data_EuclideanRing_foreign = { end } local Partial_Unsafe_foreign = { _unsafePartial = function(f) return f() end } +local Partial_Unsafe__unsafePartial = Partial_Unsafe_foreign._unsafePartial local Data_Unfoldable_foreign = { unfoldrArrayImpl = function(isNothing) return function(fromJust) @@ -124,6 +130,8 @@ local Data_Enum_foreign = { return string.char(240 + math.floor(n / 262144), 128 + math.floor(n / 4096) % 64, 128 + math.floor(n / 64) % 64, 128 + n % 64) end } +local Data_Enum_fromCharCode = Data_Enum_foreign.fromCharCode +local Data_Enum_toCharCode = Data_Enum_foreign.toCharCode local Data_String_Unsafe_foreign = { charAt = function(i) return function(s) @@ -132,6 +140,7 @@ local Data_String_Unsafe_foreign = { end end } +local Data_String_Unsafe_charAt = Data_String_Unsafe_foreign.charAt local Data_String_CodeUnits_foreign = { -- PureScript indices are 0-based, Lua string positions are 1-based; -- the exports below convert between the two. Pattern arguments are @@ -142,6 +151,8 @@ local Data_String_CodeUnits_foreign = { length = function(s) return #(s) end, drop = function(n) return function(s) return s:sub(math.max(n, 0) + 1) end end } +local Data_String_CodeUnits_length = Data_String_CodeUnits_foreign.length +local Data_String_CodeUnits_singleton = Data_String_CodeUnits_foreign.singleton local Data_String_CodePoints_foreign = (function() -- In pslua a PureScript String is a Lua byte string holding UTF-8, -- so code-point operations decode/encode UTF-8 directly. The PureScript @@ -247,6 +258,7 @@ local Data_String_CodePoints_foreign = (function() end } end)() +local Data_String_CodePoints__codePointAt = Data_String_CodePoints_foreign._codePointAt local Effect_Console_foreign = { log = function(s) return function() print(s) end end } @@ -272,7 +284,7 @@ local Data_Eq_eqInt = { return function(r2_S_1491) return r1_S_1490 == r2_S_1491 end end } -local Data_Show_showInt = { show = Data_Show_foreign.showIntImpl } +local Data_Show_showInt = { show = Data_Show_showIntImpl } local Data_Ordering_LT = { ["$ctor"] = "Data.Ordering∷Ordering.LT" } local Data_Ordering_GT = { ["$ctor"] = "Data.Ordering∷Ordering.GT" } local Data_Ordering_EQ = { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } @@ -303,14 +315,14 @@ local Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -local Data_Enum_bottom1 = Data_Bounded_foreign.bottomChar -local Data_Enum_top1 = Data_Bounded_foreign.topChar +local Data_Enum_bottom1 = Data_Bounded_bottomChar +local Data_Enum_top1 = Data_Bounded_topChar local Data_String_CodePoints_conj = Data_HeytingAlgebra_heytingAlgebraBoolean.conj -local Data_String_CodePoints_fromEnum = Data_Enum_foreign.toCharCode +local Data_String_CodePoints_fromEnum = Data_Enum_toCharCode local Data_String_CodePoints_unsafeCodePointAt0 = Data_String_CodePoints_foreign._unsafeCodePointAt0(function( s_S_27 ) - local cu0_S_28 = Data_String_CodePoints_fromEnum(Data_String_Unsafe_foreign.charAt(0)(s_S_27)) + local cu0_S_28 = Data_String_CodePoints_fromEnum(Data_String_Unsafe_charAt(0)(s_S_27)) if Data_String_CodePoints_conj(Data_String_CodePoints_conj(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, 55296, cu0_S_28))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, cu0_S_28, 56319)))("Data.Ordering∷Ordering.GT" == ((function( ) - local x_S_1474_S_1598 = Data_String_CodeUnits_foreign.length(s_S_27) + local x_S_1474_S_1598 = Data_String_CodeUnits_length(s_S_27) return function(y_S_1475_S_1599) if x_S_1474_S_1598 < y_S_1475_S_1599 then return Data_Ordering_LT @@ -321,7 +333,7 @@ local Data_String_CodePoints_unsafeCodePointAt0 = Data_String_CodePoints_foreign end end end)()(1))["$ctor"]) then - local cu1_S_30 = Data_String_CodePoints_fromEnum(Data_String_Unsafe_foreign.charAt(1)(s_S_27)) + local cu1_S_30 = Data_String_CodePoints_fromEnum(Data_String_Unsafe_charAt(1)(s_S_27)) if Data_String_CodePoints_conj(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, 56320, cu1_S_30))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, cu1_S_30, 57343)) then return (cu0_S_28 - 55296) * 1024 + (cu1_S_30 - 56320) + 65536 else @@ -333,10 +345,10 @@ local Data_String_CodePoints_unsafeCodePointAt0 = Data_String_CodePoints_foreign end) local Data_String_CodePoints_singletonFallback = function(v) if Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, v, 65535) then - return Data_String_CodeUnits_foreign.singleton((function() + return Data_String_CodeUnits_singleton((function() local v_S_63_S_1762 = (function() - if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, v, Data_Enum_foreign.toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, v, Data_Enum_foreign.toCharCode(Data_Enum_top1))) then - return Data_Maybe_Just(Data_Enum_foreign.fromCharCode(v)) + if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, v, Data_Enum_toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, v, Data_Enum_toCharCode(Data_Enum_top1))) then + return Data_Maybe_Just(Data_Enum_fromCharCode(v)) else return Data_Maybe_Nothing end @@ -344,10 +356,10 @@ local Data_String_CodePoints_singletonFallback = function(v) if "Data.Maybe∷Maybe.Just" == v_S_63_S_1762["$ctor"] then return v_S_63_S_1762.value0 elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1762["$ctor"] then - if Data_Ord_lessThan_S_w(Data_Ord_ordInt, v, Data_Enum_foreign.toCharCode(Data_Bounded_foreign.bottomChar)) then - return Data_Bounded_foreign.bottomChar + if Data_Ord_lessThan_S_w(Data_Ord_ordInt, v, Data_Enum_toCharCode(Data_Bounded_bottomChar)) then + return Data_Bounded_bottomChar else - return Data_Bounded_foreign.topChar + return Data_Bounded_topChar end else return error("No patterns matched") @@ -356,10 +368,10 @@ local Data_String_CodePoints_singletonFallback = function(v) else return (function() local x_S_1612_S_1699_S_1763 = Data_EuclideanRing_foreign.intDiv(v - 65536)(1024) + 55296 - return Data_String_CodeUnits_foreign.singleton((function() + return Data_String_CodeUnits_singleton((function() local v_S_63_S_1764 = (function() - if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_foreign.toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_foreign.toCharCode(Data_Enum_top1))) then - return Data_Maybe_Just(Data_Enum_foreign.fromCharCode(x_S_1612_S_1699_S_1763)) + if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_toCharCode(Data_Enum_top1))) then + return Data_Maybe_Just(Data_Enum_fromCharCode(x_S_1612_S_1699_S_1763)) else return Data_Maybe_Nothing end @@ -367,10 +379,10 @@ local Data_String_CodePoints_singletonFallback = function(v) if "Data.Maybe∷Maybe.Just" == v_S_63_S_1764["$ctor"] then return v_S_63_S_1764.value0 elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1764["$ctor"] then - if Data_Ord_lessThan_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_foreign.toCharCode(Data_Bounded_foreign.bottomChar)) then - return Data_Bounded_foreign.bottomChar + if Data_Ord_lessThan_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_toCharCode(Data_Bounded_bottomChar)) then + return Data_Bounded_bottomChar else - return Data_Bounded_foreign.topChar + return Data_Bounded_topChar end else return error("No patterns matched") @@ -378,10 +390,10 @@ local Data_String_CodePoints_singletonFallback = function(v) end)()) end)() .. (function() local x_S_1612_S_1699_S_1765 = Data_EuclideanRing_foreign.intMod(v - 65536)(1024) + 56320 - return Data_String_CodeUnits_foreign.singleton((function() + return Data_String_CodeUnits_singleton((function() local v_S_63_S_1766 = (function() - if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_foreign.toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_foreign.toCharCode(Data_Enum_top1))) then - return Data_Maybe_Just(Data_Enum_foreign.fromCharCode(x_S_1612_S_1699_S_1765)) + if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_toCharCode(Data_Enum_top1))) then + return Data_Maybe_Just(Data_Enum_fromCharCode(x_S_1612_S_1699_S_1765)) else return Data_Maybe_Nothing end @@ -389,10 +401,10 @@ local Data_String_CodePoints_singletonFallback = function(v) if "Data.Maybe∷Maybe.Just" == v_S_63_S_1766["$ctor"] then return v_S_63_S_1766.value0 elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1766["$ctor"] then - if Data_Ord_lessThan_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_foreign.toCharCode(Data_Bounded_foreign.bottomChar)) then - return Data_Bounded_foreign.bottomChar + if Data_Ord_lessThan_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_toCharCode(Data_Bounded_bottomChar)) then + return Data_Bounded_bottomChar else - return Data_Bounded_foreign.topChar + return Data_Bounded_topChar end else return error("No patterns matched") @@ -424,7 +436,7 @@ local Data_String_CodePoints_ordCodePoint = { } local Data_String_CodePoints_drop_S_w local Data_String_CodePoints_uncons = function(s) - if Data_String_CodeUnits_foreign.length(s) == 0 then + if Data_String_CodeUnits_length(s) == 0 then return Data_Maybe_Nothing else return Data_Maybe_Just({ @@ -455,7 +467,7 @@ local Data_String_CodePoints_take_S_w = function(n, s) return Data_String_CodePoints_foreign._take(Data_String_CodePoints_takeFallback)(n)(s) end Data_String_CodePoints_drop_S_w = function(n, s) - return Data_String_CodeUnits_foreign.drop(Data_String_CodeUnits_foreign.length(Data_String_CodePoints_take_S_w(n, s)))(s) + return Data_String_CodeUnits_foreign.drop(Data_String_CodeUnits_length(Data_String_CodePoints_take_S_w(n, s)))(s) end local Data_String_CodePoints_toCodePointArray = Data_String_CodePoints_foreign._toCodePointArray(function( s_S_10 ) return Data_Unfoldable_foreign.unfoldrArrayImpl(function(v2_S_1504_S_1528) @@ -466,7 +478,7 @@ local Data_String_CodePoints_toCodePointArray = Data_String_CodePoints_foreign._ else return error("No patterns matched") end - end)(Partial_Unsafe_foreign._unsafePartial(function() + end)(Partial_Unsafe__unsafePartial(function() return function(v_S_1575) if "Data.Maybe∷Maybe.Just" == v_S_1575["$ctor"] then return v_S_1575.value0 @@ -515,12 +527,12 @@ local Data_String_CodePoints_codePointAt_S_w = function(v, v1) elseif 0 == v then return Data_Maybe_Just(Data_String_CodePoints_unsafeCodePointAt0(v1)) else - return Data_String_CodePoints_foreign._codePointAt(Data_String_CodePoints_codePointAtFallback)(Data_Maybe_Just)(Data_Maybe_Nothing)(Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) + return Data_String_CodePoints__codePointAt(Data_String_CodePoints_codePointAtFallback)(Data_Maybe_Just)(Data_Maybe_Nothing)(Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) end elseif 0 == v then return Data_Maybe_Just(Data_String_CodePoints_unsafeCodePointAt0(v1)) else - return Data_String_CodePoints_foreign._codePointAt(Data_String_CodePoints_codePointAtFallback)(Data_Maybe_Just)(Data_Maybe_Nothing)(Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) + return Data_String_CodePoints__codePointAt(Data_String_CodePoints_codePointAtFallback)(Data_Maybe_Just)(Data_Maybe_Nothing)(Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) end end local Data_String_CodePoints_Lazy_enumCodePoint @@ -559,10 +571,10 @@ local Effect_Console_logShow_S_w = function(dictShow, a) end local Golden_StringCodePoints_Test_fromEnum = Data_String_CodePoints_boundedEnumCodePoint.fromEnum local Golden_StringCodePoints_Test_showArray = { - show = Data_Show_foreign.showArrayImpl(Data_Show_foreign.showIntImpl) + show = Data_Show_showArrayImpl(Data_Show_showIntImpl) } M.Golden_StringCodePoints_Test_cp = function(x_S_1556_S_1666) - return Partial_Unsafe_foreign._unsafePartial(function() + return Partial_Unsafe__unsafePartial(function() return function(v_S_1536) if "Data.Maybe∷Maybe.Just" == v_S_1536["$ctor"] then return v_S_1536.value0 @@ -573,18 +585,18 @@ M.Golden_StringCodePoints_Test_cp = function(x_S_1556_S_1666) end)(Data_String_CodePoints_boundedEnumCodePoint.toEnum(x_S_1556_S_1666)) end M.Golden_StringCodePoints_Test_codes = function(x_S_1556_S_1663) - return Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(x_S_1556_S_1663)) + return Data_Functor_arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(x_S_1556_S_1663)) end return (function() - local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))() + local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))() local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Data_Array_foreign.length(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))() - local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Data_String_CodeUnits_foreign.length("aéЯ𝐀z"))() - local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z"))))() - local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_drop_S_w(2, "aéЯ𝐀z"))))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Data_String_CodeUnits_length("aéЯ𝐀z"))() + local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z"))))() + local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_drop_S_w(2, "aéЯ𝐀z"))))() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1542_S_1719) if "Data.Maybe∷Maybe.Just" == v_S_1542_S_1719["$ctor"] then - return "(Just " .. Data_Show_foreign.showIntImpl(v_S_1542_S_1719.value0) .. ")" + return "(Just " .. Data_Show_showIntImpl(v_S_1542_S_1719.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1542_S_1719["$ctor"] then return "Nothing" else @@ -602,7 +614,7 @@ return (function() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1542_S_1727) if "Data.Maybe∷Maybe.Just" == v_S_1542_S_1727["$ctor"] then - return "(Just " .. Data_Show_foreign.showIntImpl(v_S_1542_S_1727.value0) .. ")" + return "(Just " .. Data_Show_showIntImpl(v_S_1542_S_1727.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1542_S_1727["$ctor"] then return "Nothing" else @@ -620,7 +632,7 @@ return (function() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1542_S_1735) if "Data.Maybe∷Maybe.Just" == v_S_1542_S_1735["$ctor"] then - return "(Just " .. Data_Show_foreign.showIntImpl(v_S_1542_S_1735.value0) .. ")" + return "(Just " .. Data_Show_showIntImpl(v_S_1542_S_1735.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1542_S_1735["$ctor"] then return "Nothing" else @@ -638,7 +650,7 @@ return (function() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1542_S_1746) if "Data.Maybe∷Maybe.Just" == v_S_1542_S_1746["$ctor"] then - return "(Just " .. Data_Show_foreign.showIntImpl(v_S_1542_S_1746.value0) .. ")" + return "(Just " .. Data_Show_showIntImpl(v_S_1542_S_1746.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1542_S_1746["$ctor"] then return "Nothing" else @@ -656,7 +668,7 @@ return (function() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1657) if "Data.Maybe∷Maybe.Just" == v_S_1657["$ctor"] then - return "(Just " .. Data_Show_foreign.showArrayImpl(Data_Show_foreign.showIntImpl)(v_S_1657.value0) .. ")" + return "(Just " .. Data_Show_showArrayImpl(Data_Show_showIntImpl)(v_S_1657.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1657["$ctor"] then return "Nothing" else @@ -666,7 +678,7 @@ return (function() }, (function() local v1_S_1540_S_1759 = Data_String_CodePoints_uncons("aéЯ𝐀z") if "Data.Maybe∷Maybe.Just" == v1_S_1540_S_1759["$ctor"] then - return Data_Maybe_Just(Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(v1_S_1540_S_1759.value0.tail))) + return Data_Maybe_Just(Data_Functor_arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(v1_S_1540_S_1759.value0.tail))) else return Data_Maybe_Nothing end @@ -682,7 +694,7 @@ return (function() end end }, Data_String_CodePoints_foreign._fromCodePointArray(Data_String_CodePoints_singletonFallback)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")) == "aéЯ𝐀z")() - return Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_singleton(Partial_Unsafe_foreign._unsafePartial(function( ) + return Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_singleton(Partial_Unsafe__unsafePartial(function( ) return function(v_S_1536_S_1772) if "Data.Maybe∷Maybe.Just" == v_S_1536_S_1772["$ctor"] then return v_S_1536_S_1772.value0 diff --git a/test/ps/output/Golden.StringEscapes.Test/golden.ir b/test/ps/output/Golden.StringEscapes.Test/golden.ir index 91d42b78..32b69abb 100644 --- a/test/ps/output/Golden.StringEscapes.Test/golden.ir +++ b/test/ps/output/Golden.StringEscapes.Test/golden.ir @@ -10,7 +10,7 @@ UberModule ], uberModuleForeigns = [], uberModuleExports = [ ( Name "main", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir index 0969578b..7bfac6de 100644 --- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir +++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir @@ -13,18 +13,44 @@ UberModule ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs" [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ), ( Nothing, Name "untilE" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect", qnameName = Name "untilE" }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) + ( PropName "untilE" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Ref", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Ref" ) ".spago/p/refs/ee6e959ec21b752622e105a14816e7983b21b9a5/src/Effect/Ref.purs" [ ( Nothing, Name "_new" ), ( Nothing, Name "read" ), ( Nothing, Name "write" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Ref", qnameName = Name "_new" }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) ) + ( PropName "_new" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Ref", qnameName = Name "read" }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) ) + ( PropName "read" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Ref", qnameName = Name "write" }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) ) + ( PropName "write" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Partial.Unsafe", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Partial.Unsafe" ) ".spago/p/partial/2f5c69b1de8f88f1fbc9b98281c9436088ae0789/src/Partial/Unsafe.purs" [ ( Nothing, Name "_unsafePartial" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Partial.Unsafe", qnameName = Name "_unsafePartial" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "foreign" ) ) ) + ( PropName "_unsafePartial" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing @@ -51,7 +77,7 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect" }, LiteralObject Nothing [ - ( PropName "bind", ObjectProp ( Just Always ) + ( PropName "bind", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "bindE" ) ), @@ -68,7 +94,7 @@ UberModule { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect" }, LiteralObject Nothing [ - ( PropName "pure", ObjectProp ( Just Always ) + ( PropName "pure", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) ) ( PropName "pureE" ) ), @@ -419,14 +445,11 @@ UberModule ( Ref Nothing ( Local ( Name "a$12" ) ) :| [] ) :| [] ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) - ) - ( PropName "_new" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "_new" ) + ) :| [] ) ) ( Ref Nothing @@ -439,14 +462,8 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "foreign" ) - ) - ) - ( PropName "untilE" ) + ( Ref Nothing + ( Imported ( ModuleName "Effect" ) ( Name "untilE" ) ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -454,14 +471,11 @@ UberModule ( Standalone ( Nothing, Name "v0$17", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "read" ) ) - ( PropName "read" ) ) ( Ref Nothing ( Local ( Name "r$16" ) ) :| [] ) ) @@ -508,14 +522,11 @@ UberModule ( Nothing, Name "_", AppN Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "write" ) ) - ( PropName "write" ) ) ( Ref Nothing ( Local ( Name "e$19" ) ) :| [] @@ -604,14 +615,11 @@ UberModule ( PropName "map" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Partial.Unsafe" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Partial.Unsafe" ) + ( Name "_unsafePartial" ) ) - ( PropName "_unsafePartial" ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -635,14 +643,8 @@ UberModule ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) - ) - ( PropName "read" ) + ( Ref Nothing + ( Imported ( ModuleName "Effect.Ref" ) ( Name "read" ) ) ) ( Ref Nothing ( Local ( Name "r$16" ) ) :| [] ) :| [] ) @@ -809,12 +811,12 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showIntImpl" ) ) @@ -852,14 +854,11 @@ UberModule ) :| [] ) ) - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) - ) - ( PropName "_new" ) :| [] + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "_new" ) + ) :| [] ) ) ( Ref Nothing @@ -872,14 +871,11 @@ UberModule [ Standalone ( Nothing, Name "_$545", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect" ) + ( Name "untilE" ) ) - ( PropName "untilE" ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -887,14 +883,11 @@ UberModule ( Standalone ( Nothing, Name "v0$17$546", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "read" ) ) - ( PropName "read" ) ) ( Ref Nothing ( Local ( Name "r$16$544" ) ) :| [] @@ -945,14 +938,11 @@ UberModule ( Nothing, Name "_$548", AppN Nothing ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "write" ) ) - ( PropName "write" ) ) ( Ref Nothing ( Local @@ -1047,14 +1037,11 @@ UberModule ( PropName "map" ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Partial.Unsafe" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Partial.Unsafe" ) + ( Name "_unsafePartial" ) ) - ( PropName "_unsafePartial" ) ) ( AbsN Nothing ( ParamUnused Nothing :| [] ) @@ -1084,14 +1071,11 @@ UberModule ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported - ( ModuleName "Effect.Ref" ) - ( Name "foreign" ) - ) + ( Ref Nothing + ( Imported + ( ModuleName "Effect.Ref" ) + ( Name "read" ) ) - ( PropName "read" ) ) ( Ref Nothing ( Local ( Name "r$16$544" ) ) :| [] diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua index 9bd94e7a..25eb255d 100644 --- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua +++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua @@ -25,6 +25,7 @@ local Effect_foreign = { end, untilE = function(f) return function() while not(f()) do end end end } +local Effect_untilE = Effect_foreign.untilE local Effect_Ref_foreign = { _new = function(val) return function() return { value = val } end end, read = function(ref) return function() return ref.value end end, @@ -32,7 +33,11 @@ local Effect_Ref_foreign = { return function(ref) return function() ref.value = val end end end } +local Effect_Ref__new = Effect_Ref_foreign._new +local Effect_Ref_read = Effect_Ref_foreign.read +local Effect_Ref_write = Effect_Ref_foreign.write local Partial_Unsafe_foreign = { _unsafePartial = function(f) return f() end } +local Partial_Unsafe__unsafePartial = Partial_Unsafe_foreign._unsafePartial local Effect_Console_foreign = { log = function(s) return function() print(s) end end } @@ -124,14 +129,14 @@ return (function() tailRecM = function(f_S_11) return function(a_S_12) return function() - local r_S_16 = Effect_bindEffect.bind(f_S_11(a_S_12))(Effect_Ref_foreign._new)() - local _ = Effect_foreign.untilE(function() - local v0_S_17 = Effect_Ref_foreign.read(r_S_16)() + local r_S_16 = Effect_bindEffect.bind(f_S_11(a_S_12))(Effect_Ref__new)() + local _ = Effect_untilE(function() + local v0_S_17 = Effect_Ref_read(r_S_16)() return (function() if "Control.Monad.Rec.Class∷Step.Loop" == v0_S_17["$ctor"] then return function() local e_S_19 = f_S_11(v0_S_17.value0)() - local _ = Effect_Ref_foreign.write(e_S_19)(r_S_16)() + local _ = Effect_Ref_write(e_S_19)(r_S_16)() return Control_Monad_Rec_Class_pure(false)() end elseif "Control.Monad.Rec.Class∷Step.Done" == v0_S_17["$ctor"] then @@ -141,7 +146,7 @@ return (function() end end)()() end)() - return Effect_functorEffect.map(Partial_Unsafe_foreign._unsafePartial(function( ) + return Effect_functorEffect.map(Partial_Unsafe__unsafePartial(function( ) return function(v_S_9_S_20) if "Control.Monad.Rec.Class∷Step.Done" == v_S_9_S_20["$ctor"] then return v_S_9_S_20.value0 @@ -149,7 +154,7 @@ return (function() return error("No patterns matched") end end - end))(Effect_Ref_foreign.read(r_S_16))() + end))(Effect_Ref_read(r_S_16))() end end end, @@ -194,14 +199,14 @@ return (function() tailRecM = function(f_S_11_S_542) return function(a_S_12_S_543) return function() - local r_S_16_S_544 = Effect_bindEffect.bind(f_S_11_S_542(a_S_12_S_543))(Effect_Ref_foreign._new)() - local __S_545 = Effect_foreign.untilE(function() - local v0_S_17_S_546 = Effect_Ref_foreign.read(r_S_16_S_544)() + local r_S_16_S_544 = Effect_bindEffect.bind(f_S_11_S_542(a_S_12_S_543))(Effect_Ref__new)() + local __S_545 = Effect_untilE(function() + local v0_S_17_S_546 = Effect_Ref_read(r_S_16_S_544)() return (function() if "Control.Monad.Rec.Class∷Step.Loop" == v0_S_17_S_546["$ctor"] then return function() local e_S_19_S_547 = f_S_11_S_542(v0_S_17_S_546.value0)() - local __S_548 = Effect_Ref_foreign.write(e_S_19_S_547)(r_S_16_S_544)() + local __S_548 = Effect_Ref_write(e_S_19_S_547)(r_S_16_S_544)() return Control_Monad_Rec_Class_pure(false)() end elseif "Control.Monad.Rec.Class∷Step.Done" == v0_S_17_S_546["$ctor"] then @@ -211,7 +216,7 @@ return (function() end end)()() end)() - return Effect_functorEffect.map(Partial_Unsafe_foreign._unsafePartial(function( ) + return Effect_functorEffect.map(Partial_Unsafe__unsafePartial(function( ) return function(v_S_9_S_20_S_549) if "Control.Monad.Rec.Class∷Step.Done" == v_S_9_S_20_S_549["$ctor"] then return v_S_9_S_20_S_549.value0 @@ -219,7 +224,7 @@ return (function() return error("No patterns matched") end end - end))(Effect_Ref_foreign.read(r_S_16_S_544))() + end))(Effect_Ref_read(r_S_16_S_544))() end end end, diff --git a/test/ps/output/Golden.TestReturnTableField/golden.ir b/test/ps/output/Golden.TestReturnTableField/golden.ir index 88b1af39..56759349 100644 --- a/test/ps/output/Golden.TestReturnTableField/golden.ir +++ b/test/ps/output/Golden.TestReturnTableField/golden.ir @@ -9,7 +9,7 @@ UberModule ) ], uberModuleForeigns = [], uberModuleExports = [ - ( Name "u", ObjectProp ( Just Always ) + ( Name "u", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.TestReturnTableField" ) ( Name "foreign" ) ) ) diff --git a/test/ps/output/Golden.UncurriedLift.Test/golden.ir b/test/ps/output/Golden.UncurriedLift.Test/golden.ir index 51f8cf77..23db206a 100644 --- a/test/ps/output/Golden.UncurriedLift.Test/golden.ir +++ b/test/ps/output/Golden.UncurriedLift.Test/golden.ir @@ -7,6 +7,12 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Control.Monad.ST.Internal", qnameName = Name "foreign" }, ForeignImport Nothing @@ -23,6 +29,12 @@ UberModule }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) ), RecursiveGroup ( ( QName @@ -48,7 +60,7 @@ UberModule { qnameModuleName = ModuleName "Control.Monad.ST.Internal", qnameName = Name "bindST" }, LiteralObject Nothing [ - ( PropName "bind", ObjectProp ( Just Always ) + ( PropName "bind", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.ST.Internal" ) ( Name "foreign" ) ) ) @@ -69,7 +81,7 @@ UberModule { qnameModuleName = ModuleName "Control.Monad.ST.Internal", qnameName = Name "applicativeST" }, LiteralObject Nothing [ - ( PropName "pure", ObjectProp ( Just Always ) + ( PropName "pure", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.ST.Internal" ) ( Name "foreign" ) ) ) @@ -172,7 +184,7 @@ UberModule ( ParamUnused Nothing :| [] ) ( LiteralObject Nothing [ - ( PropName "map", ObjectProp ( Just Always ) + ( PropName "map", ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.ST.Internal" ) @@ -239,12 +251,7 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing - ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) - ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( Ref Nothing ( Local ( Name "a$671" ) ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) @@ -252,10 +259,7 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( Ref Nothing ( Local ( Name "b$672" ) ) :| [] ) ) ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) @@ -330,15 +334,9 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.UncurriedLift.Test" ) ( Name "add3" ) ) @@ -353,15 +351,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.UncurriedLift.Test" ) ( Name "mul2" ) ) @@ -374,15 +366,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.UncurriedLift.Test" ) ( Name "mulByFn" ) ) @@ -395,15 +381,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.UncurriedLift.Test" ) ( Name "add3" ) ) @@ -418,15 +398,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( Ref Nothing ( Imported ( ModuleName "Golden.UncurriedLift.Test" ) ( Name "add3" ) ) @@ -443,17 +417,11 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Control.Monad.ST.Internal" ) ( Name "foreign" ) ) ) diff --git a/test/ps/output/Golden.UncurriedLift.Test/golden.lua b/test/ps/output/Golden.UncurriedLift.Test/golden.lua index d36e83fb..6bb62b45 100644 --- a/test/ps/output/Golden.UncurriedLift.Test/golden.lua +++ b/test/ps/output/Golden.UncurriedLift.Test/golden.lua @@ -18,6 +18,7 @@ local function PSLUA_runtime_lazy(name) end local M = {} local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Control_Monad_ST_Internal_foreign = { map_ = function(f) return function(a) return function() return f(a()) end end @@ -31,6 +32,7 @@ local Control_Monad_ST_Internal_foreign = { local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Control_Monad_ST_Internal_bindST local Control_Monad_ST_Internal_applicativeST local Control_Monad_ST_Internal_monadST = { @@ -76,8 +78,8 @@ local Golden_UncurriedLift_Test_mul2 = function(a_S_699, b_S_700) end local Golden_UncurriedLift_Test_logTwice = function(a_S_671, b_S_672) return (function() - local _ = Effect_Console_foreign.log(a_S_671)() - return Effect_Console_foreign.log(b_S_672)() + local _ = Effect_Console_log(a_S_671)() + return Effect_Console_log(b_S_672)() end)() end local Golden_UncurriedLift_Test_add3 = function(a_S_692, b_S_693, c_S_694) @@ -88,12 +90,12 @@ M.Golden_UncurriedLift_Test_addOnePlusTwoTo = function(c_S_680) end return (function() local _ = Golden_UncurriedLift_Test_logTwice("hello", "world") - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 3)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_mul2(4, 5)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_mulByFn(6, 8)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 100)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 200)))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Control_Monad_ST_Internal_foreign.run(function( ) + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 3)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_UncurriedLift_Test_mul2(4, 5)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_UncurriedLift_Test_mulByFn(6, 8)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 100)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 200)))() + return Effect_Console_log(Data_Show_showIntImpl(Control_Monad_ST_Internal_foreign.run(function( ) return Golden_UncurriedLift_Test_sumST(40, 2) end)))() end)() diff --git a/test/ps/output/Golden.Uncurry.Test/golden.ir b/test/ps/output/Golden.Uncurry.Test/golden.ir index 3984c465..9d1f87c9 100644 --- a/test/ps/output/Golden.Uncurry.Test/golden.ir +++ b/test/ps/output/Golden.Uncurry.Test/golden.ir @@ -7,6 +7,12 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ), ( Nothing, Name "showArrayImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "foreign" }, ForeignImport Nothing @@ -23,9 +29,8 @@ UberModule { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showInt" }, LiteralObject Nothing [ - ( PropName "show", ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) + ( PropName "show", Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ] ), Standalone @@ -34,7 +39,7 @@ UberModule }, AbsN Nothing ( ParamNamed Nothing ( Name "dictShow" ) :| [ ParamNamed Nothing ( Name "a" ) ] ) ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) ( PropName "log" ) ) @@ -382,23 +387,20 @@ UberModule ( LiteralObject Nothing [ ( PropName "show", AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) ( PropName "showArrayImpl" ) ) - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) - ) - ( PropName "showIntImpl" ) :| [] + ( Ref Nothing + ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) :| [] ) ) ] :| [ AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) + ( ObjectProp Nothing ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) ) diff --git a/test/ps/output/Golden.Uncurry.Test/golden.lua b/test/ps/output/Golden.Uncurry.Test/golden.lua index 748a7911..995a756d 100644 --- a/test/ps/output/Golden.Uncurry.Test/golden.lua +++ b/test/ps/output/Golden.Uncurry.Test/golden.lua @@ -10,6 +10,7 @@ local Data_Show_foreign = { end end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Data_Functor_foreign = { arrayMap = function(f) return function(arr) @@ -23,7 +24,7 @@ local Data_Functor_foreign = { local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -local Data_Show_showInt = { show = Data_Show_foreign.showIntImpl } +local Data_Show_showInt = { show = Data_Show_showIntImpl } local Effect_Console_logShow_S_w = function(dictShow, a) return Effect_Console_foreign.log(dictShow.show(a)) end @@ -92,7 +93,7 @@ return (function() local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(10, 1, 2))() local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(1, 0, 41))() local _ = Effect_Console_logShow_S_w({ - show = Data_Show_foreign.showArrayImpl(Data_Show_foreign.showIntImpl) + show = Data_Show_foreign.showArrayImpl(Data_Show_showIntImpl) }, Data_Functor_foreign.arrayMap(function(add3_S_p3_S_255) return Golden_Uncurry_Test_add3_S_w(1, 2, add3_S_p3_S_255) end)({ [1] = 1, [2] = 2, [3] = 3 }))() From e1d30103dbda90abe6c442e5bf2e49187160abc7 Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Sun, 12 Jul 2026 15:57:35 +0200 Subject: [PATCH 2/4] test(golden): foreign accessor sharing default end-to-end (eval) A foreign used at two call sites materializes as a promoted chunk local and both sites reference it; a foreign used once keeps the dissolved form, a field read at its one use site. The eval oracle pins the runtime output either way. --- .../corefn.json | 1 + .../eval/.gitignore | 1 + .../eval/golden.txt | 3 + .../golden.ir | 111 ++++++++++++++++++ .../golden.lua | 16 +++ .../Golden/ForeignAccessorDefault/Test.lua | 8 ++ .../Golden/ForeignAccessorDefault/Test.purs | 19 +++ 7 files changed, 159 insertions(+) create mode 100644 test/ps/output/Golden.ForeignAccessorDefault.Test/corefn.json create mode 100644 test/ps/output/Golden.ForeignAccessorDefault.Test/eval/.gitignore create mode 100644 test/ps/output/Golden.ForeignAccessorDefault.Test/eval/golden.txt create mode 100644 test/ps/output/Golden.ForeignAccessorDefault.Test/golden.ir create mode 100644 test/ps/output/Golden.ForeignAccessorDefault.Test/golden.lua create mode 100644 test/ps/src/Golden/ForeignAccessorDefault/Test.lua create mode 100644 test/ps/src/Golden/ForeignAccessorDefault/Test.purs diff --git a/test/ps/output/Golden.ForeignAccessorDefault.Test/corefn.json b/test/ps/output/Golden.ForeignAccessorDefault.Test/corefn.json new file mode 100644 index 00000000..96d43141 --- /dev/null +++ b/test/ps/output/Golden.ForeignAccessorDefault.Test/corefn.json @@ -0,0 +1 @@ +{"builtWith":"0.15.16","comments":[{"LineComment":" Issue #248: an unannotated foreign accessor used at two or more"},{"LineComment":" sites is kept as a shared binding (promoted to a chunk local by the"},{"LineComment":" Lua backend), while a single-use accessor keeps the dissolved form —"},{"LineComment":" a field read at its one use site."}],"decls":[{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[17,22],"start":[17,3]}},"type":"Var","value":{"identifier":"discard","moduleName":["Control","Bind"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[17,22],"start":[17,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discardUnit","moduleName":["Control","Bind"]}},"type":"App"},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[17,22],"start":[17,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bindEffect","moduleName":["Effect"]}},"type":"App"},"identifier":"discard"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[17,10],"start":[17,3]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Effect","Console"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[17,22],"start":[17,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showInt","moduleName":["Data","Show"]}},"type":"App"},"identifier":"logShow"},{"annotation":{"meta":null,"sourceSpan":{"end":[15,20],"start":[15,1]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","ForeignAccessorDefault","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[17,22],"start":[17,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","ForeignAccessorDefault","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[17,22],"start":[17,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[17,18],"start":[17,12]}},"type":"Var","value":{"identifier":"double","moduleName":["Golden","ForeignAccessorDefault","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[17,21],"start":[17,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[17,21],"start":[17,19]}},"type":"Literal","value":{"literalType":"IntLiteral","value":21}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[17,22],"start":[17,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[17,22],"start":[17,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","ForeignAccessorDefault","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[18,21],"start":[18,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","ForeignAccessorDefault","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[18,21],"start":[18,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[18,18],"start":[18,12]}},"type":"Var","value":{"identifier":"double","moduleName":["Golden","ForeignAccessorDefault","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[18,20],"start":[18,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[18,20],"start":[18,19]}},"type":"Literal","value":{"literalType":"IntLiteral","value":4}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[18,21],"start":[18,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[18,21],"start":[18,3]}},"argument":"$__unused","body":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"logShow","moduleName":["Golden","ForeignAccessorDefault","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,19],"start":[19,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[19,16],"start":[19,12]}},"type":"Var","value":{"identifier":"bump","moduleName":["Golden","ForeignAccessorDefault","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,18],"start":[19,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[19,18],"start":[19,17]}},"type":"Literal","value":{"literalType":"IntLiteral","value":7}},"type":"App"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"identifier":"main"}],"exports":["main"],"foreign":["double","bump"],"imports":[{"annotation":{"meta":null,"sourceSpan":{"end":[19,19],"start":[5,1]}},"moduleName":["Control","Bind"]},{"annotation":{"meta":null,"sourceSpan":{"end":[19,19],"start":[5,1]}},"moduleName":["Data","Show"]},{"annotation":{"meta":null,"sourceSpan":{"end":[19,19],"start":[5,1]}},"moduleName":["Effect"]},{"annotation":{"meta":null,"sourceSpan":{"end":[19,19],"start":[5,1]}},"moduleName":["Effect","Console"]},{"annotation":{"meta":null,"sourceSpan":{"end":[19,19],"start":[5,1]}},"moduleName":["Golden","ForeignAccessorDefault","Test"]},{"annotation":{"meta":null,"sourceSpan":{"end":[7,15],"start":[7,1]}},"moduleName":["Prelude"]},{"annotation":{"meta":null,"sourceSpan":{"end":[19,19],"start":[5,1]}},"moduleName":["Prim"]}],"moduleName":["Golden","ForeignAccessorDefault","Test"],"modulePath":"src/Golden/ForeignAccessorDefault/Test.purs","reExports":{},"sourceSpan":{"end":[19,19],"start":[5,1]}} \ No newline at end of file diff --git a/test/ps/output/Golden.ForeignAccessorDefault.Test/eval/.gitignore b/test/ps/output/Golden.ForeignAccessorDefault.Test/eval/.gitignore new file mode 100644 index 00000000..d2dc29bb --- /dev/null +++ b/test/ps/output/Golden.ForeignAccessorDefault.Test/eval/.gitignore @@ -0,0 +1 @@ +actual.txt diff --git a/test/ps/output/Golden.ForeignAccessorDefault.Test/eval/golden.txt b/test/ps/output/Golden.ForeignAccessorDefault.Test/eval/golden.txt new file mode 100644 index 00000000..3776bd3f --- /dev/null +++ b/test/ps/output/Golden.ForeignAccessorDefault.Test/eval/golden.txt @@ -0,0 +1,3 @@ +42 +8 +8 diff --git a/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.ir b/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.ir new file mode 100644 index 00000000..edc1f065 --- /dev/null +++ b/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.ir @@ -0,0 +1,111 @@ +UberModule + { uberModuleBindings = + [ Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" + [ ( Nothing, Name "showIntImpl" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" + [ ( Nothing, Name "log" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.ForeignAccessorDefault.Test", qnameName = Name "foreign" + }, ForeignImport Nothing + ( ModuleName "Golden.ForeignAccessorDefault.Test" ) "src/Golden/ForeignAccessorDefault/Test.purs" + [ ( Nothing, Name "double" ), ( Nothing, Name "bump" ) ] + ), Standalone + ( QName + { qnameModuleName = ModuleName "Golden.ForeignAccessorDefault.Test", qnameName = Name "double" + }, ObjectProp Nothing + ( Ref Nothing + ( Imported ( ModuleName "Golden.ForeignAccessorDefault.Test" ) ( Name "foreign" ) ) + ) + ( PropName "double" ) + ) + ], uberModuleForeigns = [], uberModuleExports = + [ + ( Name "main", AbsN Nothing + ( ParamUnused Nothing :| [] ) + ( Let Nothing + ( Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.ForeignAccessorDefault.Test" ) + ( Name "double" ) + ) + ) + ( LiteralInt Nothing 21 :| [] ) :| [] + ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) :| + [ Standalone + ( Nothing, Name "_", AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) + ( AppN Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.ForeignAccessorDefault.Test" ) + ( Name "double" ) + ) + ) + ( LiteralInt Nothing 4 :| [] ) :| [] + ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ] + ) + ( AppN Nothing + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) + ( AppN Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) + ( AppN Nothing + ( ObjectProp Nothing + ( Ref Nothing + ( Imported + ( ModuleName "Golden.ForeignAccessorDefault.Test" ) + ( Name "foreign" ) + ) + ) + ( PropName "bump" ) + ) + ( LiteralInt Nothing 7 :| [] ) :| [] + ) :| [] + ) + ) + ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] ) + ) + ) + ) + ] + } \ No newline at end of file diff --git a/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.lua b/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.lua new file mode 100644 index 00000000..573ed5e9 --- /dev/null +++ b/test/ps/output/Golden.ForeignAccessorDefault.Test/golden.lua @@ -0,0 +1,16 @@ +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl +local Effect_Console_foreign = { + log = function(s) return function() print(s) end end +} +local Effect_Console_log = Effect_Console_foreign.log +local Golden_ForeignAccessorDefault_Test_foreign = { + double = function(n) return n * 2 end, + bump = function(n) return n + 1 end +} +local Golden_ForeignAccessorDefault_Test_double = Golden_ForeignAccessorDefault_Test_foreign.double +return (function() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_ForeignAccessorDefault_Test_double(21)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_ForeignAccessorDefault_Test_double(4)))() + return Effect_Console_log(Data_Show_showIntImpl(Golden_ForeignAccessorDefault_Test_foreign.bump(7)))() +end)() diff --git a/test/ps/src/Golden/ForeignAccessorDefault/Test.lua b/test/ps/src/Golden/ForeignAccessorDefault/Test.lua new file mode 100644 index 00000000..b6c25a06 --- /dev/null +++ b/test/ps/src/Golden/ForeignAccessorDefault/Test.lua @@ -0,0 +1,8 @@ +return { + double = function(n) + return n * 2 + end, + bump = function(n) + return n + 1 + end, +} diff --git a/test/ps/src/Golden/ForeignAccessorDefault/Test.purs b/test/ps/src/Golden/ForeignAccessorDefault/Test.purs new file mode 100644 index 00000000..4b7cf628 --- /dev/null +++ b/test/ps/src/Golden/ForeignAccessorDefault/Test.purs @@ -0,0 +1,19 @@ +-- Issue #248: an unannotated foreign accessor used at two or more +-- sites is kept as a shared binding (promoted to a chunk local by the +-- Lua backend), while a single-use accessor keeps the dissolved form — +-- a field read at its one use site. +module Golden.ForeignAccessorDefault.Test (main) where + +import Prelude + +import Effect (Effect) +import Effect.Console (logShow) + +foreign import double :: Int -> Int +foreign import bump :: Int -> Int + +main :: Effect Unit +main = do + logShow (double 21) + logShow (double 4) + logShow (bump 7) From 4d43b25555e8f68cc481919353d17ec66931b9e8 Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Sun, 12 Jul 2026 16:41:32 +0200 Subject: [PATCH 3/4] docs: sync FFI foreign-module shape in copilot-instructions.md with QUIRKS.md MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit .github/copilot-instructions.md still described the pre-#173 FFI convention — required parens around exported values and a ban on comments between table fields — both lifted once pslua started parsing foreign files with its own Lua 5.1 parser. docs/QUIRKS.md and CLAUDE.md were updated in #173; this file was added afterward and never synced, which is why Copilot flagged a compliant FFI export in PR #255 as invalid. --- .github/copilot-instructions.md | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/.github/copilot-instructions.md b/.github/copilot-instructions.md index 504d947b..81af6cbd 100644 --- a/.github/copilot-instructions.md +++ b/.github/copilot-instructions.md @@ -258,20 +258,21 @@ which collapses `Array Unit` to an empty table. ## FFI foreign module shape -Foreign `.lua` files have a header of `local` helpers followed by a single -returned table. Each exported value **must be wrapped in parentheses**: +Foreign `.lua` files are ordinary Lua 5.1 modules, parsed with the compiler's +own Lua 5.1 parser: a header of `local` helpers followed by a single returned +table of exports. Values need no special wrapping, and comments are allowed +anywhere, including between table fields: ```lua local function helper(x) return x + 1 end return { - foo = (function(a) return helper(a) end), - bar = (function(a) return function(b) return a + b end end), + foo = function(a) return helper(a) end, + -- comments between fields are fine + bar = function(a) return function(b) return a + b end end, } ``` -Do not put `--` comments between table fields. The FFI parser rejects them. - --- ## Common pitfalls From 759f50c2f786351464af042a48dd2ca34380e2f5 Mon Sep 17 00:00:00 2001 From: Yura Lazarev Date: Sun, 12 Jul 2026 16:51:47 +0200 Subject: [PATCH 4/4] test(golden): accept structural churn from rebase onto #254 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit #254 (graduated @inline directives) merged to main after this branch was written and added Golden.DirectiveArity/DirectiveAccessor plus touched Golden.LongWriterBind's codegen. Rebasing this branch onto it exposes shareForeignAccessors to foreign accessors used at two or more sites in those goldens (showIntImpl, log, concatArray) for the first time, which now materialize as promoted shared locals instead of repeated field reads — the same effect already accepted for the other 40+9 goldens in the first commit, just triggered by the new base. eval/golden.txt is byte-identical for all three tests; only golden.ir/golden.lua move. --- .../Golden.DirectiveAccessor.Test/golden.ir | 52 +++++++------------ .../Golden.DirectiveAccessor.Test/golden.lua | 10 ++-- .../Golden.DirectiveArity.Test/golden.ir | 32 ++++++------ .../Golden.DirectiveArity.Test/golden.lua | 6 ++- .../Golden.LongWriterBind.Test/golden.ir | 18 ++++--- .../Golden.LongWriterBind.Test/golden.lua | 7 ++- 6 files changed, 59 insertions(+), 66 deletions(-) diff --git a/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir b/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir index d09bdb2c..eb25b1ab 100644 --- a/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir +++ b/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir @@ -7,12 +7,24 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DirectiveAccessor.Test", qnameName = Name "ops" }, LiteralObject Nothing @@ -186,15 +198,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -214,15 +220,9 @@ UberModule [ Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing @@ -244,15 +244,9 @@ UberModule ), Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( LiteralInt Nothing 252 :| [] ) :| [] ) ) @@ -262,15 +256,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( AppN Nothing ( AppN Nothing ( ObjectProp Nothing diff --git a/test/ps/output/Golden.DirectiveAccessor.Test/golden.lua b/test/ps/output/Golden.DirectiveAccessor.Test/golden.lua index 06a876f5..b34d2870 100644 --- a/test/ps/output/Golden.DirectiveAccessor.Test/golden.lua +++ b/test/ps/output/Golden.DirectiveAccessor.Test/golden.lua @@ -1,7 +1,9 @@ local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log local Golden_DirectiveAccessor_Test_ops = { add = function(a) return function(b) return a + b end end, mul = function(a0) return function(b0) return a0 * b0 end end @@ -23,8 +25,8 @@ local Golden_DirectiveAccessor_Test_mkOps = function(n) } end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DirectiveAccessor_Test_ops.mul(6)(7)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DirectiveAccessor_Test_ops.mul(2)(3)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(252))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((Golden_DirectiveAccessor_Test_mkOps(2)).mul(3)(4)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_DirectiveAccessor_Test_ops.mul(6)(7)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(Golden_DirectiveAccessor_Test_ops.mul(2)(3)))() + local _ = Effect_Console_log(Data_Show_showIntImpl(252))() + return Effect_Console_log(Data_Show_showIntImpl((Golden_DirectiveAccessor_Test_mkOps(2)).mul(3)(4)))() end)() diff --git a/test/ps/output/Golden.DirectiveArity.Test/golden.ir b/test/ps/output/Golden.DirectiveArity.Test/golden.ir index ef89b426..3dafd12d 100644 --- a/test/ps/output/Golden.DirectiveArity.Test/golden.ir +++ b/test/ps/output/Golden.DirectiveArity.Test/golden.ir @@ -7,12 +7,24 @@ UberModule ( ModuleName "Data.Show" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Show.purs" [ ( Nothing, Name "showIntImpl" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Show", qnameName = Name "showIntImpl" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) + ( PropName "showIntImpl" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign" }, ForeignImport Nothing ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs" [ ( Nothing, Name "log" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) + ( PropName "log" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Golden.DirectiveArity.Test", qnameName = Name "Op" }, Ctor Nothing ProductType @@ -48,15 +60,9 @@ UberModule ( Standalone ( Nothing, Name "_", AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( LiteralInt Nothing 42 :| [] ) :| [] ) ) @@ -65,15 +71,9 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) ) - ( PropName "log" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) ) ( AppN Nothing - ( ObjectProp ( Just Always ) - ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) ) - ( PropName "showIntImpl" ) - ) + ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) ) ( LiteralInt Nothing 42 :| [] ) :| [] ) ) diff --git a/test/ps/output/Golden.DirectiveArity.Test/golden.lua b/test/ps/output/Golden.DirectiveArity.Test/golden.lua index 1b667380..78171ced 100644 --- a/test/ps/output/Golden.DirectiveArity.Test/golden.lua +++ b/test/ps/output/Golden.DirectiveArity.Test/golden.lua @@ -1,8 +1,10 @@ local M = {} local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl local Effect_Console_foreign = { log = function(s) return function() print(s) end end } +local Effect_Console_log = Effect_Console_foreign.log M.Golden_DirectiveArity_Test_Op = function(value0) return { value0 = value0 } end @@ -10,6 +12,6 @@ M.Golden_DirectiveArity_Test_runOp = function(op) return function(x) return op.value0(x) end end return (function() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(42))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(42))() + local _ = Effect_Console_log(Data_Show_showIntImpl(42))() + return Effect_Console_log(Data_Show_showIntImpl(42))() end)() diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.ir b/test/ps/output/Golden.LongWriterBind.Test/golden.ir index 09994c37..66d2a21e 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.ir +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.ir @@ -13,6 +13,12 @@ UberModule ( ModuleName "Data.Semigroup" ) ".spago/p/prelude/26c058c2a053cf4dd7240f0d822ec096c0fecbe1/src/Data/Semigroup.purs" [ ( Nothing, Name "concatArray" ) ] ), Standalone + ( QName + { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "concatArray" + }, ObjectProp Nothing + ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) + ( PropName "concatArray" ) + ), Standalone ( QName { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign" }, ForeignImport Nothing @@ -35,9 +41,8 @@ UberModule { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "semigroupArray" }, LiteralObject Nothing [ - ( PropName "append", ObjectProp Nothing - ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) ) - ( PropName "concatArray" ) + ( PropName "append", Ref Nothing + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "concatArray" ) ) ) ] ), Standalone @@ -296,11 +301,8 @@ UberModule ) ( AppN Nothing ( AppN Nothing - ( ObjectProp Nothing - ( Ref Nothing - ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) - ) - ( PropName "concatArray" ) + ( Ref Nothing + ( Imported ( ModuleName "Data.Semigroup" ) ( Name "concatArray" ) ) ) ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "v1$523" ) ) ) diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.lua b/test/ps/output/Golden.LongWriterBind.Test/golden.lua index 6bacf7af..05f49211 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.lua +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.lua @@ -12,14 +12,13 @@ local Data_Semigroup_foreign = { end end } +local Data_Semigroup_concatArray = Data_Semigroup_foreign.concatArray local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } local Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -local Data_Semigroup_semigroupArray = { - append = Data_Semigroup_foreign.concatArray -} +local Data_Semigroup_semigroupArray = { append = Data_Semigroup_concatArray } local Data_Tuple_Tuple = function(value0) return function(value1) return { value0 = value0, value1 = value1 } end end @@ -74,7 +73,7 @@ local Golden_LongWriterBind_Test_discard = (function() return function(k_S_522) return dictBind_S_519.bind(v_S_521)(function(v1_S_523) return ((dictBind_S_519.Apply0()).Functor0()).map(function(v3_S_524) - return Data_Tuple_Tuple(v3_S_524.value0)(Data_Semigroup_foreign.concatArray(v1_S_523.value1)(v3_S_524.value1)) + return Data_Tuple_Tuple(v3_S_524.value0)(Data_Semigroup_concatArray(v1_S_523.value1)(v3_S_524.value1)) end)(k_S_522(v1_S_523.value0)) end) end