import Network.HTTP
import qualified Codec.Binary.UTF8.String as UTF8
import Text.HTML.TagSoup
import Control.Monad
 
type URI = String
 
main :: IO ()
main = scrapeTags "http://b...content-available-to-author-only...e.jp/entrylist"
 
openURL :: URI -> IO String
openURL uri = getResponseBody =<< simpleHTTP (getRequest uri)
 
scrapeTags :: URI -> IO ()
scrapeTags uri = (getWebPage uri >>= return . parseTags) >>= (resultTags . filter(~== TagOpen "a" [("class", "entry-link")]))
 
resultTags :: [Tag String] -> IO ()
resultTags entrys = mapM_ putEntry entrys >> putStrLn "\nend"
 
putEntry :: Tag String -> IO ()
putEntry e = putStr $ unlines $ map (`fromAttrib` e) ["title", "href"]
 
getWebPage :: String -> IO String
getWebPage = (liftM UTF8.decodeString) . openURL
 

aW1wb3J0IE5ldHdvcmsuSFRUUAppbXBvcnQgcXVhbGlmaWVkIENvZGVjLkJpbmFyeS5VVEY4LlN0cmluZyBhcyBVVEY4CmltcG9ydCBUZXh0LkhUTUwuVGFnU291cAppbXBvcnQgQ29udHJvbC5Nb25hZAoKdHlwZSBVUkkgPSBTdHJpbmcKCm1haW4gOjogSU8gKCkKbWFpbiA9IHNjcmFwZVRhZ3MgImh0dHA6Ly9iLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5lLmpwL2VudHJ5bGlzdCIKCm9wZW5VUkwgOjogVVJJIC0+IElPIFN0cmluZwpvcGVuVVJMIHVyaSA9IGdldFJlc3BvbnNlQm9keSA9PDwgc2ltcGxlSFRUUCAoZ2V0UmVxdWVzdCB1cmkpCgpzY3JhcGVUYWdzIDo6IFVSSSAtPiBJTyAoKQpzY3JhcGVUYWdzIHVyaSA9IChnZXRXZWJQYWdlIHVyaSA+Pj0gcmV0dXJuIC4gcGFyc2VUYWdzKSA+Pj0gKHJlc3VsdFRhZ3MgLiBmaWx0ZXIofj09IFRhZ09wZW4gImEiIFsoImNsYXNzIiwgImVudHJ5LWxpbmsiKV0pKQoKcmVzdWx0VGFncyA6OiBbVGFnIFN0cmluZ10gLT4gSU8gKCkKcmVzdWx0VGFncyBlbnRyeXMgPSBtYXBNXyBwdXRFbnRyeSBlbnRyeXMgPj4gcHV0U3RyTG4gIlxuZW5kIgoKcHV0RW50cnkgOjogVGFnIFN0cmluZyAtPiBJTyAoKQpwdXRFbnRyeSBlID0gcHV0U3RyICQgdW5saW5lcyAkIG1hcCAoYGZyb21BdHRyaWJgIGUpIFsidGl0bGUiLCAiaHJlZiJdCgpnZXRXZWJQYWdlIDo6IFN0cmluZyAtPiBJTyBTdHJpbmcKZ2V0V2ViUGFnZSA9IChsaWZ0TSBVVEY4LmRlY29kZVN0cmluZykgLiBvcGVuVVJMCg==