[Haskell-cafe] TagSoup 0.9

[Ralph Hodgson]

Thanks Malcolm,

 

Providing a 'String' type argument worked:

 

> type Bundle = [Tag String]

 

> extractTags :: Tag String -> Tag String -> Bundle -> Bundle

> extractTags fromTag toTag tags = takeWhile (~/= toTag ) $ dropWhile (~/= fromTag ) tags

 

 

 

From: Malcolm Wallace [mailto:malcolm.wallace at me.com] 
Sent: Wednesday, May 19, 2010 1:48 AM
To: rhodgson at topquadrant.com
Cc: haskell-cafe at haskell.org
Subject: Re: [Haskell-cafe] TagSoup 0.9

 

Neil says that the API of TagSoup changed in 0.9.
All usages of the type Tag should now take a type argument, e.g. Tag String.
 
 
Regards,
    Malcolm
 
 
On Wednesday, May 19, 2010, at 08:05AM, "Ralph Hodgson" <rhodgson at topquadrant.com> wrote:
>_______________________________________________
>Haskell-Cafe mailing list
>Haskell-Cafe at haskell.org
>http://www.haskell.org/mailman/listinfo/haskell-cafe
> 
> 

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> 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/haskell-cafe/attachments/20100519/42307ad5/attachment.html