module Autolib.Util.Debug

-- -- $Id$

where

import Control.Monad (when)

debugging :: Bool
debugging :: Bool
debugging = Bool
False

debug :: String -> IO ()
debug :: String -> IO ()
debug String
msg = Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when Bool
debugging (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO ()
putStrLn String
msg