[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 4e56ddcbd12672ee5940132b7428352c17af03f1
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Oct 26 01:51:57 2004 +0100

    Removed some old debugging code.
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.5--patch-7)

diff --git a/ChangeLog b/ChangeLog
index 8723cf0..a9a3835 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.5
 #
 
+2004-10-25 19:51:57 GMT	John Goerzen <jgoerzen at complete.org>	patch-7
+
+    Summary:
+      Removed some old debugging code.
+    Revision:
+      missingh--head--0.5--patch-7
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/Network/FTP/Client.hs
+
+
 2004-10-25 19:28:26 GMT	John Goerzen <jgoerzen at complete.org>	patch-6
 
     Summary:
diff --git a/libsrc/MissingH/Network/FTP/Client.hs b/libsrc/MissingH/Network/FTP/Client.hs
index cb5f2d7..aa2bf8d 100644
--- a/libsrc/MissingH/Network/FTP/Client.hs
+++ b/libsrc/MissingH/Network/FTP/Client.hs
@@ -235,11 +235,6 @@ data FTPConnection = FTPConnection {readh :: IO String,
                                     socket_internal :: Socket,
                                     isPassive :: Bool}
 
-{-
-getresp h = do c <- hGetContents h
-               return (parseGoodReply c)
--}
-
 getresp h = do
             c <- (readh h)
             debugParseGoodReply c
@@ -286,17 +281,9 @@ connectFTP h p =
     let h = FTPConnection {readh = readchars newh, 
                            socket_internal = s,
                            writeh = newh, isPassive = True}
-    --hIsReadable h >>= print
-    --hIsWritable h >>= print
-    -- hSetBuffering h LineBuffering
     resp <- getresp h
     forceioresp 200 resp
-    --foo <- return (forcexresp 200 resp)
-    --print foo
-    -- hPutStr h "foo"
-    -- resp `seq` return (h, resp)
     return (h, resp)
-    --return (h, r)
 
 {- | Log in anonymously. -}
 loginAnon :: FTPConnection -> IO FTPResult

-- 
haskell-testpack