module Network.Curl.Debug (debug) where
import System.IO
debugging :: Bool
debugging :: Bool
debugging = Bool
False
debug :: String -> IO ()
debug :: String -> IO ()
debug String
msg
| Bool
debugging = String -> IO ()
putStrLn (String
"DEBUG: " String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
msg) IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> Handle -> IO ()
hFlush Handle
stdout
| Bool
otherwise = () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()