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
|
|
|
|
}
|
|
|
|
)
|