The add form has become a modal dialog, and been moved into the default template. This simplifies some things, for now. Eg it's easily accessible from any page.
		
			
				
	
	
		
			15 lines
		
	
	
		
			264 B
		
	
	
	
		
			Haskell
		
	
	
	
	
	
			
		
		
	
	
			15 lines
		
	
	
		
			264 B
		
	
	
	
		
			Haskell
		
	
	
	
	
	
| -- | /sidebar
 | |
| 
 | |
| module Handler.SidebarR where
 | |
| 
 | |
| import Import
 | |
| 
 | |
| import Handler.Common
 | |
| 
 | |
| -- | Render just the accounts sidebar, useful when opening the sidebar.
 | |
| getSidebarR :: Handler Html
 | |
| getSidebarR = do
 | |
|   vd <- getViewData
 | |
|   giveUrlRenderer [hamlet|^{sidebar vd}|]
 | |
| 
 |