factor out onclick javascript

Assistant/WebApp.hs

@@ -165,3 +165,11 @@ webAppFormAuthToken :: Widget
 webAppFormAuthToken = do
 	webapp <- lift getYesod
 	[whamlet|<input type="hidden" name="auth" value="#{secretToken webapp}">|]
+
+{- A button with an icon, and maybe label, that can be clicked to perform
+ - some action.
+ - With javascript, clicking it POSTs the Route, and remains on the same
+ - page.
+ - With noscript, clicking it GETs the Route. -}
+actionButton :: Route WebApp -> (Maybe String) -> String -> String -> Widget
+actionButton route label buttonclass iconclass = $(widgetFile "actionbutton")

Assistant/WebApp/SideBar.hs

@@ -53,7 +53,6 @@ sideBarDisplay = do
 		addalert :: AlertId -> Bool -> Bool -> Text -> Maybe Text -> Text -> Maybe String -> Widget
 		addalert i closable block divclass heading message icon = do
 			let alertid = show i
-			let closealert = CloseAlert i
 			$(widgetFile "sidebar/alert")
 
 {- Called by client to get a sidebar display.