diff --git a/Web/Twitter/Types/Lens.hs b/Web/Twitter/Types/Lens.hs
--- a/Web/Twitter/Types/Lens.hs
+++ b/Web/Twitter/Types/Lens.hs
@@ -85,16 +85,12 @@
 
        -- * 'TT.DirectMessage'
        , TT.DirectMessage
-       , dmCreatedAt
-       , dmSenderScreenName
-       , dmSender
-       , dmText
-       , dmRecipientScreeName
        , dmId
-       , dmRecipient
-       , dmRecipientId
+       , dmCreatedTimestamp
+       , dmTargetRecipientId
        , dmSenderId
-       , dmCoordinates
+       , dmText
+       , dmEntities
 
        -- * 'TT.Event'
        , TT.Event
@@ -344,12 +340,6 @@
     user = rsUser
     geolocation = rsCoordinates
 
-instance AsStatus TT.DirectMessage where
-    status_id = dmId
-    text = dmText
-    user = dmSender
-    geolocation = dmCoordinates
-
 class AsUser u where
     user_id :: Lens' u TT.UserId
     name :: Lens' u TT.UserName
@@ -379,7 +369,7 @@
 instance HasCreatedAt TT.RetweetedStatus where
     created_at = rsCreatedAt
 instance HasCreatedAt TT.DirectMessage where
-    created_at = dmCreatedAt
+    created_at = dmCreatedTimestamp
 instance HasCreatedAt TT.User where
     created_at = userCreatedAt
 
diff --git a/twitter-types-lens.cabal b/twitter-types-lens.cabal
--- a/twitter-types-lens.cabal
+++ b/twitter-types-lens.cabal
@@ -1,5 +1,5 @@
 name:                twitter-types-lens
-version:             0.8.1
+version:             0.9.0
 synopsis:            Twitter JSON types (lens powered)
 description:         Please see the README on Github at <https://github.com/himura/twitter-types#readme>
 homepage:            https://github.com/himura/twitter-types
@@ -31,6 +31,6 @@
     , template-haskell
     , text
     , time
-    , twitter-types >= 0.8 && < 0.9
+    , twitter-types >= 0.9 && < 0.10
 
   default-language:    Haskell2010