web: always show empty and boring accounts too
This commit is contained in:
parent
2d3ac6f032
commit
774434fcf2
@ -865,7 +865,7 @@ viewdataWithDateAndParams d q a p =
|
|||||||
getViewData :: Handler ViewData
|
getViewData :: Handler ViewData
|
||||||
getViewData = do
|
getViewData = do
|
||||||
app <- getYesod
|
app <- getYesod
|
||||||
let opts = appOpts app
|
let opts = appOpts app ++ [NoElide]
|
||||||
(j, err) <- getCurrentJournal opts
|
(j, err) <- getCurrentJournal opts
|
||||||
msg <- getMessageOr err
|
msg <- getMessageOr err
|
||||||
Just here <- getCurrentRoute
|
Just here <- getCurrentRoute
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user