git.iko.soy/elk
on master help sign in
Trim trailing whitespace
17f407aJustin Leitgeb
compiler/Compiler.hs+3−3
compare with master
unifiedsplit
@@ -73,7 +73,7 @@ flags = Flags
73 &= versionArg [explicit, name "version", name "v", summary (showVersion version)]
73 &= versionArg [explicit, name "version", name "v", summary (showVersion version)]
74 &= summary ("The Elm Compiler " ++ showVersion version ++ ", (c) Evan Czaplicki 2011-2013")
74 &= summary ("The Elm Compiler " ++ showVersion version ++ ", (c) Evan Czaplicki 2011-2013")
75
75
76−main :: IO ()
76+main :: IO ()
77main = do setNumCapabilities =<< getNumProcessors
77main = do setNumCapabilities =<< getNumProcessors
78 compileArgs =<< cmdArgs flags
78 compileArgs =<< cmdArgs flags
79
79
@@ -82,7 +82,7 @@ compileArgs flags =
82 case files flags of
82 case files flags of
83 [] -> putStrLn "Usage: elm [OPTIONS] [FILES]\nFor more help: elm --help"
83 [] -> putStrLn "Usage: elm [OPTIONS] [FILES]\nFor more help: elm --help"
84 fs -> mapM_ (build flags) fs
84 fs -> mapM_ (build flags) fs
85−
85+
86
86
87buildPath :: Flags -> FilePath -> String -> FilePath
87buildPath :: Flags -> FilePath -> String -> FilePath
88buildPath flags filePath ext = build_dir flags </> replaceExtension filePath ext
88buildPath flags filePath ext = build_dir flags </> replaceExtension filePath ext
@@ -140,7 +140,7 @@ buildFile flags moduleNum numModules interfaces filePath =
140 putStrLn $ concat [ number, " Compiling ", name
140 putStrLn $ concat [ number, " Compiling ", name
141 , replicate (max 1 (20 - length name)) ' '
141 , replicate (max 1 (20 - length name)) ' '
142 , "( " ++ filePath ++ " )" ]
142 , "( " ++ filePath ++ " )" ]
143−
143+
144 createDirectoryIfMissing True (cache_dir flags)
144 createDirectoryIfMissing True (cache_dir flags)
145 createDirectoryIfMissing True (build_dir flags)
145 createDirectoryIfMissing True (build_dir flags)
146 metaModule <-
146 metaModule <-