ixset, vacuum [ci skip]

Author: phadej

Cabal/Distribution/PackageDescription/Parsec/Legacy.hs

@@ -68,6 +68,22 @@ patches = Map.fromList
          (Fingerprint 18274748422558568404 4043538769550834851)
          (Fingerprint 11395257416101232635 4303318131190196308)
          (bsReplace " default- extensions:" "unknown-section")
+    -- http://hackage.haskell.org/package/vacuum-opengl-0.0
+    -- \DEL character
+    , mk "Name:                vacuum-opengl\nVersion:             0.0\nSynopsis:            Visualize live Haskell data structures using vacuum, graphviz and OpenGL.\nDescription:         \DELVisualize live Haskell data structures using vacuum, graphviz and OpenGL.\n     "
+         (Fingerprint 5946760521961682577 16933361639326309422)
+         (Fingerprint 14034745101467101555 14024175957788447824)
+         (bsRemove "\DEL")
+    , mk "Name:                vacuum-opengl\nVersion:             0.0.1\nSynopsis:            Visualize live Haskell data structures using vacuum, graphviz and OpenGL.\nDescription:         \DELVisualize live Haskell data structures using vacuum, graphviz and OpenGL.\n   "
+         (Fingerprint 10790950110330119503 1309560249972452700)
+         (Fingerprint 1565743557025952928 13645502325715033593)
+         (bsRemove "\DEL")
+    -- http://hackage.haskell.org/package/ixset-1.0.4
+    -- {- comments -}
+    , mk "Name:                ixset\nVersion:             1.0.4\nSynopsis:            Efficient relational queries on Haskell sets.\nDescription:\n    Create and query sets that are indexed by multiple indices.\nLicense:             BSD3\nLicense-file:        COPYING\nAut"
+         (Fingerprint 11886092342440414185 4150518943472101551)
+         (Fingerprint 5731367240051983879 17473925006273577821)
+         (bsRemoveStarting "{-")
     ]
   where
     mk a b c d = ((a, b), (c, d))
@@ -109,3 +125,9 @@ bsReplace
     -> BS.ByteString -> BS.ByteString
 bsReplace needle repl haystack = case BS.breakSubstring needle haystack of
     (h, t) -> BS.append h (BS.append repl (BS.drop (BS.length needle) t))
+
+bsRemoveStarting
+    :: BS.ByteString  -- ^ needle
+    -> BS.ByteString -> BS.ByteString
+bsRemoveStarting needle haystack = case BS.breakSubstring needle haystack of
+    (h, _) -> h

Cabal/tests/ParserHackageTests.hs

@@ -182,15 +182,14 @@ problematicFiles =
     , eq "phasechange/0.1/phasechange.cabal"
     , eq "shelltestrunner/1.3/shelltestrunner.cabal"
     , eq "smartword/0.0.0.5/smartword.cabal"
-    -- \DEL
-    , eq "vacuum-opengl/0.0/vacuum-opengl.cabal"
-    , eq "vacuum-opengl/0.0.1/vacuum-opengl.cabal"
     -- dashes in version, not even tag
     , isPrefixOf "free-theorems-webui/"
-    -- {- comment -}
-    , eq "ixset/1.0.4/ixset.cabal"
     -- comments in braces
     , isPrefixOf "hint/"
+    -- {- comment -}
+    -- contents in braces are parsed as contents of the field with ReadP
+    -- that's not what we want
+    , eq "ixset/1.0.4/ixset.cabal"
     ]
   where
     eq = (==)