git.iko.soy/elk
on 6cb3b30 help sign in
elk/compiler/Compiler.hs
16 lines 397 B history raw
1module Main where
3import System.Console.CmdArgs
4import GHC.Conc
5import Build.Flags
6import Build.Build
8main :: IO ()
9main = do setNumCapabilities =<< getNumProcessors
10 compileArgs =<< cmdArgs flags
12compileArgs :: Flags -> IO ()
13compileArgs flags =
14 case files flags of
15 [] -> putStrLn "Usage: elm [OPTIONS] [FILES]\nFor more help: elm --help"
16 fs -> mapM_ (build flags) fs