From 8bc078ff7bee5205d0c258df66a6835cce1bfd18 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 10 Dec 2008 05:52:26 +0000 Subject: [PATCH] fix haddock error preventing docs update --- Ledger/Amount.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ledger/Amount.hs b/Ledger/Amount.hs index 605e76b76..8a9cf2b51 100644 --- a/Ledger/Amount.hs +++ b/Ledger/Amount.hs @@ -143,7 +143,7 @@ mixedAmountEquals a b = amounts a' == amounts b' || (isZeroMixedAmount a' && isZ -- | Get the string representation of a mixed amount, showing each of -- its component amounts. NB a mixed amount can have an empty amounts --- list in which case it shows as "". +-- list in which case it shows as \"\". showMixedAmount :: MixedAmount -> String showMixedAmount m = concat $ intersperse "\n" $ map showfixedwidth as where