mateamt/src/Types/Settings.hs

26 lines
581 B
Haskell
Raw Normal View History

2020-10-01 17:11:52 +00:00
{-# LANGUAGE TypeFamilies #-}
module Types.Settings where
import qualified Data.Text as T
import Classes
2020-10-01 17:11:52 +00:00
data Settings = Settings
{ settingsCurrency :: T.Text
, settingsDecimalPlaces :: Int
, settingsBlockRegistration :: Bool
}
deriving (Show)
2020-10-01 17:11:52 +00:00
instance ToDatabase Settings where
type InTuple Settings = (T.Text, Int, Bool)
2020-10-01 17:11:52 +00:00
toDatabase (Settings currency places reg) = (currency, places, reg)
instance FromDatabase Settings where
2020-10-01 17:11:52 +00:00
type OutTuple Settings = (T.Text, Int, Bool)
2020-10-01 17:11:52 +00:00
fromDatabase (currency, places, reg) = Settings currency places reg