ByteStringToString.hs

module Main where
    
import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L
import Text.Regex.PCRE

findNewsroundLinks ::  String -> [String]
findNewsroundLinks = map read . getAllTextMatches . (=~ "href=\"/newsround([^\"#]+)")

bytestringToString :: L.ByteString ->  [String]
bytestringToString string = findNewsroundLinks (L.unpack string)

getNewsround :: [String]
getNewsround = simpleHttp "http://www.haskell.org/" >>= bytestringToString

main = print (show (length getNewsround))