module LWN.ArticlePage where import Data.String.Utils (strip) import Data.Maybe (fromJust) import Data.Tree.NTree.TypeDefs (NTree) import Text.XML.HXT.Core ( IOSArrow, XmlTree, XNode, (>>>), (/>), getText, runX, xshow ) import Text.HandsomeSoup (css) import Epublishable import LWN.Article import XHTML -- | Defines the ArticlePage data type, containing one 'Article'. data ArticlePage = ArticlePage { article :: Article } instance XHTML ArticlePage where to_xhtml (ArticlePage a) = "" ++ "" ++ "\n
\n" ++ " " ++ "