[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 f1dd933f2d4f7f8ec13464bc8b4656c1a9f37958
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Feb 4 21:33:26 2006 +0100

    No longer return EOFError when vGetContents called at EOF
    
    From a report by Bulat Ziganshin:
    
    one more note about MissingH library. "hGetContents" at end of file
    just returns empty string (i just tested it with help of the attached
    program), while the following code from HVIO module raises exception
    in this case:

diff --git a/MissingH/IO/HVIO.hs b/MissingH/IO/HVIO.hs
index 06f5f22..d1f1b76 100644
--- a/MissingH/IO/HVIO.hs
+++ b/MissingH/IO/HVIO.hs
@@ -314,9 +314,7 @@ class (Show a) => HVIO a where
                                 else ioError e
                     in catch func handler
             in
-            do firstchar <- vGetChar h
-               rest <- loop
-               return (firstchar : rest)
+            do loop
            
     vReady h = do vTestEOF h
                   return True

-- 
haskell-testpack