Split into modules

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