mateamt/src/Types/Meta.hs

{-# LANGUAGE DeriveGeneric #-}
module Types.Meta where

import qualified Data.Text as T

import Data.Aeson

import GHC.Generics
import Data.OpenApi (ToSchema)

data MetaInformation = MetaInformation
  { metaInfoVersion  :: T.Text
  , metaInfoCurrency :: T.Text
  , metaInfoDecimals :: Int
  }
  deriving (Show, Generic)

instance ToJSON MetaInformation where
  toEncoding = genericToEncoding defaultOptions

instance FromJSON MetaInformation
instance ToSchema MetaInformation