Hello Neil , I was using TagSoup 0.8 with great success. On upgrading to 0.9 I have this error: TQ\TagSoup\TagSoupExtensions.lhs:29:17: `Tag' is not applied to enough type arguments Expected kind `*', but `Tag' has kind `* -> *' In the type synonym declaration for `Bundle' Failed, modules loaded: TQ.Common.TextAndListHandling. where line 29 is the type declaration for 'bundle' in the following code:
module TQ.TagSoup.TagSoupExtensions where
import TQ.Common.TextAndListHandling
import Text.HTML.TagSoup
import Text.HTML.Download
import Control.Monad
import Data.List
import Data.Char
type Bundle = [Tag]
[snip]
tagsOnPage :: String -> IO(String)
tagsOnPage url = do
tags <- liftM parseTags $ openURL url
let results = unlines $ map(show) $ tags
return (results)
extractTags :: Tag -> Tag -> [Tag] -> [Tag]
extractTags fromTag toTag tags = takeWhile (~/= toTag ) $ dropWhile (~/= fromTag ) tags
extractTagsBetween :: Tag -> [Tag] -> [Tag]
extractTagsBetween _ [] = []
extractTagsBetween markerTag tags = if startTags == []
then []
else [head startTags] ++ (takeWhile (~/= markerTag ) $ tail
startTags)
where
startTags = dropWhile (~/= markerTag ) tags
I need to repair this code quickly. I am hoping you can quickly help me resolve this. Thanks. Ralph Hodgson, @ralphtq http://twitter.com/ralphtq