genericCatch :: String -> IO () -> IO ()
genericCatch ident a = do
    catch a (gc ident)
    where
        gc i e = do
            let err = show (e :: SomeException)
            netDbg $ i ++ ": " ++ err
genericCatch :: String -> IO () -> IO ()
genericCatch ident a = do
    catch a (gc ident)
    where
        gc i e = do
            let err = show (e :: SomeException)
            netDbg $ i ++ ": " ++ err
genericCatch ident a = do
    catch a (gc ident)
    where
        gc i e = do
            let err = show (e :: SomeException)
            netDbg $ i ++ ": " ++ err