[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 0cc01d99292e18ba80cc9176e8fa7acd34000774
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Dec 4 07:15:51 2004 +0100

    Fixed inflate returning too much stuff as the remainder
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-27)

diff --git a/ChangeLog b/ChangeLog
index 052744b..39938cb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-04 00:15:51 GMT	John Goerzen <jgoerzen at complete.org>	patch-27
+
+    Summary:
+      Fixed inflate returning too much stuff as the remainder
+    Revision:
+      missingh--head--0.7--patch-27
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/Compression/Inflate.hs
+
+
 2004-12-04 00:11:36 GMT	John Goerzen <jgoerzen at complete.org>	patch-26
 
     Summary:
diff --git a/libsrc/MissingH/Compression/Inflate.hs b/libsrc/MissingH/Compression/Inflate.hs
index 7b903a1..bfffc9b 100644
--- a/libsrc/MissingH/Compression/Inflate.hs
+++ b/libsrc/MissingH/Compression/Inflate.hs
@@ -187,7 +187,9 @@ The hardcore stuff!
 -}
 inflate :: [Int] -> (Output, [Bit])
 inflate is = extract_InfM $ do set_bits $ concatMap int_to_bits is
-                               inflate_blocks False
+                               x <- inflate_blocks False
+                               align_8_bits
+                               return x
 
 -- Bool is true if we have seen the "last" block
 inflate_blocks :: Bool -> InfM Output

-- 
haskell-testpack