This commit is contained in:
Simon Michael 2010-07-05 19:38:04 +00:00
parent d6835b6cc7
commit 27fcf68a61

View File

@ -126,11 +126,7 @@ withLatestJournalRender reportfn = do
msg <- getMessage msg <- getMessage
return $ RepHtml $ toContent $ renderHamlet id $ template req msg as ps "hledger" s return $ RepHtml $ toContent $ renderHamlet id $ template req msg as ps "hledger" s
-- hamletToRepHtml $ 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]'
-- template :: Request -> Maybe (Html ()) -> [String] -> [String] -> String -> String -> Hamlet String
template req msg as ps title content = [$hamlet| template req msg as ps title content = [$hamlet|
!!! !!!
%html %html