fix BalanceView warning, get travis passing

2017-03-28 04:48:27 -07:00 · 2017-03-28 04:48:27 -07:00 · c6eaf9abb3
commit c6eaf9abb3
parent 71b7103e00
1 changed files with 0 additions and 8 deletions
--- a/hledger/Hledger/Cli/BalanceView.hs
+++ b/hledger/Hledger/Cli/BalanceView.hs
@ -181,11 +181,3 @@ balanceviewReport BalanceView{..} CliOpts{reportopts_=ropts, rawopts_=raw} j = d
      _                               -> id
    merging (Table hLeft hTop dat) (Table hLeft' _ dat') =
        Table (T.Group DoubleLine [hLeft, hLeft']) hTop (dat ++ dat')
-
-
-withoutBeginDate :: ReportOpts -> ReportOpts
-withoutBeginDate = id
-- withoutBeginDate ropts@ReportOpts{..} = ropts{period_=p}
--   where
--     p = dateSpanAsPeriod $ DateSpan Nothing (periodEnd period_)
-