@@ -24,7 +24,6 @@ import qualified AST.Canonical as Can
24import qualified AST.Optimized as Opt
24import qualified AST.Optimized as Opt
25import qualified Data.Index as Index
25import qualified Data.Index as Index
26import qualified Elm.ModuleName as ModuleName
26import qualified Elm.ModuleName as ModuleName
27−import qualified Elm.Package as Pkg
28import qualified Reporting.Annotation as A
27import qualified Reporting.Annotation as A
@@ -58,12 +57,7 @@ generate =
58registerKernel :: Name.Name -> a -> Tracker a
57registerKernel :: Name.Name -> a -> Tracker a
59registerKernel home value =
58registerKernel home value =
60 Tracker $ \uid deps fields ok ->
59 Tracker $ \uid deps fields ok ->
61− ok uid (Set.insert (toKernelGlobal home) deps) fields value
60+ ok uid (Set.insert (Opt.toKernelGlobal home) deps) fields value
64−toKernelGlobal :: Name.Name -> Opt.Global
66− Opt.Global (ModuleName.Canonical Pkg.kernel home) Name.dollar
69registerGlobal :: ModuleName.Canonical -> Name.Name -> Tracker Opt.Expr
63registerGlobal :: ModuleName.Canonical -> Name.Name -> Tracker Opt.Expr