module QuicQuid.Log(
                    module System.Log.Logger
                   ,module System.Log.Handler.Simple
                   ,err 
                   ) where 

import System.Log.Logger
import System.Log.Handler.Simple

-- |Log an error message and then throw an exception 
err :: String -- ^ The logger name
    -> String -- ^ The message
    -> IO ()
err pos msg = do 
  errorM pos msg
  error $ pos ++ ": " ++ msg