on master help sign in
Trim trailing whitespace
commit17f407adda27ea3f4887325e20cd9ce1512e76e9 authorJustin Leitgeb <justin@stackbuilders.com> dateTue 29 Oct 2013, 11:22 (13 years ago) parent3ae8b16
1 file changed+3−3
compiler/Compiler.hs+3−3
compiler/Compiler.hs+3−3
@@ -73,7 +73,7 @@ flags = Flags
7373 &= versionArg [explicit, name "version", name "v", summary (showVersion version)]
7474 &= summary ("The Elm Compiler " ++ showVersion version ++ ", (c) Evan Czaplicki 2011-2013")
7575
76−main :: IO ()
76+main :: IO ()
7777main = do setNumCapabilities =<< getNumProcessors
7878 compileArgs =<< cmdArgs flags
7979
@@ -82,7 +82,7 @@ compileArgs flags =
8282 case files flags of
8383 [] -> putStrLn "Usage: elm [OPTIONS] [FILES]\nFor more help: elm --help"
8484 fs -> mapM_ (build flags) fs
85−
85+
8686
8787buildPath :: Flags -> FilePath -> String -> FilePath
8888buildPath flags filePath ext = build_dir flags </> replaceExtension filePath ext
@@ -140,7 +140,7 @@ buildFile flags moduleNum numModules interfaces filePath =
140140 putStrLn $ concat [ number, " Compiling ", name
141141 , replicate (max 1 (20 - length name)) ' '
142142 , "( " ++ filePath ++ " )" ]
143−
143+
144144 createDirectoryIfMissing True (cache_dir flags)
145145 createDirectoryIfMissing True (build_dir flags)
146146 metaModule <-