make imprint optional

This commit is contained in:
nek0 2022-07-24 16:11:37 +02:00
parent 28c6053df5
commit 7516b7912f

View file

@ -9,13 +9,13 @@ import Classes
data Settings = Settings data Settings = Settings
{ settingsBlockRegistration :: Bool { settingsBlockRegistration :: Bool
, settingsImprintText :: T.Text , settingsImprintText :: Maybe T.Text
} }
deriving (Show) deriving (Show)
instance DatabaseRepresentation Settings where instance DatabaseRepresentation Settings where
type Representation Settings = (Bool, T.Text) type Representation Settings = (Bool, Maybe T.Text)
instance ToDatabase Settings where instance ToDatabase Settings where