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

fix haddock

Browse Source
This commit is contained in:
Simon Michael 2011-06-14 19:15:18 +00:00
parent 8396f988ad
commit 1fe21904eb
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-web/Handlers.hs
View File

@ -167,8 +167,7 @@ postingRegisterReportAsHtml _ vd (balancelabel,items) = $(Settings.hamletFile "p
itemAsHtml VD{here=here} (n, newd, newm, newy, (ds, posting, b)) = $(Settings.hamletFile "postingregisterreportitem") itemAsHtml VD{here=here} (n, newd, newm, newy, (ds, posting, b)) = $(Settings.hamletFile "postingregisterreportitem")
where where
evenodd = if even n then "even" else "odd" :: String evenodd = if even n then "even" else "odd" :: String
datetransition -- | newy && n > 1 = "newyear" datetransition | newm = "newmonth"
| newm = "newmonth"
| newd = "newday" | newd = "newday"
| otherwise = "" :: String | otherwise = "" :: String
(firstposting, date, desc) = case ds of Just (da, de) -> ("firstposting", show da, de) (firstposting, date, desc) = case ds of Just (da, de) -> ("firstposting", show da, de)