[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36
John Goerzen
jgoerzen at complete.org
Fri Apr 23 14:49:35 UTC 2010
The following commit has been merged in the master branch:
commit ff52556d5e7c33ba8b4594d87dccbd6ce47f9d02
Author: John Goerzen <jgoerzen at complete.org>
Date: Sat Dec 4 04:43:54 2004 +0100
checkpoint
Keywords:
(jgoerzen at complete.org--projects/missingh--head--0.7--patch-18)
diff --git a/ChangeLog b/ChangeLog
index ff4a5d7..337d8b4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
# arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
#
+2004-12-03 21:43:54 GMT John Goerzen <jgoerzen at complete.org> patch-18
+
+ Summary:
+ checkpoint
+ Revision:
+ missingh--head--0.7--patch-18
+
+
+ modified files:
+ ChangeLog libsrc/MissingH/FileArchive/GZip.hs
+
+
2004-12-03 21:40:31 GMT John Goerzen <jgoerzen at complete.org> patch-17
Summary:
diff --git a/libsrc/MissingH/FileArchive/GZip.hs b/libsrc/MissingH/FileArchive/GZip.hs
index 5b1ded4..08576cb 100644
--- a/libsrc/MissingH/FileArchive/GZip.hs
+++ b/libsrc/MissingH/FileArchive/GZip.hs
@@ -36,8 +36,9 @@ magic = "\x1f\x8b"
-}
read_header :: String -> Either GZipError (String, String)
read_header s =
+ let ok = Right "ok" in
do let (mag, rem) = splitAt 2 s
if mag /= magic
then throwError "Not a GZip file"
- else return "ok"
+ else ok
return ("test", rem)
\ No newline at end of file
--
haskell-testpack
More information about the Pkg-haskell-commits
mailing list