diff --git a/src/Types/Settings.hs b/src/Types/Settings.hs
index a20885e..4472fc7 100644
--- a/src/Types/Settings.hs
+++ b/src/Types/Settings.hs
@@ -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