drop unused SubTotal option

hledger-vty/Hledger/Vty/Main.hs

@@ -94,7 +94,6 @@ vty :: [Opt] -> [String] -> Journal -> IO ()
 vty opts args j = do
   v <- mkVty
   DisplayRegion w h <- display_bounds $ terminal v
-  let opts' = SubTotal:opts
   d <-  getCurrentDay
   let a = enter d BalanceScreen args
           AppState {
@@ -102,7 +101,7 @@ vty opts args j = do
                  ,aw=fromIntegral w
                  ,ah=fromIntegral h
                  ,amsg=helpmsg
-                 ,aopts=opts'
+                 ,aopts=opts
                  ,aargs=args
                  ,ajournal=j
                  ,abuf=[]

hledger/Hledger/Cli.hs

@@ -130,7 +130,7 @@ tests_Hledger_Cli = TestList
     ]
     
    ,"balance report with account pattern o" ~:
-    ([SubTotal], ["o"]) `gives`
+    ([], ["o"]) `gives`
     ["                  $1  expenses:food"
     ,"                 $-2  income"
     ,"                 $-1    gifts"
@@ -217,7 +217,7 @@ tests_Hledger_Cli = TestList
     ]
 
    ,"balance report with -E shows zero-balance accounts" ~:
-    ([SubTotal,Empty], ["assets"]) `gives`
+    ([Empty], ["assets"]) `gives`
     ["                 $-1  assets"
     ,"                  $1    bank"
     ,"                   0      checking"

hledger/Hledger/Cli/Options.hs

@@ -110,7 +110,6 @@ data Opt =
     | Flat
     | Drop        {value::String}
     | NoTotal
-    | SubTotal
     | DailyOpt
     | WeeklyOpt
     | MonthlyOpt