import Test.Framework.Providers.HUnit (testCase)
import Text.Regex.Posix ((=~))
import Text.XML.HXT.Core (
- (>>>),
- arr,
- hread,
selem,
none,
runX,
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,