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 ("--resume":_) -> launch
["--help"] -> usage ["--help"] -> usage
["--recompile"] -> recompile True >>= flip unless exitFailure ["--recompile"] -> recompile True >>= flip unless exitFailure
["--replace"] -> launch
["--restart"] -> sendRestart >> return () ["--restart"] -> sendRestart >> return ()
["--version"] -> putStrLn $ unwords shortVersion ["--version"] -> putStrLn $ unwords shortVersion
["--verbose-version"] -> putStrLn . unwords $ shortVersion ++ longVersion ["--verbose-version"] -> putStrLn . unwords $ shortVersion ++ longVersion