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

haddock tweaks

Browse Source
This commit is contained in:
Simon Michael 2008-10-02 23:37:38 +00:00
parent 66edd66cc3
commit f93b988e93
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Types.hs
View File

@ -12,10 +12,10 @@ type Date = String
-- | a date and time -- | a date and time
type DateTime = String type DateTime = String
-- | the currency of an Amount. Rates are currently hardcoded. -- | the currency of an Amount.
data Currency = Currency { data Currency = Currency {
symbol :: String, symbol :: String,
rate :: Double -- ^ relative to the dollar.. 0 rates not supported yet rate :: Double -- ^ relative to the dollar (rates are currently hardcoded)
} deriving (Eq,Show) } deriving (Eq,Show)
-- | some amount of money, shares, or anything else. -- | some amount of money, shares, or anything else.
@ -25,7 +25,7 @@ data Amount = Amount {
precision :: Int -- ^ number of significant decimal places precision :: Int -- ^ number of significant decimal places
} deriving (Eq) } deriving (Eq)
-- | AccountNames are strings like assets:cash:petty, from which we derive -- | AccountNames are strings like @assets:cash:petty@, from which we derive
-- the chart of accounts -- the chart of accounts
type AccountName = String type AccountName = String