@@ -17,7 +17,7 @@ import qualified Text.Jasmine as JS
1717import qualified Data.ByteString.Lazy.Char8 as BS
1818
1919import SourceSyntax.Module
20−import Initialize (buildFromSource, getSortedModuleNames)
20+import Initialize (buildFromSource, getSortedModuleNames, TypeLibrary)
2121import Generate.JavaScript (jsModule)
2222import Generate.Html (createHtml, JSStyle(..), JSSource(..))
2323import Paths_Elm
@@ -79,12 +79,7 @@ elmo flags filePath = file flags filePath "elmo"
7979elmi flags filePath = file flags filePath "elmi"
8080
8181
82−buildFile :: Flags
83− -> Int
84− -> Int
85− -> Map.Map String ModuleInterface
86− -> FilePath
87− -> IO ModuleInterface
82+buildFile :: Flags -> Int -> Int -> TypeLibrary -> FilePath -> IO ModuleInterface
8883buildFile flags moduleNum numModules interfaces filePath =
8984 do compiled <- alreadyCompiled
9085 if compiled then decodeFile (elmi flags filePath) else compile
@@ -172,11 +167,7 @@ build flags rootFile = do
172167 [ Source (if minify flags then Minified else Readable) js ]
173168
174169
175−buildFiles :: Flags
176− -> Int
177− -> Map.Map String ModuleInterface
178− -> [FilePath]
179− -> IO (Map.Map String ModuleInterface)
170+buildFiles :: Flags -> Int -> TypeLibrary -> [FilePath] -> IO TypeLibrary
180171buildFiles _ _ interfaces [] = return interfaces
181172buildFiles flags numModules interfaces (filePath:rest) = do
182173 interface <- buildFile flags (numModules - length rest) numModules interfaces filePath