test.hs

{-# LANGUAGE OverloadedStrings, DeriveDataTypeable #-}
import Network.HTTP.Conduit

import Data.Conduit
import Data.Conduit.Binary (sinkFile)
import Data.Text (Text)
import Text.JSON.Generic

import Control.Monad.IO.Class (liftIO)
import Control.Applicative ((<$>), (<*>))

import Data.Aeson ((.:), (.:?), decode, FromJSON(..), Value(..))
import Data.Aeson.Parser (json)
import Data.Conduit.Attoparsec (sinkParser)

{- for the future -}
data Commit = Commit {
    sha :: Text,
    message :: Text
} deriving (Show, Data, Typeable)

instance FromJSON Commit where
    parseJSON (Object v) =
        Commit              <$>
        (v .: "sha")        <*>
        (v .: "message")

{- end -}

parseCommits value = print (decodeJSON value :: [Commit])

main :: IO ()
main = do
    runResourceT $ do
        manager <- liftIO $ newManager def
        url <- liftIO $ parseUrl "https://api.github.com/repos/erthalion/vimrc/commits"

        let request = url { requestHeaders = [("User-Agent", "erthalion")] }
        response <- http request manager

        value <- responseBody response $$+- sinkParser json
        liftIO $ print value