mateamt/src/Types/Meta.hs
2022-07-17 21:28:22 +02:00

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