fix haddock error preventing docs update

This commit is contained in:
Simon Michael 2008-12-10 05:52:26 +00:00
parent fdb45b8d9c
commit 8bc078ff7b

View File

@ -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