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}|]
 | 
						|
 |