{-# OPTIONS #-}

-- ------------------------------------------------------------

module Holumbus.Crawler.XmlArrows
where

import           Text.XML.HXT.Core

-- ------------------------------------------------------------

-- | Remove contents, when document status isn't ok, but remain meta info

checkDocumentStatus             :: IOSArrow XmlTree XmlTree
checkDocumentStatus             =  replaceChildren none
                                   `whenNot`
                                   documentStatusOk

-- ------------------------------------------------------------