From 1fe21904eb462ee2d06090675d27850fdd87dbfd Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 14 Jun 2011 19:15:18 +0000
Subject: [PATCH] fix haddock

---
 hledger-web/Handlers.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hledger-web/Handlers.hs b/hledger-web/Handlers.hs
index dad4cd6a6..012e4c0ef 100644
--- a/hledger-web/Handlers.hs
+++ b/hledger-web/Handlers.hs
@@ -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")
      where
        evenodd = if even n then "even" else "odd" :: String
-       datetransition -- | newy && n > 1 = "newyear"
-                      | newm = "newmonth"
+       datetransition | newm = "newmonth"
                       | newd = "newday"
                       | otherwise = "" :: String
        (firstposting, date, desc) = case ds of Just (da, de) -> ("firstposting", show da, de)