From 7516b7912f5a6fb4021649da4ec2cccef331a873 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sun, 24 Jul 2022 16:11:37 +0200
Subject: [PATCH] make imprint optional

---
 src/Types/Settings.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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