Warning police: Removed useless catch-all clause

[haskell-directory.git] / GHC / Handle.hs

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 8f5fe18..be7f147 100644 (file)
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -936,10 +936,6 @@ openFd fd mb_fd_type is_socket filepath mode binary = do
        RawDevice -> 
                mkFileHandle fd is_socket filepath ha_type binary
 
-       _ ->
-         ioException (IOError Nothing UnsupportedOperation "openFd"
-                                  "unknown file type" Nothing) 
-
 fdToHandle :: FD -> IO Handle
 fdToHandle fd = do
    mode <- fdGetMode fd