{-# LANGUAGE TypeFamilies #-} module Types.Settings where import Classes data Settings = Settings { settingsBlockRegistration :: Bool } deriving (Show) instance ToDatabase Settings where type InTuple Settings = Bool toDatabase (Settings reg) = reg instance FromDatabase Settings where type OutTuple Settings = Bool fromDatabase reg = Settings reg