From 8de6d3b0a995376a2f5babcda770d70f4db600a0 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 15 Oct 2008 07:10:15 +0000
Subject: [PATCH] show help instead of register report if there is no command

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

diff --git a/Options.hs b/Options.hs
index 67e6f9dac..79c1da0f6 100644
--- a/Options.hs
+++ b/Options.hs
@@ -7,7 +7,6 @@ import System.Directory
 
 usagehdr    = "Usage: hledger [OPTIONS] "++commands++" [ACCTPATTERNS] [-- DESCPATTERNS]\nOptions:"
 commands    = "register|balance|print"
-defaultcmd  = "register"
 defaultfile = "~/.ledger"
 fileenvvar  = "LEDGER"
 
@@ -42,8 +41,8 @@ parseArguments :: IO ([Opt], String, [String])
 parseArguments = do
   args <- getArgs
   case (getOpt RequireOrder options args) of
-    (opts,[],[])       -> return (opts, defaultcmd, [])
     (opts,cmd:args,[]) -> return (opts, cmd, args)
+    (opts,[],[])       -> return ([Help], [], [])
     (_,_,errs)         -> ioError (userError (concat errs ++ usage))
 
 -- | Get the ledger file path from options, an environment variable, or a default