@@ -22,9 +22,9 @@ add (Module name exs ims stmts) = Module name exs (customIms ++ ims) stmts
2222 Just _ -> []
2323
2424prelude :: [(String, ImportMethod)]
25−prelude = text : map (\n -> (n, Hiding [])) modules
25+prelude = text ++ map (\n -> (n, Hiding [])) modules
2626 where
27− text = ("Text", Hiding ["link", "color", "height"])
27+ text = map ((,) "Text") [ As "Text", Hiding ["link", "color", "height"] ]
2828 modules = [ "Basics", "Signal", "List", "Maybe", "Time"
2929 , "Graphics.Element", "Color", "Graphics.Collage" ]
3030