when)
import Text.HandsomeSoup (css, parseHtml)
-import Configuration (Cfg)
+import Configuration (Cfg, full_stories)
import LWN.Article
import LWN.HTTP (
ImageMap,
parse :: Cfg -> IOSArrow XmlTree XmlTree -> IO (Maybe Page)
parse cfg xml = do
story_map <- download_full_stories cfg xml
- let fs_xml = xml >>> insert_full_stories story_map
+ let fs_xml = if (full_stories cfg) then
+ xml >>> insert_full_stories story_map
+ else
+ xml
let clean_xml = fs_xml >>> preprocess
image_map <- download_images clean_xml