make imprint optional

This commit is contained in:
nek0 2022-07-24 16:11:37 +02:00
parent 28c6053df5
commit 7516b7912f
1 changed files with 2 additions and 2 deletions

View File

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