From 34c3c5dc6c288120a7ade008c8e6028a688ece7b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 27 Apr 2018 11:52:23 -0700 Subject: [PATCH] bal: show an error for unsupported --budget --sort-amount --- hledger/Hledger/Cli/Commands/Balance.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs index 0a7379168..83a48fca4 100644 --- a/hledger/Hledger/Cli/Commands/Balance.hs +++ b/hledger/Hledger/Cli/Commands/Balance.hs @@ -250,6 +250,7 @@ module Hledger.Cli.Commands.Balance ( ,tests_Hledger_Cli_Commands_Balance ) where +import Control.Monad (when) import Data.List import Data.Maybe --import qualified Data.Map as Map @@ -313,6 +314,7 @@ balance opts@CliOpts{rawopts_=rawopts,reportopts_=ropts} j = do case (budget, interval) of (True, _) -> do -- single or multicolumn budget report + when (sort_amount_ ropts) $ error' "Sorry, --sort-amount is not yet supported with --budget." -- TODO reportspan <- reportSpan j ropts let budgetreport = dbg1 "budgetreport" $ budgetReport ropts assrt showunbudgeted reportspan d j where