@@ -20,11 +20,12 @@ add noPrelude (Module name exs ims decls) = Module name exs (customIms ++ ims) d
20 Just _ -> []
20 Just _ -> []
22prelude :: [(String, ImportMethod)]
22prelude :: [(String, ImportMethod)]
23−prelude = text ++ map (\n -> (n, Hiding [])) modules
23+prelude = string : text ++ map (\n -> (n, Hiding [])) modules
25 text = map ((,) "Text") [ As "Text", Hiding ["link", "color", "height"] ]
25 text = map ((,) "Text") [ As "Text", Hiding ["link", "color", "height"] ]
26+ string = ("String", As "String")
26 modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Prelude"
27 modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Prelude"
27− , "Graphics.Element", "Color", "Graphics.Collage" ]
28+ , "Graphics.Element", "Color", "Graphics.Collage", "Native.Ports" ]
29interfaces :: Bool -> IO Interfaces
30interfaces :: Bool -> IO Interfaces
30interfaces noPrelude =
31interfaces noPrelude =