From 536bea2a78234e0af01fb8c826aa57f2eb51eb1a Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 21 Jun 2020 11:02:16 -0700 Subject: [PATCH] roi: show errors without a traceback --- hledger/Hledger/Cli/Commands/Roi.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hledger/Hledger/Cli/Commands/Roi.hs b/hledger/Hledger/Cli/Commands/Roi.hs index a6e6d7743..fd56ea43c 100644 --- a/hledger/Hledger/Cli/Commands/Roi.hs +++ b/hledger/Hledger/Cli/Commands/Roi.hs @@ -214,8 +214,8 @@ internalRateOfReturn showCashFlow prettyTables (OneSpan spanBegin spanEnd valueB #endif (0.000000000001,10000) (interestSum spanEnd totalCF) of Root rate -> return ((rate-1)*100) - NotBracketed -> error "Error: No solution -- not bracketed." - SearchFailed -> error "Error: Failed to find solution." + NotBracketed -> error' "Error: No solution -- not bracketed." + SearchFailed -> error' "Error: Failed to find solution." type CashFlow = [(Day, Quantity)] @@ -236,5 +236,5 @@ unMix :: MixedAmount -> Quantity unMix a = case (normaliseMixedAmount $ mixedAmountCost a) of (Mixed [a]) -> aquantity a - _ -> error "MixedAmount failed to normalize" + _ -> error' "MixedAmount failed to normalize"