22 lines
476 B
Haskell
22 lines
476 B
Haskell
{-# 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
|