mateamt/src/Control/Meta.hs

19 lines
357 B
Haskell
Raw Normal View History

2019-12-19 01:40:54 +00:00
{-# LANGUAGE OverloadedStrings #-}
module Control.Meta where
2021-07-12 11:29:40 +00:00
import Control.Monad.Reader (asks)
2019-12-19 01:40:54 +00:00
-- internal imports
import Types
metaGet :: MateHandler MetaInformation
metaGet = do
2021-07-12 11:29:40 +00:00
symbol <- asks rsCurrencySymbol
version <- asks rsSoftwareVersion
2019-12-19 01:40:54 +00:00
return (MetaInformation
{ metaInfoVersion = version
, metaInfoCurrency = symbol
}
)