From dfa1b13ee8f50895cfc6e8f8d965bc1a6a3e407b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 23 Nov 2008 20:04:51 +0000
Subject: [PATCH] notes

---
 NOTES | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/NOTES b/NOTES
index 95d30478d..8aea4ff83 100644
--- a/NOTES
+++ b/NOTES
@@ -154,17 +154,3 @@ declName :: HsDecl -> String
 declName (HsFunBind (HsMatch _ (HsIdent name) _ _ _:_)) = name
 declName _                                              = undefined
 
-** separate commodity display settings
-type CommoditySymbol = String
-
-data CommodityDisplayPrefs = CommodityDisplayPrefs {
-      side :: Side,      -- ^ should the symbol appear on the left or the right
-      spaced :: Bool,    -- ^ should there be a space between symbol and quantity
-      comma :: Bool,     -- ^ should thousands be comma-separated
-      precision :: Int,  -- ^ number of decimal places to display
-    } deriving (Eq,Show)
-
-data Amount = Amount {
-      commodity :: CommoditySymbol,
-      quantity :: Double
-    } deriving (Eq)