From e65e474a6610cc085b06c2f373816de1f21c7a10 Mon Sep 17 00:00:00 2001
From: "sven.panne@aedion.de" <unknown>
Date: Fri, 11 Aug 2006 14:22:08 +0000
Subject: [PATCH] Warning police: Removed useless catch-all clause

---
 GHC/Handle.hs |    4 ----
 1 file changed, 4 deletions(-)

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
-- 
1.7.10.4