recognize the --replace option

Ignore-this: 144ecf69bf57464f0de5a68837142190

darcs-hash:20110809195250-76d51-7d0cc80aecc162339ac6323bad61d5813500d4f0

1 files changed, 1 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
index 239fb2a..cd076b5 100644
--- 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