web: always show empty and boring accounts too

This commit is contained in:
Simon Michael 2011-06-14 19:39:49 +00:00
parent 2d3ac6f032
commit 774434fcf2

View File

@ -865,7 +865,7 @@ viewdataWithDateAndParams d q a p =
getViewData :: Handler ViewData
getViewData = do
app <- getYesod
let opts = appOpts app
let opts = appOpts app ++ [NoElide]
(j, err) <- getCurrentJournal opts
msg <- getMessageOr err
Just here <- getCurrentRoute