Make the build process look nicer

This commit is contained in:
Evan Czaplicki 2013-09-15 14:00:12 -07:00
parent 11f5f5263c
commit a40cd3cc06
2 changed files with 4 additions and 3 deletions

View file

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

View file

@ -1,4 +1,5 @@
module Prelude where
{-| Everything that is automatically imported -}
import Basics (String)
import Maybe (Maybe)