JV.com last tests

JVComLastTests.hs

import Text.XML.HXT.Core
import Text.XML.HXT.HTTP
import Data.List (isInfixOf)
import Data.String.EncodingNames (isoLatin1)

loop [] = return ()
loop (date:title:plat:xs) = putStrLn (date ++ title ++ " " ++ plat) >> loop xs

main = runX ( readDocument [ withParseHTML  yes, withHTTP [], withInputEncoding isoLatin1 ] "http://www.jeuxvideo.com/tests.htm"
                //> (hasName "li" </ (hasName "a" `guards` hasAttrValue "href" ("test.htm" `isInfixOf`)))
                /> (hasName "strong" <+> hasName "a") /> getText
       ) >>= loop