@@ -25,12 +25,12 @@ main = do setNumCapabilities =<< getNumProcessors
26compileArgs :: Flag.Flags -> IO ()
26compileArgs :: Flag.Flags -> IO ()
27compileArgs flags =
27compileArgs flags =
28− do when (Flag.get_runtime flags) $
28+ do when (Flag.get_runtime flags) $ do
29− do putStrLn Path.runtime
29+ putStrLn Path.runtime
30− exitSuccess
30+ exitSuccess
31 case Flag.files flags of
31 case Flag.files flags of
32− [] -> putStrLn "Usage: elm [OPTIONS] [FILES]\nFor more help: elm --help"
32+ [] -> putStrLn "Usage: elm [OPTIONS] [FILES]\nFor more help: elm --help"
33− fs -> mapM_ (build flags) fs
33+ fs -> mapM_ (build flags) fs
35build :: Flag.Flags -> FilePath -> IO ()
35build :: Flag.Flags -> FilePath -> IO ()
36build flags rootFile =
36build flags rootFile =