speechmatics-0.7.1.0: src/Speechmatics/Log.hs

{-# LANGUAGE OverloadedStrings #-}

-- | Simple log wrapper
module Speechmatics.Log(
  info, debug, error
) where

import Prelude ()
import System.Log.Heavy.LoggingT(LoggingT(..))
import qualified System.Log.Heavy.Shortcuts as Log
import Data.Text.Format.Heavy.Instances (Single(..))
import            qualified Data.Text.Lazy as Lazy
import Data.Text

source :: Text
source = "Speechmatics client"
info d = Log.info (Lazy.fromStrict d) (Single source)
debug d = Log.debug (Lazy.fromStrict d) (Single source)
error d = Log.reportError (Lazy.fromStrict d) (Single source)