X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FHandle.hs;h=be7f147326c4aa2964bdbd2b0138634cc39ed4d1;hb=e65e474a6610cc085b06c2f373816de1f21c7a10;hp=8f5fe185af3e92afc5b4782ddaed1ae3234a533b;hpb=39a5ea109fa64862651574cb25e1c2b0c792c95d;p=ghc-base.git

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