module Graphics.Transform.Magick.Errors where

import Control.Exception

-- Error handling functions

-- Todo: something better
signalException :: String -> IO a
signalException = throwIO . ErrorCall 

tellUser :: String -> IO ()
tellUser = putStrLn 

debug :: Int -> String -> IO ()
debug n | n <= debugLevel = putStrLn
debug _ = const $ return ()
debugLevel :: Int
debugLevel = 2