[Pkg-haskell-commits] darcs: haskell-hxt: Add patches to darcs repo

[Joachim Breitner]

Sat Jul 10 17:52:49 UTC 2010  Joachim Breitner <mail at joachim-breitner.de>
  * Add patches to darcs repo
  Ignore-this: 53edb0e6dc10e7a1ec52028de48db6c8

    A ./patches/
    A ./patches/series
    A ./patches/tagsoup-0.10-compat.patch

Sat Jul 10 17:52:49 UTC 2010  Joachim Breitner <mail at joachim-breitner.de>
  * Add patches to darcs repo
  Ignore-this: 53edb0e6dc10e7a1ec52028de48db6c8
diff -rN -u old-haskell-hxt/patches/series new-haskell-hxt/patches/series
--- old-haskell-hxt/patches/series	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-hxt/patches/series	2010-07-10 18:10:36.031913864 +0000
@@ -0,0 +1 @@
+tagsoup-0.10-compat.patch
diff -rN -u old-haskell-hxt/patches/tagsoup-0.10-compat.patch new-haskell-hxt/patches/tagsoup-0.10-compat.patch
--- old-haskell-hxt/patches/tagsoup-0.10-compat.patch	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-hxt/patches/tagsoup-0.10-compat.patch	2010-07-10 18:10:36.031913864 +0000
@@ -0,0 +1,44 @@
+Index: haskell-hxt-8.5.2/hxt.cabal
+===================================================================
+--- haskell-hxt-8.5.2.orig/hxt.cabal	2010-07-10 19:45:53.000000000 +0200
++++ haskell-hxt-8.5.2/hxt.cabal	2010-07-10 19:46:26.000000000 +0200
+@@ -173,5 +173,5 @@
+                 network    >= 2.1 && < 3,
+                 deepseq    >= 1.1 && < 2,
+                 bytestring >= 0.9 && < 1,
+-                tagsoup    >= 0.8 && < 0.9,
++                tagsoup    >= 0.10 && < 0.11,
+                 curl       >= 1.3 && < 2
+Index: haskell-hxt-8.5.2/src/Text/XML/HXT/Parser/TagSoup.hs
+===================================================================
+--- haskell-hxt-8.5.2.orig/src/Text/XML/HXT/Parser/TagSoup.hs	2010-03-21 12:34:51.000000000 +0100
++++ haskell-hxt-8.5.2/src/Text/XML/HXT/Parser/TagSoup.hs	2010-07-10 19:46:42.000000000 +0200
+@@ -240,8 +240,8 @@
+ 
+ -- own entity lookup to prevent problems with &amp; and tagsoup hack for IE
+ 
+-lookupEntity	:: Bool -> Bool -> String -> Tags
+-lookupEntity withWarnings _asHtml e0@('#':e)
++lookupEntity	:: Bool -> Bool -> (String, Bool) -> Tags
++lookupEntity withWarnings _asHtml (e0@('#':e), b)
+     = case lookupNumericEntity e of
+       Just c  -> [ TagText [c] ]
+       Nothing -> ( TagText $ "&" ++ e0 ++ ";") :
+@@ -249,7 +249,7 @@
+ 		 then [TagWarning $ "illegal char reference: &" ++ e ++ ";"]
+ 		 else []
+ 
+-lookupEntity withWarnings asHtml e
++lookupEntity withWarnings asHtml (e, b)
+     = case (lookup e entities) of
+       Just x  -> [TagText [toEnum x]]
+       Nothing -> (TagText $ "&" ++ e ++ ";") :
+@@ -266,7 +266,7 @@
+     | null r	= (s,                   r)
+     | otherwise	= ("&" ++ s ++ [';'|b], r)
+     where
+-    (TagText s) : r = lookupEntity withWarnings asHtml e
++    (TagText s) : r = lookupEntity withWarnings asHtml (e, b)
+ 
+ -- ----------------------------------------
+ {-