travis 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+27/−4 lines, 3 files

Files

• src/Travis.hs +2/−2
• src/Travis/Types.hs +24/−1
• travis.cabal +1/−1

@@ -28,7 +28,7 @@  -- |fetches information about public repository on Travis CI -- may return a tuple of repository and its builds information-fetchRepository :: AccountName -> RepositoryName -> IO (Maybe RepositoryRaw, Maybe [BuildRaw])+fetchRepository :: AccountName -> RepositoryName -> IO (Maybe RepositoryRaw, Maybe BuildsRaw) fetchRepository acname reponame = do   -- repository info   let coreUrl = travisAPIBaseURL ++ acname ++ "/" ++ reponame@@ -43,4 +43,4 @@   let request2 = req2 { requestHeaders = requestH}   _response2 <- httpLbs request2 manager   let repobuilds = decode (responseBody _response2) :: Maybe BuildsRaw-  return (fmap repo repository, fmap builds repobuilds)+  return (fmap repo repository, repobuilds)

@@ -40,7 +40,7 @@ data BuildsRaw =   BuildsRaw { builds  :: [BuildRaw]             , jobs    :: Maybe [Object]-            , commits :: [Object]+            , commits :: [Commit]    } deriving (Show, Generic)  data BuildRaw =@@ -67,5 +67,28 @@                 fieldLabelModifier = drop 1 }  instance ToJSON BuildRaw where+  toJSON = genericToJSON defaultOptions {+             fieldLabelModifier = drop 1 }++-- |Data type representing: <http://docs.travis-ci.com/api/#commits>+-- TODO: more precise parsing / types+data Commit =+ Commit {   cid              :: Int+          , csha             :: String+          , cbranch          :: String+          , cmessage         :: String+          , ccommitted_at    :: String+          , cauthor_name     :: String+          , cauthor_email    :: String+          , ccommitter_name  :: String+          , ccommitter_email :: String+          , ccompare_url     :: String+          } deriving (Show, Generic)++instance FromJSON Commit where+  parseJSON = genericParseJSON defaultOptions {+                fieldLabelModifier = drop 1 }++instance ToJSON Commit where   toJSON = genericToJSON defaultOptions {              fieldLabelModifier = drop 1 }

@@ -1,5 +1,5 @@ name:                travis-version:             0.1.0.0+version:             0.1.0.1 synopsis:            A simple client implementation using Travis CI API. description:         A simple client implementation using Travis CI API. homepage:            http://github.com/tomtau/travis#readme