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