From: sven.panne@aedion.de <unknown>
Date: Fri, 11 Aug 2006 14:22:08 +0000 (+0000)
Subject: Warning police: Removed useless catch-all clause
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e65e474a6610cc085b06c2f373816de1f21c7a10;p=haskell-directory.git

Warning police: Removed useless catch-all clause
---

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 8f5fe18..be7f147 100644
--- 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