slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bal: show an error for unsupported --budget --sort-amount

Browse Source
This commit is contained in:
Simon Michael 2018-04-27 11:52:23 -07:00
parent dd3e45ff42
commit 34c3c5dc6c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/Commands/Balance.hs
View File

@ -250,6 +250,7 @@ module Hledger.Cli.Commands.Balance (
,tests_Hledger_Cli_Commands_Balance ,tests_Hledger_Cli_Commands_Balance
) where ) where
import Control.Monad (when)
import Data.List import Data.List
import Data.Maybe import Data.Maybe
--import qualified Data.Map as Map --import qualified Data.Map as Map
@ -313,6 +314,7 @@ balance opts@CliOpts{rawopts_=rawopts,reportopts_=ropts} j = do
case (budget, interval) of case (budget, interval) of
(True, _) -> do (True, _) -> do
-- single or multicolumn budget report -- single or multicolumn budget report
when (sort_amount_ ropts) $ error' "Sorry, --sort-amount is not yet supported with --budget." -- TODO
reportspan <- reportSpan j ropts reportspan <- reportSpan j ropts
let budgetreport = dbg1 "budgetreport" $ budgetReport ropts assrt showunbudgeted reportspan d j let budgetreport = dbg1 "budgetreport" $ budgetReport ropts assrt showunbudgeted reportspan d j
where where