From 6740a349caa6c20513191bbf213570448352093f Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 5 Nov 2017 04:57:09 +0300 Subject: Split into modules --- Pancake/Common.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 Pancake/Common.hs (limited to 'Pancake/Common.hs') diff --git a/Pancake/Common.hs b/Pancake/Common.hs new file mode 100644 index 0000000..a93fea1 --- /dev/null +++ b/Pancake/Common.hs @@ -0,0 +1,19 @@ +{- | +Module : Pancake.Common +Maintainer : defanor +Stability : unstable +Portability : portable + +Utility functions. +-} + +module Pancake.Common ( putErrLn ) where +import System.IO +import Control.Monad.IO.Class + + +-- | Prints a line into stderr. +putErrLn :: MonadIO m => String -> m () +putErrLn s = liftIO $ do + hPutStrLn stderr s + hFlush stderr -- cgit v1.2.3