From f60b09bbddd457027389dff6cf65db656f79aa74 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Mon, 26 Sep 2022 01:02:27 +0100
Subject: [PATCH] add 'success' optional parameter to set-alert in update nav.
 menu.

I think I will need to swap out the string value 'success' with a
constant so things aren't as stringly-typed as this. With that said,
this is just a quick proof-of-concept. I can keep this around until I
build out this updated feature some more.
---
 src/web.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/web.lisp b/src/web.lisp
index 17be863..0bb7c3a 100644
--- a/src/web.lisp
+++ b/src/web.lisp
@@ -235,7 +235,7 @@
 			;; Authorised
 			(progn
 			  (nera:update-nav-menu (cdr (assoc "NAV-MENU" _parsed :test #'string=)))
-			  (utils:set-alert "Nav. menu updated.")
+			  (utils:set-alert "Nav. menu updated." "success")
 			  (redirect "/site-settings"))
 			;; Not Authorised
 			(progn