From 1b135cb7320f66305dd21dbc9a92f27425d9370a Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Mon, 14 Feb 2022 17:25:45 +0100
Subject: [PATCH] chore(system-msgs): add volatile cluster settings to db

---
 models/system-messages.model     | 3 ++-
 src/Model/Types.hs               | 1 +
 src/Model/Types/SystemMessage.hs | 6 ++++++
 3 files changed, 9 insertions(+), 1 deletion(-)
 create mode 100644 src/Model/Types/SystemMessage.hs

diff --git a/models/system-messages.model b/models/system-messages.model
index d7e3fd852..c00cfe377 100644
--- a/models/system-messages.model
+++ b/models/system-messages.model
@@ -1,8 +1,9 @@
 -- Messages shown to all users as soon as they visit the site/log in (i.e.: "System is going down for maintenance next sunday")
 -- Only administrators (of any school) should be able to create these via a web-interface
-SystemMessage
+SystemMessage json
     from                UTCTime Maybe -- Message is not shown before this date has passed (never shown, if null)
     to                  UTCTime Maybe -- Message is shown until this date has passed (shown forever, if null)
+    onVolatileClusterSettings SystemMessageVolatileClusterSettings -- Message is shown when given volatile cluster settings have given values
     newsOnly            Bool default=false
     authenticatedOnly   Bool -- Show message to all users upon visiting the site or only upon login?
     severity            MessageStatus -- Success, Warning, Error, Info, ...
diff --git a/src/Model/Types.hs b/src/Model/Types.hs
index 0de01da40..66ba2c906 100644
--- a/src/Model/Types.hs
+++ b/src/Model/Types.hs
@@ -25,3 +25,4 @@ import Model.Types.Room as Types
 import Model.Types.Csv as Types
 import Model.Types.Upload as Types
 import Model.Types.Communication as Types
+import Model.Types.SystemMessage as Types
diff --git a/src/Model/Types/SystemMessage.hs b/src/Model/Types/SystemMessage.hs
new file mode 100644
index 000000000..3205ebd8d
--- /dev/null
+++ b/src/Model/Types/SystemMessage.hs
@@ -0,0 +1,6 @@
+module Model.Types.SystemMessage where
+
+import Import.NoModel
+
+
+type SystemMessageVolatileClusterSettings = Set (VolatileClusterSettingsKey, Value)