X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FArticlePage.hs;fp=src%2FLWN%2FArticlePage.hs;h=0000000000000000000000000000000000000000;hp=5964013f418303db52ce1ebe7dfdea123cdfe70c;hb=6f0e6cbece7e1b1a3c6b43d19eb2f29088af981c;hpb=ed2ed8abd62ba3dec7f799253de1133732f8c153 diff --git a/src/LWN/ArticlePage.hs b/src/LWN/ArticlePage.hs deleted file mode 100644 index 5964013..0000000 --- a/src/LWN/ArticlePage.hs +++ /dev/null @@ -1,101 +0,0 @@ -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) = - "" ++ - "" ++ - "
" ++ - " " ++ - "