slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

notes

Browse Source
This commit is contained in:
Simon Michael 2008-11-23 20:04:51 +00:00
parent 27c1f06055
commit dfa1b13ee8
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
NOTES
View File

@ -154,17 +154,3 @@ declName :: HsDecl -> String
declName (HsFunBind (HsMatch _ (HsIdent name) _ _ _:_)) = name declName (HsFunBind (HsMatch _ (HsIdent name) _ _ _:_)) = name
declName _ = undefined 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)