scaffolder/src/Text/Edifact/Scaffolder/Commons/Logging.hs


1
2
3
4
5
6
7
8
9
10
11

module Text.Edifact.Scaffolder.Commons.Logging
  ( say
  ) where

import           Control.Monad.IO.Class (MonadIO, liftIO)
import qualified Data.Text.Lazy.Builder as TLB (toLazyText)
import qualified Data.Text.Lazy.IO      as TLIO (putStrLn)
import           Formatting             as F (Format, runFormat)

say :: MonadIO m => Format (m ()) a -> a
say m = runFormat m (liftIO . TLIO.putStrLn . TLB.toLazyText)