@@ -24,7 +24,6 @@ import qualified AST.Canonical as Can
2424import qualified AST.Optimized as Opt
2525import qualified Data.Index as Index
2626import qualified Elm.ModuleName as ModuleName
27−import qualified Elm.Package as Pkg
2827import qualified Reporting.Annotation as A
2928
3029
@@ -58,12 +57,7 @@ generate =
5857registerKernel :: Name.Name -> a -> Tracker a
5958registerKernel home value =
6059 Tracker $ \uid deps fields ok ->
61− ok uid (Set.insert (toKernelGlobal home) deps) fields value
62−
63−
64−toKernelGlobal :: Name.Name -> Opt.Global
65−toKernelGlobal home =
66− Opt.Global (ModuleName.Canonical Pkg.kernel home) Name.dollar
60+ ok uid (Set.insert (Opt.toKernelGlobal home) deps) fields value
6761
6862
6963registerGlobal :: ModuleName.Canonical -> Name.Name -> Tracker Opt.Expr