From 27fcf68a6134bad0bdb9d4503c02059514bf6957 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 5 Jul 2010 19:38:04 +0000
Subject: [PATCH] cleanup

---
 Hledger/Cli/Commands/WebYesod.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Hledger/Cli/Commands/WebYesod.hs b/Hledger/Cli/Commands/WebYesod.hs
index 187a882ca..7ed7d1feb 100644
--- a/Hledger/Cli/Commands/WebYesod.hs
+++ b/Hledger/Cli/Commands/WebYesod.hs
@@ -125,12 +125,8 @@ withLatestJournalRender reportfn = do
     req <- getRequest
     msg <- getMessage
     return $ RepHtml $ toContent $ renderHamlet id $ template req msg as ps "hledger" s
-    -- hamletToRepHtml $ template req msg as ps "hledger" s
--- template :: Request -> Maybe (Html ()) -> [String] -> [String] -> String -> String -> Hamlet (Routes HledgerWebApp)
--- Couldn't match expected type `Routes HledgerWebApp'
---        against inferred type `[Char]'
+--    hamletToRepHtml $ template req msg as ps "hledger" s
 
--- template :: Request -> Maybe (Html ()) -> [String] -> [String] -> String -> String -> Hamlet String
 template req msg as ps title content = [$hamlet|
 !!!
 %html