8 -- | An LWN page with more than one article on it. These require
9 -- different parsing and display functions than the single-article
11 data FullPage = FullPage { articles :: [Article] }
13 instance XHTML FullPage where
16 instance Epublishable FullPage where
18 articles <- parse_articles xml
20 (x:xs)@all -> return $ Just $ FullPage all