@@ -104,21 +104,12 @@ value home name =
105toGlobals :: Roots -> [Var.Global]
105toGlobals :: Roots -> [Var.Global]
106toGlobals roots =
106toGlobals roots =
107− hiddenDependencies ++
108− case roots of
107+ case roots of
109− Mains modules ->
108+ Mains modules ->
110− map (\home -> Var.Global home "main") modules
109+ map (\home -> Var.Global home "main") modules
112− Value home name ->
111+ Value home name ->
113− [ Var.Global home name ]
112+ [ Var.Global home name ]
116−-- needed for (==) and toString
117−hiddenDependencies :: [Var.Global]
119− [ Var.Global (ModuleName.inCore "Dict") "toList"
120− , Var.Global (ModuleName.inCore "Set") "toList"