fix haddock error preventing docs update

2008-12-10 05:52:26 +00:00 · 2008-12-10 05:52:26 +00:00 · 8bc078ff7b
commit 8bc078ff7b
parent fdb45b8d9c
1 changed files with 1 additions and 1 deletions
--- 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