diff --git a/src/web.lisp b/src/web.lisp index 4aab8c4..0b62a95 100644 --- a/src/web.lisp +++ b/src/web.lisp @@ -32,9 +32,12 @@ ;; Routing rules (defroute "/" () - (hermetic:auth (:logged-in) - (render #P"index.html" (auth:auth-user-data)) - (render #P"index.html"))) + (let ((alert (utils:get-and-reset-alert))) + (hermetic:auth (:logged-in) + (render #P"index.html" + (append (auth:auth-user-data) + `(:alert ,alert))) + (render #P"index.html" `(:alert ,alert))))) (defroute "/setup" () ;; If there is no database, there is no user, hence no more checks.