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: 07882b5a43e7863f722e3718c4a967123818ae24bfb31cadfcfe24c420cb8799
+-- hash: cff32aadbb54ab06abb8cf6fdb73517cd18298a9730b7018798ee65d56321d11
 
 name:           metro
-version:        0.1.0.3
+version:        0.1.0.4
 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/Node.hs b/src/Metro/Node.hs
--- a/src/Metro/Node.hs
+++ b/src/Metro/Node.hs
@@ -18,6 +18,7 @@
   , setNodeMode
   , setSessionMode
   , setDefaultSessionTimeout
+  , setDefaultSessionTimeout1
 
   , runNodeT
   , startNodeT
@@ -154,6 +155,10 @@
 
 setDefaultSessionTimeout :: TVar Int64 -> NodeEnv u nid k rpkt -> NodeEnv u nid k rpkt
 setDefaultSessionTimeout t nodeEnv = nodeEnv { sessTimeout = t }
+
+setDefaultSessionTimeout1 :: MonadIO m => NodeEnv1 u nid k rpkt tp -> Int64 -> m ()
+setDefaultSessionTimeout1 NodeEnv1 {..} = atomically . writeTVar (sessTimeout nodeEnv)
+
 
 initEnv1
   :: MonadIO m