content: {-
     EMS - REST API
  
     This section will provide necessary information about the `CoinAPI EMS REST API` protocol. This API is also available in the Postman application: <a href=\"https://postman.coinapi.io/\" target=\"_blank\">https://postman.coinapi.io/</a>        Implemented Standards:    * [HTTP1.0](https://datatracker.ietf.org/doc/html/rfc1945)   * [HTTP1.1](https://datatracker.ietf.org/doc/html/rfc2616)   * [HTTP2.0](https://datatracker.ietf.org/doc/html/rfc7540)     ### Endpoints  <table>   <thead>     <tr>       <th>Deployment method</th>       <th>Environment</th>       <th>Url</th>     </tr>   </thead>   <tbody>     <tr>       <td>Managed Cloud</td>       <td>Production</td>       <td>Use <a href=\"#ems-docs-sh\">Managed Cloud REST API /v1/locations</a> to get specific endpoints to each server site where your deployments span</td>     </tr>     <tr>       <td>Self Hosted</td>       <td>Production</td>       <td>IP Address of the <code>ems-gateway</code> container/excecutable in the closest server site to the caller location</td>     </tr>   </tbody> </table>  ### Authentication If the software is deployed as `Self-Hosted` then API do not require authentication as inside your infrastructure, your company is responsible for the security and access controls.  If the software is deployed in our `Managed Cloud`, there are 2 methods for authenticating with us, you only need to use one:   1. Custom authorization header named `X-CoinAPI-Key` with the API Key  2. Query string parameter named `apikey` with the API Key  3. <a href=\"#certificate\">TLS Client Certificate</a> from the `Managed Cloud REST API` (/v1/certificate/pem endpoint) while establishing a TLS session with us.  #### Custom authorization header You can authorize by providing additional custom header named `X-CoinAPI-Key` and API key as its value. Assuming that your API key is `73034021-THIS-IS-SAMPLE-KEY`, then the authorization header you should send to us will look like: `X-CoinAPI-Key: 73034021-THIS-IS-SAMPLE-KEY` <aside class=\"success\">This method is recommended by us and you should use it in production environments.</aside> #### Query string authorization parameter You can authorize by providing an additional parameter named `apikey` with a value equal to your API key in the query string of your HTTP request. Assuming that your API key is `73034021-THIS-IS-SAMPLE-KEY` and that you want to request all balances, then your query string should look like this: `GET /v1/balances?apikey=73034021-THIS-IS-SAMPLE-KEY` <aside class=\"notice\">Query string method may be more practical for development activities.</aside> 
  
     OpenAPI Version: 3.0.0
     EMS - REST API API version: v1
     Contact: support@coinapi.io
     Generated by OpenAPI Generator (https://openapi-generator.tech)
  -}
  
  {-|
  Module : EMS-REST.LoggingMonadLogger
  monad-logger Logging functions
  -}
  
  {-# LANGUAGE OverloadedStrings #-}
  {-# LANGUAGE RankNTypes #-}
  {-# LANGUAGE ScopedTypeVariables #-}
  
  module EMS-REST.LoggingMonadLogger where
  
  import qualified Control.Exception.Safe as E
  import qualified Control.Monad.IO.Class as P
  import qualified Data.Text as T
  import qualified Data.Time as TI
  
  import Data.Text (Text)
  
  import qualified Control.Monad.Logger as LG
  
  -- * Type Aliases (for compatibility)
  
  -- | Runs a monad-logger  block with the filter predicate
  type LogExecWithContext = forall m a. P.MonadIO m =>
                                        LogContext -> LogExec m a
  
  -- | A monad-logger block
  type LogExec m a = LG.LoggingT m a -> m a
  
  -- | A monad-logger filter predicate
  type LogContext = LG.LogSource -> LG.LogLevel -> Bool
  
  -- | A monad-logger log level
  type LogLevel = LG.LogLevel
  
  -- * default logger
  
  -- | the default log environment
  initLogContext :: IO LogContext
  initLogContext = pure infoLevelFilter
  
  -- | Runs a monad-logger block with the filter predicate
  runDefaultLogExecWithContext :: LogExecWithContext
  runDefaultLogExecWithContext = runNullLogExec
  
  -- * stdout logger
  
  -- | Runs a monad-logger block targeting stdout, with the filter predicate
  stdoutLoggingExec :: LogExecWithContext
  stdoutLoggingExec cxt = LG.runStdoutLoggingT . LG.filterLogger cxt
  
  -- | @pure@
  stdoutLoggingContext :: LogContext -> IO LogContext
  stdoutLoggingContext = pure
  
  -- * stderr logger
  
  -- | Runs a monad-logger block targeting stderr, with the filter predicate
  stderrLoggingExec :: LogExecWithContext
  stderrLoggingExec cxt = LG.runStderrLoggingT . LG.filterLogger cxt
  
  -- | @pure@
  stderrLoggingContext :: LogContext -> IO LogContext
  stderrLoggingContext = pure
  
  -- * Null logger
  
  -- | Disables monad-logger logging
  runNullLogExec :: LogExecWithContext
  runNullLogExec = const (`LG.runLoggingT` nullLogger)
  
  -- | monad-logger which does nothing
  nullLogger :: LG.Loc -> LG.LogSource -> LG.LogLevel -> LG.LogStr -> IO ()
  nullLogger _ _ _ _ = return ()
  
  -- * Log Msg
  
  -- | Log a message using the current time
  _log :: (P.MonadIO m, LG.MonadLogger m) => Text -> LG.LogLevel -> Text -> m ()
  _log src level msg = do
    now <- P.liftIO (formatTimeLog <$> TI.getCurrentTime)
    LG.logOtherNS ("EMS-REST." <> src) level ("[" <> now <> "] " <> msg)
   where
    formatTimeLog =
      T.pack . TI.formatTime TI.defaultTimeLocale "%Y-%m-%dT%H:%M:%S%Z"
  
  -- * Log Exceptions
  
  -- | re-throws exceptions after logging them
  logExceptions
     :: (LG.MonadLogger m, E.MonadCatch m, P.MonadIO m)
     => Text -> m a -> m a
  logExceptions src =
     E.handle
       (\(e :: E.SomeException) -> do
          _log src LG.LevelError ((T.pack . show) e)
          E.throw e)
  
  -- * Log Level
  
  levelInfo :: LogLevel
  levelInfo = LG.LevelInfo
  
  levelError :: LogLevel
  levelError = LG.LevelError
  
  levelDebug :: LogLevel
  levelDebug = LG.LevelDebug
  
  -- * Level Filter
  
  minLevelFilter :: LG.LogLevel -> LG.LogSource -> LG.LogLevel -> Bool
  minLevelFilter l _ l' = l' >= l
  
  infoLevelFilter :: LG.LogSource -> LG.LogLevel -> Bool
  infoLevelFilter = minLevelFilter LG.LevelInfo
  