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

docs: haddock fixes

Browse Source
This commit is contained in:
Simon Michael 2011-04-18 06:36:00 +00:00
parent 9bae97821a
commit 505d677461
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Data/Amount.hs
View File

@ -185,7 +185,7 @@ showamountquantity (Amount (Commodity {decimalpoint=d,precision=p,separator=s,se
punctuatenumber d s spos $ qstr punctuatenumber d s spos $ qstr
where where
-- isint n = fromIntegral (round n) == n -- isint n = fromIntegral (round n) == n
qstr -- | p == maxprecision && isint q = printf "%d" (round q::Integer) qstr -- p == maxprecision && isint q = printf "%d" (round q::Integer)
| p == maxprecisionwithpoint = printf "%f" q | p == maxprecisionwithpoint = printf "%f" q
| p == maxprecision = chopdotzero $ printf "%f" q | p == maxprecision = chopdotzero $ printf "%f" q
| otherwise = printf ("%."++show p++"f") q | otherwise = printf ("%."++show p++"f") q

4
hledger-lib/Hledger/Data/Types.hs
View File

@ -49,7 +49,7 @@ data DateSpan = DateSpan (Maybe Day) (Maybe Day) deriving (Eq,Show,Ord)
data Interval = NoInterval data Interval = NoInterval
| Days Int | Weeks Int | Months Int | Quarters Int | Years Int | Days Int | Weeks Int | Months Int | Quarters Int | Years Int
| DayOfMonth Int | DayOfWeek Int | DayOfMonth Int | DayOfWeek Int
-- | WeekOfYear Int | MonthOfYear Int | QuarterOfYear Int -- WeekOfYear Int | MonthOfYear Int | QuarterOfYear Int
deriving (Eq,Show,Ord) deriving (Eq,Show,Ord)
type AccountName = String type AccountName = String
@ -68,7 +68,7 @@ data Commodity = Commodity {
separatorpositions :: [Int] -- ^ positions of separators, counting leftward from decimal point separatorpositions :: [Int] -- ^ positions of separators, counting leftward from decimal point
} deriving (Eq,Ord,Show,Read) } deriving (Eq,Ord,Show,Read)
-- | An amount's price may be written as @ unit price or @@ total price. -- | An amount's price may be written as \@ unit price or \@\@ total price.
-- Note although Price has a MixedAmount, it should hold only -- Note although Price has a MixedAmount, it should hold only
-- single-commodity amounts, cf costOfAmount. -- single-commodity amounts, cf costOfAmount.
data Price = UnitPrice MixedAmount | TotalPrice MixedAmount data Price = UnitPrice MixedAmount | TotalPrice MixedAmount