Comment detail

HTTPでGET (Nested Flatten)

	
1
2
3
4
5
6
7
8
9
import Data.Maybe
import Network.HTTP
import Network.URI

uri :: URI
uri = fromJust $ parseURI "http://ja.doukaku.org/feeds/comments/"

main = do Right resp <- simpleHTTP $ Request uri GET [] ""
          putStrLn (rspBody resp)

Index

Feed

Other

Link

Pathtraq

loading...