@@ -21,13 +21,18 @@ add noPrelude (Module name path exs ims decls) =
2121 Just _ -> []
2222
2323prelude :: [(String, ImportMethod)]
24−prelude = string : map (\n -> (n, Module.open)) modules
24+prelude = text : string : map (\n -> (n, Module.open)) modules
2525 where
2626 string = ("String", Module.importing ["show"])
2727 modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Color"
28− , "Graphics.Element", "Graphics.Collage", "Text"
28+ , "Graphics.Element", "Graphics.Collage"
2929 , "Native.Ports", "Native.Json"
3030 ]
31+ text = ("Text", Module.importing textImports)
32+ textImports =
33+ [ "toText", "leftAligned", "rightAligned", "centered", "justified"
34+ , "plainText", "asText", "typeface", "monospace", "bold", "italic"
35+ ]
3136
3237interfaces :: Bool -> IO Interfaces
3338interfaces noPrelude =