18 lines
326 B
Haskell
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
|
||
|
|
}
|
||
|
|
)
|