mateamt/src/Control/Meta.hs
2021-07-12 13:29:40 +02:00

19 lines
357 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
module Control.Meta where
import Control.Monad.Reader (asks)
-- internal imports
import Types
metaGet :: MateHandler MetaInformation
metaGet = do
symbol <- asks rsCurrencySymbol
version <- asks rsSoftwareVersion
return (MetaInformation
{ metaInfoVersion = version
, metaInfoCurrency = symbol
}
)