diff --git a/hledger/Hledger/Cli/Convert.hs b/hledger/Hledger/Cli/Convert.hs index 7aee2f8aa..43fcba82a 100644 --- a/hledger/Hledger/Cli/Convert.hs +++ b/hledger/Hledger/Cli/Convert.hs @@ -481,7 +481,7 @@ getAmount rules fields = case amountField rules of case (c, d) of (x, "") -> x ("", x) -> "-"++x - _ -> "" + p -> error' $ "using amount-in-field and amount-out-field, found a value in both fields: "++show p where c = maybe "" (atDef "" fields) (inField rules) d = maybe "" (atDef "" fields) (outField rules)