simple --version option

Options.hs

@@ -1,6 +1,6 @@
 module Options (
 Opt(..), 
-usage, 
+usage, version,
 parseArguments, 
 ledgerFilePathFromOpts,
 beginDateFromOpts,
@@ -31,8 +31,8 @@ options = [
  Option ['b'] ["begin"]        (ReqArg Begin "yyyy/mm/dd") "report on entries from this date (inclusive)",
  Option ['e'] ["end"]          (ReqArg End "yyyy/mm/dd")   "report on entries to this date (exclusive)",
  Option ['s'] ["showsubs"]     (NoArg  ShowSubs)           "balance report: show subaccounts",
- Option ['h'] ["help","usage"] (NoArg  Help)               "show this help"
- --Option ['V'] ["version"]      (NoArg  Version)            "show version"
+ Option ['h'] ["help","usage"] (NoArg  Help)               "show this help",
+ Option ['V'] ["version"]      (NoArg  Version)            "show version"
  ]
 
 -- | An option value from a command-line flag.
@@ -47,6 +47,8 @@ data Opt =
 
 usage = usageInfo usagehdr options
 
+version = "hledger version 0.1 alpha\n"
+
 -- | Parse the command-line arguments into ledger options, ledger command
 -- name, and ledger command arguments
 parseArguments :: IO ([Opt], String, [String])

hledger.hs

@@ -48,6 +48,7 @@ main = do
   run cmd opts args
     where run cmd opts args
               | Help `elem` opts            = putStr usage
+              | Version `elem` opts         = putStr version
               | cmd `isPrefixOf` "selftest" = selftest opts args
               | cmd `isPrefixOf` "print"    = print_   opts args
               | cmd `isPrefixOf` "register" = register opts args