diff --git a/hackernews.cabal b/hackernews.cabal
--- a/hackernews.cabal
+++ b/hackernews.cabal
@@ -1,5 +1,5 @@
 name:                hackernews
-version:             0.2.0.1
+version:             0.2.1.1
 description:         API for news.ycombinator.com
 license:             MIT
 synopsis:            API for Hacker News
@@ -43,6 +43,7 @@
     build-depends:       base
                        , hackernews
                        , hspec
+                       , hspec >= 1.11.4
                        , hspec >= 1.11.4
                        , transformers
     default-language:    Haskell2010
diff --git a/src/Web/HackerNews/Comment.hs b/src/Web/HackerNews/Comment.hs
--- a/src/Web/HackerNews/Comment.hs
+++ b/src/Web/HackerNews/Comment.hs
@@ -4,7 +4,7 @@
 import           Control.Applicative ((<$>), (<*>))
 import           Control.Monad       (MonadPlus (mzero))
 import           Data.Aeson          (FromJSON (parseJSON), Value (Object),
-                                      (.:), (.:?))
+                                      (.:), (.:?), (.!=))
 import           Data.Text           (Text)
 import           Data.Time           (UTCTime)
 
@@ -20,6 +20,7 @@
   , commentText   :: Text
   , commentTime   :: UTCTime
   , commentType   :: Text
+  , commentDeleted :: Bool
   } deriving Show
 
 newtype CommentId
@@ -37,6 +38,7 @@
              <*> o .: "text"
              <*> (fromSeconds <$> o .: "time")
              <*> o .: "type"
+             <*> o .:? "deleted" .!= False
   parseJSON _ = mzero
 
 
diff --git a/src/Web/HackerNews/Person.hs b/src/Web/HackerNews/Person.hs
--- a/src/Web/HackerNews/Person.hs
+++ b/src/Web/HackerNews/Person.hs
@@ -1,10 +1,10 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Web.HackerNews.Person where
 
-import           Control.Applicative ((<*>), (<$>))
+import           Control.Applicative ((<$>), (<*>))
 import           Control.Monad       (MonadPlus (mzero))
 import           Data.Aeson          (FromJSON (parseJSON), Value (Object),
-                                      (.:), (.:?))
+                                      (.:), (.:?), (.!=))
 import           Data.Text           (Text)
 import           Data.Time           (UTCTime)
 
@@ -13,14 +13,15 @@
 ------------------------------------------------------------------------------
 -- | Types
 data Person = Person {
-    personBy    :: Text
-  , personId    :: PersonId
-  , personKids  :: Maybe [Int]
-  , personScore :: Maybe Int
-  , personTime  :: UTCTime
-  , personTitle :: Maybe Text
-  , personType  :: Text
-  , personUrl   :: Maybe Text
+    personBy      :: Text
+  , personId      :: PersonId
+  , personKids    :: Maybe [Int]
+  , personScore   :: Maybe Int
+  , personTime    :: UTCTime
+  , personTitle   :: Maybe Text
+  , personType    :: Text
+  , personUrl     :: Maybe Text
+  , personDeleted :: Bool
   } deriving (Show, Eq)
 
 newtype PersonId
@@ -39,4 +40,5 @@
             <*> o .:? "title"
             <*> o .: "type"
             <*> o .:? "url"
-   parseJSON _ = mzero 
+            <*> o .:? "deleted" .!= False
+   parseJSON _ = mzero
diff --git a/src/Web/HackerNews/Poll.hs b/src/Web/HackerNews/Poll.hs
--- a/src/Web/HackerNews/Poll.hs
+++ b/src/Web/HackerNews/Poll.hs
@@ -1,10 +1,10 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Web.HackerNews.Poll where
 
-import           Control.Applicative ((<*>), (<$>))
+import           Control.Applicative ((<$>), (<*>))
 import           Control.Monad       (MonadPlus (mzero))
 import           Data.Aeson          (FromJSON (parseJSON), Value (Object),
-                                      (.:))
+                                      (.:), (.!=), (.:?))
 import           Data.Text           (Text)
 import           Data.Time           (UTCTime)
 
@@ -13,25 +13,27 @@
 ------------------------------------------------------------------------------
 -- | Types
 data Poll = Poll {
-    pollBy    :: Text
-  , pollId    :: PollId
-  , pollKids  :: [Int]
-  , pollParts :: [Int]
-  , pollScore :: Int
-  , pollText  :: Text
-  , pollTime  :: UTCTime
-  , pollTitle :: Text
-  , pollType  :: Text
+    pollBy      :: Text
+  , pollId      :: PollId
+  , pollKids    :: [Int]
+  , pollParts   :: [Int]
+  , pollScore   :: Int
+  , pollText    :: Text
+  , pollTime    :: UTCTime
+  , pollTitle   :: Text
+  , pollType    :: Text
+  , pollDeleted :: Bool
   } deriving (Show, Eq)
 
 data PollOpt = PollOpt {
-    pollOptBy     :: Text
-  , pollOptId     :: PollOptId
-  , pollOptParent :: Int
-  , pollOptScore  :: Int
-  , pollOptText   :: Text
-  , pollOptTime   :: UTCTime
-  , pollOptType   :: Text
+    pollOptBy      :: Text
+  , pollOptId      :: PollOptId
+  , pollOptParent  :: Int
+  , pollOptScore   :: Int
+  , pollOptText    :: Text
+  , pollOptTime    :: UTCTime
+  , pollOptType    :: Text
+  , pollOptDeleted :: Bool
   } deriving (Show, Eq)
 
 newtype PollOptId
@@ -55,6 +57,7 @@
           <*> (fromSeconds <$> o .: "time")
           <*> o .: "title"
           <*> o .: "type"
+          <*> o .:? "deleted" .!= False
   parseJSON _ = mzero
 
 instance FromJSON PollOpt where
@@ -66,4 +69,5 @@
              <*> o .: "text"
              <*> (fromSeconds <$> o .: "time")
              <*> o .: "type"
+             <*> o .:? "deleted" .!= False
   parseJSON _ = mzero
diff --git a/src/Web/HackerNews/Story.hs b/src/Web/HackerNews/Story.hs
--- a/src/Web/HackerNews/Story.hs
+++ b/src/Web/HackerNews/Story.hs
@@ -4,7 +4,7 @@
 import           Control.Applicative ((<$>), (<*>))
 import           Control.Monad       (MonadPlus (mzero))
 import           Data.Aeson          (FromJSON (parseJSON), Value (Object),
-                                      (.:))
+                                      (.:), (.!=), (.:?))
 import           Data.Text           (Text)
 import           Data.Time           (UTCTime)
 
@@ -13,14 +13,15 @@
 ------------------------------------------------------------------------------
 -- | Types
 data Story = Story {
-    storyBy    :: Text
-  , storyId    :: Int
-  , storyKids  :: [Int]
-  , storyScore :: Int
-  , storyTime  :: UTCTime
-  , storyTitle :: Text
-  , storyType  :: Text
-  , storyUrl   :: Text
+    storyBy      :: Text
+  , storyId      :: Int
+  , storyKids    :: [Int]
+  , storyScore   :: Int
+  , storyTime    :: UTCTime
+  , storyTitle   :: Text
+  , storyType    :: Text
+  , storyUrl     :: Text
+  , storyDeleted :: Bool
   } deriving Show
 
 newtype StoryId
@@ -42,5 +43,6 @@
            <*> o .: "title"
            <*> o .: "type"
            <*> o .: "url"
+           <*> o .:? "deleted" .!= False
    parseJSON _ = mzero
 
diff --git a/src/Web/HackerNews/Update.hs b/src/Web/HackerNews/Update.hs
--- a/src/Web/HackerNews/Update.hs
+++ b/src/Web/HackerNews/Update.hs
@@ -4,7 +4,7 @@
 import           Control.Applicative ((<$>), (<*>))
 import           Control.Monad       (MonadPlus (mzero))
 import           Data.Aeson          (FromJSON (parseJSON), Value (Object),
-                                      (.:))
+                                      (.:), (.!=), (.:?))
 import           Data.Text           (Text)
 
 ------------------------------------------------------------------------------
@@ -12,6 +12,7 @@
 data Update = Update {
     updateItems    :: [Int]
   , updateProfiles :: [Text]
+  , updateDeleted  :: Bool
   } deriving (Show, Eq)
 
 ------------------------------------------------------------------------------
@@ -20,5 +21,6 @@
   parseJSON (Object o) =
      Update <$> o .: "items"
             <*> o .: "profiles"
+            <*> o .:? "deleted" .!= False
   parseJSON _ = mzero