mateamt/src/Control/Meta.hs

21 lines
355 B
Haskell
Raw Normal View History

2019-12-19 01:40:54 +00:00
{-# LANGUAGE OverloadedStrings #-}
module Control.Meta where
import Servant
import Control.Monad.Reader (ask)
-- internal imports
import Types
import Model
metaGet :: MateHandler MetaInformation
metaGet = do
(ReadState _ _ symbol version) <- ask
return (MetaInformation
{ metaInfoVersion = version
, metaInfoCurrency = symbol
}
)