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