diff --git a/github-types.cabal b/github-types.cabal
--- a/github-types.cabal
+++ b/github-types.cabal
@@ -1,5 +1,5 @@
 name:                github-types
-version:             0.1.0.3
+version:             0.1.0.4
 license:             OtherLicense
 license-file:        LICENSE
 author:              Tomas Carnecky
diff --git a/src/GitHub/Types/Events.hs b/src/GitHub/Types/Events.hs
--- a/src/GitHub/Types/Events.hs
+++ b/src/GitHub/Types/Events.hs
@@ -55,30 +55,15 @@
 -- DeploymentEvent
 
 data DeploymentEvent = DeploymentEvent
-    { deploymentEventId          :: Int
-      -- ^ The deployment Id (UNDOCUMENTED).
-    , deploymentEventSha         :: Text
-      -- The commit SHA for which this deployment was created.
-    , deploymentEventName        :: Text
-      -- ^ Name of repository for this deployment, formatted as :owner/:repo.
-    , deploymentEventPayload     :: Value
-      -- ^ The optional extra information for this deployment.
-    , deploymentEventEnvironment :: Text
-      -- ^ The optional environment to deploy to. Default: "production"
-    , deploymentEventDescription :: Maybe Text
-      -- ^ The optional human-readable description added to the deployment.
+    { deploymentEventDeployment  :: Deployment
+      -- ^ The deployment.
     , deploymentEventRepository  :: Repository
       -- ^ The repository for which the deployment was created (UNDOCUMENTED).
     } deriving (Eq, Show)
 
 instance FromJSON DeploymentEvent where
     parseJSON (Object x) = DeploymentEvent
-        <$> x .: "id"
-        <*> x .: "sha"
-        <*> x .: "name"
-        <*> x .: "payload"
-        <*> x .: "environment"
-        <*> x .: "description"
+        <$> x .: "deployment"
         <*> x .: "repository"
 
     parseJSON _ = mzero
@@ -88,24 +73,18 @@
 -- DeploymentStatusEvent
 
 data DeploymentStatusEvent = DeploymentStatusEvent
-    { deploymentStatusEventState       :: State
-      -- ^ The new state.
-    , deploymentStatusEventTargetUrl   :: Maybe Text
-      -- ^ The optional link added to the status.
-    , deploymentStatusEventDeployment  :: Deployment
-      -- ^ The deployment that this status is associated with.
-    , deploymentStatusEventDescription :: Maybe Text
-      -- ^ The optional human-readable description added to the status.
-    , deploymentStatusEventRepository  :: Repository
+    { deploymentStatusEventDeploymentStatus :: DeploymentStatus
+      -- ^ The deployment status.
+    , deploymentStatusEventDeployment       :: Deployment
+      -- ^ The deployment which the status affects.
+    , deploymentStatusEventRepository       :: Repository
       -- ^ The repository for which the deployment was created (UNDOCUMENTED).
     } deriving (Eq, Show)
 
 instance FromJSON DeploymentStatusEvent where
     parseJSON (Object x) = DeploymentStatusEvent
-        <$> x .: "state"
-        <*> x .: "target_url"
+        <$> x .: "deployment_status"
         <*> x .: "deployment"
-        <*> x .: "description"
         <*> x .: "repository"
 
     parseJSON _ = mzero
diff --git a/src/GitHub/Types/Repository.hs b/src/GitHub/Types/Repository.hs
--- a/src/GitHub/Types/Repository.hs
+++ b/src/GitHub/Types/Repository.hs
@@ -33,9 +33,11 @@
     { deploymentId          :: Int
     , deploymentSha         :: Text
     , deploymentRef         :: Text
+    , deploymentTask        :: Text
+    , deploymentName        :: Text
     , deploymentEnvironment :: Text
-    , deploymentDescription :: Text
     , deploymentPayload     :: Value
+    , deploymentDescription :: Text
     } deriving (Eq, Show)
 
 instance FromJSON Deployment where
@@ -43,8 +45,29 @@
         <$> x .: "id"
         <*> x .: "sha"
         <*> x .: "ref"
+        <*> x .: "task"
+        <*> x .: "name"
         <*> x .: "environment"
-        <*> x .: "description"
         <*> x .: "payload"
+        <*> x .: "description"
+
+    parseJSON _ = mzero
+
+
+data DeploymentStatus = DeploymentStatus
+    { deploymentStatusId             :: Int
+    , deploymentStatusState          :: Text
+    , deploymentStatusTargetUrl      :: Maybe Text
+    , deploymentStatusDescription    :: Maybe Text
+    , deploymentStatusDeploymentUrl  :: Maybe Text
+    } deriving (Eq, Show)
+
+instance FromJSON DeploymentStatus where
+    parseJSON (Object x) = DeploymentStatus
+        <$> x .: "id"
+        <*> x .: "state"
+        <*> x .: "target_url"
+        <*> x .: "description"
+        <*> x .: "deployment_url"
 
     parseJSON _ = mzero