diff options
Diffstat (limited to 'Connection/Tcp.hs')
-rw-r--r-- | Connection/Tcp.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Connection/Tcp.hs b/Connection/Tcp.hs index 9a44f34f..e6be15b7 100644 --- a/Connection/Tcp.hs +++ b/Connection/Tcp.hs | |||
@@ -60,10 +60,7 @@ import System.IO | |||
60 | , hWaitForInput | 60 | , hWaitForInput |
61 | , hClose | 61 | , hClose |
62 | , hIsEOF | 62 | , hIsEOF |
63 | , stderr | ||
64 | , Handle | 63 | , Handle |
65 | , hFlush | ||
66 | , hPutStrLn | ||
67 | ) | 64 | ) |
68 | import Network.Socket as Socket | 65 | import Network.Socket as Socket |
69 | import Network.BSD | 66 | import Network.BSD |
@@ -759,7 +756,7 @@ bshow :: Show a => a -> ByteString | |||
759 | bshow e = S.pack . show $ e | 756 | bshow e = S.pack . show $ e |
760 | 757 | ||
761 | warn :: ByteString -> IO () | 758 | warn :: ByteString -> IO () |
762 | warn str =dputB XMisc str >> hFlush stderr | 759 | warn str =dputB XMisc str |
763 | 760 | ||
764 | debugNoise :: Monad m => t -> m () | 761 | debugNoise :: Monad m => t -> m () |
765 | debugNoise str = return () | 762 | debugNoise str = return () |