ML.Document  -- ^ A 'XML.Document' prepared with the @'cleanAndParse'@ function.
           -> M Table       -- ^ The parsed 'Table'.
parseTable doc = head . catMaybes . findTable (fromDocument doc) <$> ask


{- | Looks f
parseTable :: XML.Document  -- ^ A 'XML.Document' prepared with the @'cleanAndParse'@ function.
           -> M Table
parseTable doc = head . catMaybes . findTable (fromDocument doc) <$> ask
parseTable doc = head . catMaybes . findTable (fromDocument doc) <$> ask