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

   1 module Text.Edifact.Scaffolder.Commons.Logging
   2   ( say
   3   ) where
   4
   5 import           Control.Monad.IO.Class (MonadIO, liftIO)
   6 import qualified Data.Text.Lazy.Builder as TLB (toLazyText)
   7 import qualified Data.Text.Lazy.IO      as TLIO (putStrLn)
   8 import           Formatting             as F (Format, runFormat)
   9
  10 say :: MonadIO m => Format (m ()) a -> a
  11 say m = runFormat m (liftIO . TLIO.putStrLn . TLB.toLazyText)