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 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.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.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.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/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..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 ( Just Always ) - ( 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" ) ) ) @@ -7175,7 +7177,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 +7196,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.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 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 }))() 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)