module Hoodle.Coroutine.Callback where
import Control.Concurrent
import Control.Exception
import System.IO
import System.Exit
import Control.Monad.Trans.Crtn.Driver
import qualified Control.Monad.Trans.Crtn.EventHandler as E
import Hoodle.Util
import Prelude hiding (catch)
eventHandler :: MVar (Maybe (Driver e IO ())) -> e -> IO ()
eventHandler evar ev = E.eventHandler evar ev `catch` allexceptionproc
allexceptionproc :: SomeException -> IO ()
allexceptionproc e = do errorlog (show e)
exitFailure
errorcall :: ErrorCall -> IO ()
errorcall e = errorlog (show e)
patternerr :: PatternMatchFail -> IO ()
patternerr e = errorlog (show e)