X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FArticle.hs;fp=src%2FLWN%2FArticle.hs;h=aa267903a445b790b9d7e481025b15b87fc4fd4d;hp=47e36519858209235829485c6cf099309d1d7963;hb=8088bcb0959055f95b8363f83fba808c8dd0094e;hpb=da4d3ce666bd8fc7a0011ecf495714bb55f0127d

diff --git a/src/LWN/Article.hs b/src/LWN/Article.hs
index 47e3651..aa26790 100644
--- a/src/LWN/Article.hs
+++ b/src/LWN/Article.hs
@@ -15,9 +15,6 @@ import Test.Framework (Test, testGroup)
 import Test.Framework.Providers.HUnit (testCase)
 import Text.Regex.Posix ((=~))
 import Text.XML.HXT.Core (
-  (>>>),
-  arr,
-  hread,
   selem,
   none,
   runX,
@@ -67,8 +64,9 @@ instance XML Byline where
   to_xml (Byline   Nothing) = none
 
 instance XML BodyHtml where
-  to_xml (BodyHtml bh) =
-    (arr $ const bh) >>> hread
+  -- Don't question this. I tried to do it correctly and
+  -- all hell broke loose.
+  to_xml (BodyHtml bh) = txt bh
 
 data Article = Article { title     :: Title,
                          byline    :: Byline,