fd94208 · elk · git.iko.soy

git.iko.soy/elk

Properly register Debug dependencies

Get Debug.log working

commitfd94208daef7589cfb8cc666794d898d92400966 authorEvan Czaplicki <evancz@users.noreply.github.com> dateTue 30 Jan 2018, 18:22 (9 years ago) parente3e4b66

2 files changed+10−1

compare with master

unifiedsplit

src/Optimize/Expression.hs+1−1 src/Optimize/Names.hs+9

src/Optimize/Expression.hs+1−1

@@ -53,7 +53,7 @@ optimize cycle (A.At region expression) =

5353 Names.registerCtor home name index opts

5454

5555 Can.VarDebug home name _ ->

56− Names.registerKernel N.debug (Opt.VarDebug name home region Nothing)

56+ Names.registerDebug name home region

5757

5858 Can.VarOperator _ home name _ ->

5959 Names.registerGlobal home name

src/Optimize/Names.hs+9

@@ -7,6 +7,7 @@ module Optimize.Names

77 , generate

88 , registerKernel

99 , registerGlobal

10+ , registerDebug

1011 , registerCtor

1112 , registerField

1213 , registerFieldDict

@@ -24,6 +25,7 @@ import qualified AST.Module.Name as ModuleName

2425import qualified Data.Index as Index

2526import qualified Elm.Name as N

2627import qualified Elm.Package as Pkg

28+import qualified Reporting.Region as R

2729

2830

2931

@@ -71,6 +73,13 @@ registerGlobal home name =

7173 ok uid (Set.insert global deps) fields (Opt.VarGlobal global)

7274

7375

76+registerDebug :: N.Name -> ModuleName.Canonical -> R.Region -> Tracker Opt.Expr

77+registerDebug name home region =

78+ Tracker $ \uid deps fields ok ->

79+ let global = Opt.Global ModuleName.debug name in

80+ ok uid (Set.insert global deps) fields (Opt.VarDebug name home region Nothing)

81+

82+

7483registerCtor :: ModuleName.Canonical -> N.Name -> Index.ZeroBased -> Can.CtorOpts -> Tracker Opt.Expr

7584registerCtor home name index opts =

7685 Tracker $ \uid deps fields ok ->