From f93b988e939de0a2d3f474a0500b04cb2aeb251f Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 2 Oct 2008 23:37:38 +0000 Subject: [PATCH] haddock tweaks --- Types.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Types.hs b/Types.hs index 506cabda5..4af2264b1 100644 --- a/Types.hs +++ b/Types.hs @@ -12,10 +12,10 @@ type Date = String -- | a date and time type DateTime = String --- | the currency of an Amount. Rates are currently hardcoded. +-- | the currency of an Amount. data Currency = Currency { 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) -- | some amount of money, shares, or anything else. @@ -25,7 +25,7 @@ data Amount = Amount { precision :: Int -- ^ number of significant decimal places } 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 type AccountName = String