From b4ade0985faf82ec8deedec65773d9791bdef54c Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 15 Oct 2008 21:47:56 +0000
Subject: [PATCH] fix --version

---
 Options.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Options.hs b/Options.hs
index d8e26157d..b9c05c9b8 100644
--- a/Options.hs
+++ b/Options.hs
@@ -51,7 +51,7 @@ parseArguments = do
   args <- getArgs
   case (getOpt optionorder options args) of
     (opts,cmd:args,[]) -> return (opts, cmd, args)
-    (opts,[],[])       -> return ([Help], [], [])
+    (opts,[],[])       -> return (opts, [], [])
     (_,_,errs)         -> ioError (userError (concat errs ++ usage))
 
 -- | Get the ledger file path from options, an environment variable, or a default