nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

make imprint optional

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Types/Settings.hs
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