recognize the --replace option

This commit is contained in:
Daniel Wagner 2011-08-09 19:52:50 +00:00
parent f34642cbac
commit d16aa9975e

View File

@ -43,6 +43,7 @@ main = do
("--resume":_) -> launch
["--help"] -> usage
["--recompile"] -> recompile True >>= flip unless exitFailure
["--replace"] -> launch
["--restart"] -> sendRestart >> return ()
["--version"] -> putStrLn $ unwords shortVersion
["--verbose-version"] -> putStrLn . unwords $ shortVersion ++ longVersion