22 lines
546 B
Haskell
22 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
|