Bump tagsoup dependency.

[dead/halcyon.git] / src / Html.hs

diff --git a/src/Html.hs b/src/Html.hs
index 2a3b4838b9b22a363b2c80f43476832ee4f3c616..01004cf556b01f3dde21fd8b9585b82732c5b009 100644 (file)
--- a/src/Html.hs
+++ b/src/Html.hs
@@ -14,7 +14,7 @@ replace_entities [] = []
 replace_entities ('&':xs) =
   let (b, a) = break (== ';') xs in
   case (lookupEntity b, a) of
 replace_entities ('&':xs) =
   let (b, a) = break (== ';') xs in
   case (lookupEntity b, a) of

-    (Just c, ';':as) ->  c  : replace_entities as
+    (Just s, ';':as) ->  s ++ replace_entities as

     _                -> '&' : replace_entities xs
 replace_entities (x:xs) = x : replace_entities xs
 
     _                -> '&' : replace_entities xs
 replace_entities (x:xs) = x : replace_entities xs