diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+# Version 2.0.1
+
+* Fix MonadUnliftIO instance for FacebookT
+* Have upper bound on unliftio and related packages
+
 # Version 2.0.0
 
 * Remove following dependency:
diff --git a/fb.cabal b/fb.cabal
--- a/fb.cabal
+++ b/fb.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 1165a61ce7ffe062813385420ff4c80c2e0089e64221cfd0d045a3cf1654b8a8
+-- hash: f698ca30c7f08b732695d16796a83805031f7c6656a996d179507f92d1ad54e1
 
 name:           fb
-version:        2.0.0
+version:        2.0.1
 synopsis:       Bindings to Facebook's API.
 description:    This package exports bindings to Facebook's APIs (see
                 <http://developers.facebook.com/>).  Does not have any external
@@ -83,14 +83,14 @@
     , http-conduit >=2.3.0
     , http-types
     , memory
-    , monad-logger >=0.3.28
-    , resourcet >=1.2.0
+    , monad-logger >=0.3.32
+    , resourcet >=1.2.3
     , text >=0.11
     , time >=1.4
     , transformers >=0.2
     , transformers-base
     , unliftio
-    , unliftio-core
+    , unliftio-core >=0.2.0
     , unordered-containers
   if flag(debug)
     cpp-options: -DDEBUG
diff --git a/src/Facebook/Monad.hs b/src/Facebook/Monad.hs
--- a/src/Facebook/Monad.hs
+++ b/src/Facebook/Monad.hs
@@ -74,6 +74,7 @@
            , MonadTrans
            , R.MonadThrow
            , MonadFail
+           , MonadUnliftIO
            )
 
 deriving instance
@@ -82,20 +83,6 @@
 
 instance MonadBase b m => MonadBase b (FacebookT auth m) where
   liftBase = lift . liftBase
-
--- askUnliftIO = ReaderT $ \r ->
---                 withUnliftIO $ \u ->
--- return (UnliftIO (unliftIO u . flip runReaderT r))
-instance (MonadIO m, MonadUnliftIO m) => MonadUnliftIO (FacebookT auth m) where
-  askUnliftIO :: FacebookT auth m (UnliftIO (FacebookT auth m))
-  askUnliftIO =
-    F
-      (ReaderT $ \(r :: FbData) ->
-         withUnliftIO $ \(u :: UnliftIO m) ->
-           return
-             (UnliftIO
-                (\(x :: FacebookT auth m a) ->
-                   (unliftIO u ((flip runReaderT r) (unF x))))))
 
 -- | Since @fb-0.14.8@.
 instance MonadLogger m => MonadLogger (FacebookT auth m) where