[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 0c894ca22d4edec76300bacd9dde0dbffc6828f2
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Mar 15 23:28:17 2005 +0100

    fixed dep parser
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-208)

diff --git a/ChangeLog b/ChangeLog
index 1f5f87f..c790661 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2005-03-15 16:28:17 GMT	John Goerzen <jgoerzen at complete.org>	patch-208
+
+    Summary:
+      fixed dep parser
+    Revision:
+      missingh--head--0.7--patch-208
+
+
+    modified files:
+     ChangeLog MissingH/Debian/ControlParser.hs
+
+
 2005-03-15 15:19:01 GMT	John Goerzen <jgoerzen at complete.org>	patch-207
 
     Summary:
diff --git a/MissingH/Debian/ControlParser.hs b/MissingH/Debian/ControlParser.hs
index ad6f882..41886b1 100644
--- a/MissingH/Debian/ControlParser.hs
+++ b/MissingH/Debian/ControlParser.hs
@@ -57,8 +57,8 @@ entry = do key <- many1 (noneOf ":\r\n")
 control = many entry
 
 depPart = do packagename <- many1 (noneOf " (")
-             version <- (do many (char ' ')
-                            char '('
+             many (char ' ')
+             version <- (do char '('
                             op <- many1 (oneOf "<>=")
                             many (char ' ')
                             vers <- many1 (noneOf ") ")
@@ -66,8 +66,8 @@ depPart = do packagename <- many1 (noneOf " (")
                             char ')'
                             return $ Just (op, vers)
                         ) <|> return Nothing
-             archs <- (do many (char ' ')
-                          char '['
+             many (char ' ')
+             archs <- (do char '['
                           t <- many1 (noneOf "]")
                           many (char ' ')
                           char ']'

-- 
haskell-testpack