recognize the --replace option

2025-07-26 01:31:53 -07:00 · 2011-08-09 19:52:50 +00:00
parent f34642cbac
commit d16aa9975e
1 changed files with 1 additions and 0 deletions
--- a/Main.hs
+++ b/Main.hs
@@ -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