update pair request alert when button is pressed

Assistant/WebApp.hs

@@ -132,3 +132,10 @@ renderUrl :: UrlRenderer -> Route WebApp -> [(Text, Text)] -> IO Text
 renderUrl urlrenderer route params = do
 	r <- readMVar urlrenderer
 	return $ r route params
+
+{- Redirects back to the referring page, or if there's none, HomeR -}
+redirectBack :: Handler ()
+redirectBack = do
+	clearUltDest
+	setUltDestReferer
+	redirectUltDest HomeR