diff --git a/metro.cabal b/metro.cabal
--- a/metro.cabal
+++ b/metro.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: fc11297ad715dd46f77689e3e7b67ebbba22e21be3d166fc4e27a28c686e4730
+-- hash: 124f20e53bf16376d862c5d84dd92ae18ac0dcaaca36281152e40f7d65acc566
 
 name:           metro
-version:        0.1.0.0
+version:        0.1.0.1
 synopsis:       A simple tcp and udp socket server framework
 description:    Please see the README on GitHub at <https://github.com/Lupino/metro#readme>
 category:       Network,Framework
diff --git a/src/Metro/Conn.hs b/src/Metro/Conn.hs
--- a/src/Metro/Conn.hs
+++ b/src/Metro/Conn.hs
@@ -47,10 +47,6 @@
     )
 
 instance MonadUnliftIO m => MonadUnliftIO (ConnT tp m) where
-  askUnliftIO = ConnT $
-    ReaderT $ \r ->
-      withUnliftIO $ \u ->
-        return (UnliftIO (unliftIO u . runConnT r))
   withRunInIO inner = ConnT $
     ReaderT $ \r ->
       withRunInIO $ \run ->
diff --git a/src/Metro/Node.hs b/src/Metro/Node.hs
--- a/src/Metro/Node.hs
+++ b/src/Metro/Node.hs
@@ -110,10 +110,6 @@
     )
 
 instance MonadUnliftIO m => MonadUnliftIO (NodeT u nid k rpkt tp m) where
-  askUnliftIO = NodeT $
-    ReaderT $ \r ->
-      withUnliftIO $ \u ->
-        return (UnliftIO (unliftIO u . runNodeT r))
   withRunInIO inner = NodeT $
     ReaderT $ \r ->
       withRunInIO $ \run ->
diff --git a/src/Metro/Server.hs b/src/Metro/Server.hs
--- a/src/Metro/Server.hs
+++ b/src/Metro/Server.hs
@@ -87,10 +87,6 @@
   lift = ServerT . lift
 
 instance MonadUnliftIO m => MonadUnliftIO (ServerT serv u nid k rpkt tp m) where
-  askUnliftIO = ServerT $
-    ReaderT $ \r ->
-      withUnliftIO $ \u ->
-        return (UnliftIO (unliftIO u . runServerT r))
   withRunInIO inner = ServerT $
     ReaderT $ \r ->
       withRunInIO $ \run ->
diff --git a/src/Metro/Session.hs b/src/Metro/Session.hs
--- a/src/Metro/Session.hs
+++ b/src/Metro/Session.hs
@@ -69,10 +69,6 @@
   lift = SessionT . lift . lift
 
 instance MonadUnliftIO m => MonadUnliftIO (SessionT u nid k rpkt tp m) where
-  askUnliftIO = SessionT $
-    ReaderT $ \r ->
-      withUnliftIO $ \u ->
-        return (UnliftIO (unliftIO u . runSessionT r))
   withRunInIO inner = SessionT $
     ReaderT $ \r ->
       withRunInIO $ \run ->