mateamt/src/Types/Meta.hs

21 lines
411 B
Haskell
Raw Normal View History

2019-12-19 01:40:54 +00:00
{-# LANGUAGE DeriveGeneric #-}
module Types.Meta where
import qualified Data.Text as T
import Data.Aeson
import GHC.Generics
data MetaInformation = MetaInformation
{ metaInfoVersion :: T.Text
, metaInfoCurrency :: T.Text
, metaInfoDecimals :: Int
2019-12-19 01:40:54 +00:00
}
deriving (Show, Generic)
instance ToJSON MetaInformation where
toEncoding = genericToEncoding defaultOptions
instance FromJSON MetaInformation