git.iko.soy/elk
on master help sign in
Hide certain parts of the Text module
0e0d613Evan Czaplicki
compiler/Metadata/Prelude.hs+7−2
compare with master
unifiedsplit
@@ -21,13 +21,18 @@ add noPrelude (Module name path exs ims decls) =
21 Just _ -> []
21 Just _ -> []
22
22
23prelude :: [(String, ImportMethod)]
23prelude :: [(String, ImportMethod)]
24−prelude = string : map (\n -> (n, Module.open)) modules
24+prelude = text : string : map (\n -> (n, Module.open)) modules
25 where
25 where
26 string = ("String", Module.importing ["show"])
26 string = ("String", Module.importing ["show"])
27 modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Color"
27 modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Color"
28− , "Graphics.Element", "Graphics.Collage", "Text"
28+ , "Graphics.Element", "Graphics.Collage"
29 , "Native.Ports", "Native.Json"
29 , "Native.Ports", "Native.Json"
30 ]
30 ]
31+ text = ("Text", Module.importing textImports)
32+ textImports =
33+ [ "toText", "leftAligned", "rightAligned", "centered", "justified"
34+ , "plainText", "asText", "typeface", "monospace", "bold", "italic"
35+ ]
31
36
32interfaces :: Bool -> IO Interfaces
37interfaces :: Bool -> IO Interfaces
33interfaces noPrelude =
38interfaces noPrelude =