@@ -11,7 +11,7 @@ main = getArgs >>= parse
12parse :: [String] -> IO ()
12parse :: [String] -> IO ()
13parse ("--help":_) = putStrLn usage
13parse ("--help":_) = putStrLn usage
14−parse ("--version":_) = putStrLn "The Elm Compiler 0.1.2"
14+parse ("--version":_) = putStrLn "The Elm Compiler 0.1.2.1"
15parse [loc,file]
15parse [loc,file]
16 | "--runtime-location=" `isPrefixOf` loc =
16 | "--runtime-location=" `isPrefixOf` loc =
17 produceHtml (tail $ dropWhile (/='=') loc) file
17 produceHtml (tail $ dropWhile (/='=') loc) file