module Debug where

import Control.Monad

import Options

debug_msg :: Options -> String -> IO ()
debug_msg opts msg = when (debug opts) (putStrLn msg)