1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
--------------------------------------------------------------------
-- |
-- Module : Network.Curl.Debug
-- Copyright : (c) Galois, Inc. 2008-2009
-- License : BSD3
--
-- Maintainer: Sigbjorn Finne <sof@galois.com>
-- Stability : provisional
-- Portability:
--
-- Debug hooks
module Network.Curl.Debug (debug) where
import System.IO
debugging :: Bool
debugging = False
debug :: String -> IO ()
debug msg
| debugging = putStrLn ("DEBUG: " ++ msg) >> hFlush stdout
| otherwise = return ()
|
