@@ -5,7 +5,7 @@ import qualified Data.Map as Map
55import qualified Control.Exception as E
66import System.Exit
77import System.IO
8−import AST.Module
8+import AST.Module as Module
99import qualified Build.Interface as Interface
1010import Build.Utils (getDataFile)
1111
@@ -21,10 +21,9 @@ add noPrelude (Module name path exs ims decls) =
2121 Just _ -> []
2222
2323prelude :: [(String, ImportMethod)]
24−prelude = string ++ text ++ map (\n -> (n, Hiding [])) modules
24+prelude = string : map (\n -> (n, Module.open)) modules
2525 where
26− text = map ((,) "Text") [ As "Text", Hiding ["link", "color", "height"] ]
27− string = map ((,) "String") [ As "String", Importing ["show"] ]
26+ string = ("String", Module.importing ["show"])
2827 modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Color"
2928 , "Graphics.Element", "Graphics.Collage"
3029 , "Native.Ports", "Native.Json"
@@ -50,7 +49,7 @@ safeReadDocs name =
5049readDocs :: FilePath -> IO Interfaces
5150readDocs filePath = do
5251 interfaces <- Interface.load filePath
53− case mapM (Interface.isValid filePath) (interfaces :: [(String, ModuleInterface)]) of
52+ case mapM (Interface.isValid filePath) (interfaces :: [(String, Module.Interface)]) of
5453 Left err -> do
5554 hPutStrLn stderr err
5655 exitFailure