mateamt/src/Control/Meta.hs
2019-12-26 09:28:46 +01:00

18 lines
326 B
Haskell

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