{-# LANGUAGE TypeFamilies #-} module Types.Settings where import qualified Data.Text as T data Settings = Settings { settingsCurrency :: T.Text , settingsDecimalPlaces :: Int , settingsBlockRegistration :: Bool } instance ToDatabase Settings where data InTuple Settings = (T.Text, Int, Bool) toDatabase (Settings currency places reg) = (currency, places, reg) instance FromDatabase Settins where data OutTuple Settings = (T.Text, Int, Bool) fromDatabase (currency, places, reg) = Settings currency places reg