ioeGetErrorType(error case): don't pose as ioeGetHandle.
Merge to STABLE.
ioeGetFileName :: IOError -> Maybe FilePath
ioeGetErrorType (IOException ioe) = ioe_type ioe
ioeGetFileName :: IOError -> Maybe FilePath
ioeGetErrorType (IOException ioe) = ioe_type ioe
-ioeGetErrorType _ = error "System.IO.Error.ioeGetHandle: not an IO error"
+ioeGetErrorType _ = error "System.IO.Error.ioeGetErrorType: not an IO error"
ioeGetHandle (IOException ioe) = ioe_handle ioe
ioeGetHandle _ = error "System.IO.Error.ioeGetHandle: not an IO error"
ioeGetHandle (IOException ioe) = ioe_handle ioe
ioeGetHandle _ = error "System.IO.Error.ioeGetHandle: not an IO error"