module Text.HTML.WraXML.Table where
import qualified Text.XML.WraXML.Tree as XMLTree
import qualified Text.XML.WraXML.Element as Elem
import qualified Text.XML.Basic.Name as Name
import Data.Maybe(mapMaybe)
type T i name str = [[[XMLTree.T i name str]]]
simpleFromRows ::
(Name.Tag name) =>
[XMLTree.T i name str] -> T i name str
simpleFromRows =
map (simpleFromRow . snd) .
filter (Elem.checkName (Name.match "tr") . fst) .
mapMaybe XMLTree.maybeTag
simpleFromRow ::
(Name.Tag name) =>
[XMLTree.T i name str] -> [[XMLTree.T i name str]]
simpleFromRow =
map snd .
filter (Elem.checkName (Name.matchAny ["th","td"]) . fst) .
mapMaybe XMLTree.maybeTag