mateamt/src/Types/Settings.hs

23 lines
546 B
Haskell

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