From 2f59135953ed96a2df9a582be4525eda0e39f8b4 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 10 Oct 2008 01:36:21 +0000
Subject: [PATCH] simple --version option

---
 Options.hs | 8 +++++---
 hledger.hs | 1 +
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/Options.hs b/Options.hs
index 6a1ea84d7..8679e928f 100644
--- a/Options.hs
+++ b/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])
diff --git a/hledger.hs b/hledger.hs
index 4c4099459..9eeaf847f 100644
--- a/hledger.hs
+++ b/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