fd94208 · elk · git.iko.soy

git.iko.soy/elk

on master help sign in

Properly register Debug dependencies

fd94208Evan Czaplicki9 years ago

src/Optimize/Expression.hs+1−1

compare with master

unifiedsplit

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

53 Names.registerCtor home name index opts

55 Can.VarDebug home name _ ->

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

56+ Names.registerDebug name home region

58 Can.VarOperator _ home name _ ->

59 Names.registerGlobal home name

src/Optimize/Names.hs+9

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

7 , generate

8 , registerKernel

9 , registerGlobal

10+ , registerDebug

10 , registerCtor

11 , registerCtor

11 , registerField

12 , registerField

12 , registerFieldDict

13 , registerFieldDict

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

24import qualified Data.Index as Index

25import qualified Data.Index as Index

25import qualified Elm.Name as N

26import qualified Elm.Name as N

26import qualified Elm.Package as Pkg

27import qualified Elm.Package as Pkg

28+import qualified Reporting.Region as R

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

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

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

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+

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

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

75registerCtor home name index opts =

84registerCtor home name index opts =

76 Tracker $ \uid deps fields ok ->

85 Tracker $ \uid deps fields ok ->