From 96628feee92dada40de5f19533770c79262a600a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 28 Aug 2011 19:49:26 +0000
Subject: [PATCH] make the old ledger-compatible command names primary for now

---
 hledger/Hledger/Cli/Options.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/hledger/Hledger/Cli/Options.hs b/hledger/Hledger/Cli/Options.hs
index 845933d3b..63917b7ca 100644
--- a/hledger/Hledger/Cli/Options.hs
+++ b/hledger/Hledger/Cli/Options.hs
@@ -188,8 +188,8 @@ testmode = (commandmode ["test"]) {
     }
  }
 
-accountsmode = (commandmode ["accounts","balance"]) {
-  modeHelp = "(or balance) show matched accounts and their balances"
+accountsmode = (commandmode ["balance","accounts"]) {
+  modeHelp = "(or accounts) show matched accounts and their balances"
  ,modeArgs = ([], Just commandargsflag)
  ,modeGroupFlags = Group {
      groupUnnamed = [
@@ -204,8 +204,8 @@ accountsmode = (commandmode ["accounts","balance"]) {
     }
  }
 
-entriesmode = (commandmode ["entries","print"]) {
-  modeHelp = "(or print) show matched journal entries"
+entriesmode = (commandmode ["print","entries"]) {
+  modeHelp = "(or entries) show matched journal entries"
  ,modeArgs = ([], Just commandargsflag)
  ,modeGroupFlags = Group {
      groupUnnamed = []
@@ -214,8 +214,8 @@ entriesmode = (commandmode ["entries","print"]) {
     }
  }
 
-postingsmode = (commandmode ["postings","register"]) {
-  modeHelp = "(or register) show matched postings and running total"
+postingsmode = (commandmode ["register","postings"]) {
+  modeHelp = "(or postings) show matched postings and running total"
  ,modeArgs = ([], Just commandargsflag)
  ,modeGroupFlags = Group {
      groupUnnamed = []