@@ -130,13 +130,13 @@ compileLibraries lbi = do
130 arg = Just [("Elm_datadir", rtd_c)]
130 arg = Just [("Elm_datadir", rtd_c)]
131 handle <- runProcess elm_c args Nothing arg Nothing Nothing Nothing
131 handle <- runProcess elm_c args Nothing arg Nothing Nothing Nothing
132 exitCode <- waitForProcess handle
132 exitCode <- waitForProcess handle
133− rawSystem doc_c [file]
134 return ( out_c </> replaceExtension file "elmo"
133 return ( out_c </> replaceExtension file "elmo"
135 , out_c </> replaceExtension file "elmi")
134 , out_c </> replaceExtension file "elmi")
137 setCurrentDirectory "libraries"
136 setCurrentDirectory "libraries"
138− files <- getFiles ".elm" "."
137+ paths <- getFiles ".elm" "."
139− files <- unzip `fmap` mapM make files
138+ files <- unzip `fmap` mapM make paths
139+ mapM_ (\path -> rawSystem doc_c [path]) paths
140 setCurrentDirectory ".."
140 setCurrentDirectory ".."
141 return files
141 return files