
Here's the three main functions involved. Let me know if I am missing pertinent information. I'm having difficulty unraveling this error message. Help?
obtainCookies :: Curl -> String -> IO () obtainCookies curl responseBody = do return $ last $ liftM $ mapM (flip (curlResp2 curl) resourceOpts) screenScraping responseBody
screenScraping :: String -> [URLString] screenScraping responseBody = let collectedStrings = processHTML responseBody collectedIDLists = createIDList collectedStrings in constructedResourceURIs urlBase collectedIDLists
constructedResourceURIs :: String -> [String] -> [URLString] constructedResourceURIs url resourceIDs = let frontURI = url ++ "/launchWebForward.do?" midURI = map (frontURI ++) resourceIDs in map (++ "&policy=0&returnTo=%2FshowWebForwards.do") midURI
HtmlParsing.lhs:81:22: Couldn't match expected type `[URLString]' against inferred type `String -> [URLString]' In the second argument of `mapM', namely `screenScraping' In the second argument of `($)', namely `mapM (flip (curlResp2 curl) resourceOpts) screenScraping responseBody' In the second argument of `($)', namely `liftM $ mapM (flip (curlResp2 curl) resourceOpts) screenScraping responseBody'