diff --git a/Web/Twitter/Types.hs b/Web/Twitter/Types.hs
--- a/Web/Twitter/Types.hs
+++ b/Web/Twitter/Types.hs
@@ -67,6 +67,7 @@
                   | SDelete Delete
                   -- | SScrubGeo ScrubGeo
                   | SFriends Friends
+                  | SDirectMessage DirectMessage
                   | SUnknown Value
                   deriving (Show, Eq, Data, Typeable, Generic)
 
@@ -100,6 +101,7 @@
         SEvent <$> js <|>
         SDelete <$> js <|>
         SFriends <$> (o .: "friends") <|>
+        SDirectMessage <$> (o .: "direct_message") <|>
         return (SUnknown v)
       where
         js :: FromJSON a => Parser a
@@ -112,6 +114,7 @@
     toJSON (SEvent           e) = toJSON e
     toJSON (SDelete          d) = toJSON d
     toJSON (SFriends         f) = toJSON f
+    toJSON (SDirectMessage   m) = toJSON m
     toJSON (SUnknown         v) = v
 
 -- | This type represents a Twitter tweet structure.
@@ -150,8 +153,8 @@
 
 instance FromJSON Status where
     parseJSON (Object o) = checkError o >>
-        Status <$> o .:? "contributors"
-               <*> o .:? "coordinates"
+        Status <$> o .:? "contributors" .!= Nothing
+               <*> o .:? "coordinates" .!= Nothing
                <*> (o .:  "created_at" >>= return . fromTwitterTime)
                <*> ((o .: "current_user_retweet" >>= (.: "id")) <|> return Nothing)
                <*> o .:? "entities"
@@ -160,11 +163,11 @@
                <*> o .:? "favorited"
                <*> o .:? "filter_level"
                <*> o .:  "id"
-               <*> o .:? "in_reply_to_screen_name"
-               <*> o .:? "in_reply_to_status_id"
-               <*> o .:? "in_reply_to_user_id"
+               <*> o .:? "in_reply_to_screen_name" .!= Nothing
+               <*> o .:? "in_reply_to_status_id" .!= Nothing
+               <*> o .:? "in_reply_to_user_id" .!= Nothing
                <*> o .:? "lang"
-               <*> o .:? "place"
+               <*> o .:? "place" .!= Nothing
                <*> o .:? "possibly_sensitive"
                <*> o .:? "scopes"
                <*> o .:? "quoted_status_id"
@@ -501,8 +504,8 @@
              <*> o .:  "default_profile_image"
              <*> o .:? "description"
              <*> o .:  "favourites_count"
-             <*> o .:? "follow_request_sent"
-             <*> o .:? "following"
+             <*> o .:? "follow_request_sent" .!= Nothing
+             <*> o .:? "following" .!= Nothing
              <*> o .:  "followers_count"
              <*> o .:  "friends_count"
              <*> o .:  "geo_enabled"
@@ -512,7 +515,7 @@
              <*> o .:  "listed_count"
              <*> o .:? "location"
              <*> o .:  "name"
-             <*> o .:? "notifications"
+             <*> o .:? "notifications" .!= Nothing
              <*> o .:? "profile_background_color"
              <*> o .:? "profile_background_image_url"
              <*> o .:? "profile_background_image_url_https"
@@ -530,7 +533,7 @@
              <*> o .:? "show_all_inline_media"
              <*> o .:  "statuses_count"
              <*> o .:? "time_zone"
-             <*> o .:? "url"
+             <*> o .:? "url" .!= Nothing
              <*> o .:? "utc_offset"
              <*> o .:  "verified"
              <*> o .:? "withheld_in_countries"
diff --git a/twitter-types.cabal b/twitter-types.cabal
--- a/twitter-types.cabal
+++ b/twitter-types.cabal
@@ -1,5 +1,5 @@
 name:              twitter-types
-version:           0.7.1.1
+version:           0.7.2
 license:           BSD3
 license-file:      LICENSE
 author:            Takahiro HIMURA