From b840d69d6710598941ecc4e2416ae17e96710d4a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 7 Jul 2007 09:19:20 +0000
Subject: [PATCH] disable thousands punctuation, it's not so easy

---
 Amount.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Amount.hs b/Amount.hs
index 0fdf8535c..315ba43fd 100644
--- a/Amount.hs
+++ b/Amount.hs
@@ -48,7 +48,7 @@ instance Show Amount where show = showAmountRounded
 
 showAmountRounded :: Amount -> String
 showAmountRounded (Amount c q p) =
-    (symbol c) ++ (punctuatethousands $ printf ("%."++show p++"f") q)
+    (symbol c) ++ ({-punctuatethousands $ -}printf ("%."++show p++"f") q)
 
 showAmountRoundedOrZero :: Amount -> String
 showAmountRoundedOrZero a@(Amount c _ _) =