diff options
Diffstat (limited to 'Pancake/Common.hs')
-rw-r--r-- | Pancake/Common.hs | 19 |
1 files changed, 19 insertions, 0 deletions
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 <defanor@uberspace.net> +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 |