astrds-0.1: src/Debug.hs

module Debug where

import Control.Monad

import Options

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