diff --git a/hackernews.cabal b/hackernews.cabal
--- a/hackernews.cabal
+++ b/hackernews.cabal
@@ -1,5 +1,5 @@
 name:                hackernews
-version:             0.2.1.1
+version:             0.2.2.1
 description:         API for news.ycombinator.com
 license:             MIT
 synopsis:            API for Hacker News
@@ -11,7 +11,7 @@
 cabal-version:       >=1.10
 
 library
-  ghc-options:         -Wall
+  ghc-options:         -Wall -threaded
   exposed-modules:     Web.HackerNews
   other-modules:       Web.HackerNews.Types
                      , Web.HackerNews.Client
@@ -26,9 +26,8 @@
   build-depends:       HsOpenSSL    >= 0.10.5
                      , aeson        >= 0.8.0.1
                      , attoparsec   >= 0.12.1.2
-                     , base         >=4.7 && <4.8
+                     , base         >= 4.7 && <4.8
                      , bytestring   >= 0.10.4.0
-                     , hspec >= 1.11.4
                      , http-streams >= 0.7.2.2
                      , io-streams   >= 1.1.4.6
                      , text         >= 1.2.0.0
@@ -38,12 +37,11 @@
 
 Test-Suite tests
     type:                exitcode-stdio-1.0
+    ghc-options: -rtsopts -threaded
     hs-source-dirs:      tests
     main-is:             Test.hs
     build-depends:       base
                        , hackernews
-                       , hspec
-                       , hspec >= 1.11.4
                        , hspec >= 1.11.4
                        , transformers
     default-language:    Haskell2010
diff --git a/src/Web/HackerNews/Client.hs b/src/Web/HackerNews/Client.hs
--- a/src/Web/HackerNews/Client.hs
+++ b/src/Web/HackerNews/Client.hs
@@ -31,7 +31,7 @@
   withOpenSSL $ do
     ctx <- baselineContextSSL
     con <- openConnectionSSL ctx "hacker-news.firebaseio.com" 443
-    result <- flip runReaderT con requests
+    result <- runReaderT requests con 
     closeConnection con
     return result
 
@@ -46,7 +46,7 @@
         setHeader "Connection" "Keep-Alive"
         setAccept "application/json"
       sendRequest con req emptyBody
-      !bytes <- receiveResponse con $ const $ Streams.read
+      !bytes <- receiveResponse con $ const Streams.read
       return $ case bytes of
         Nothing -> Nothing
         Just bs -> do
diff --git a/src/Web/HackerNews/User.hs b/src/Web/HackerNews/User.hs
--- a/src/Web/HackerNews/User.hs
+++ b/src/Web/HackerNews/User.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)
 
@@ -19,6 +19,7 @@
   , userId        :: UserId
   , userKarma     :: Int
   , userSubmitted :: [Int]
+  , userDeleted   :: Bool
   } deriving (Show)
 
 newtype UserId
@@ -35,5 +36,6 @@
           <*> (UserId <$> o .: "id")
           <*> o .: "karma"
           <*> o .: "submitted"
+          <*> o .:? "deleted" .!= False
   parseJSON _ = mzero