mateamt/src/Types/Settings.hs

22 lines
369 B
Haskell

{-# 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