diff options
author | defanor <defanor@uberspace.net> | 2017-11-05 04:57:09 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-11-05 04:57:09 +0300 |
commit | 6740a349caa6c20513191bbf213570448352093f (patch) | |
tree | 7346208242e371e13aef64f882a92e7bbfe07506 /Pancake/Common.hs | |
parent | 6f8b714cf91a26acc63ec337dbabd3179254cc6d (diff) |
Split into modules
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 |