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