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)