errorMember :: String -> Either IOError ComException -> IO a
errorMember member err
      = coFail ("method '" ++ member ++ "': " ++ (coGetErrorString err))
errorMember :: String -> Either IOError ComException -> IO a
errorMember member err
      = coFail ("method '" ++ member ++ "': " ++ (coGetErrorString err))
errorMember member err
      = coFail ("method '" ++ member ++ "': " ++ (coGetErrorString err))