blob: a93fea17a4a1f4ef328099db26f0db4ddb881140 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
|