1 files changed, 11 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Commons/Logging.hs b/scaffolder/src/Text/Edifact/Scaffolder/Commons/Logging.hs
new file mode 100644
index 0000000..1287f7f
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Commons/Logging.hs
@@ -0,0 +1,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)