diff --git a/examples/httpPullCl.hs b/examples/httpPullCl.hs
--- a/examples/httpPullCl.hs
+++ b/examples/httpPullCl.hs
@@ -11,8 +11,8 @@
 main = do
 	h <- connectTo "localhost" $ PortNumber 80
 	testPusher (undefined :: HttpPullCl Handle) (One h)
-		(HttpPullClArgs "localhost" 80 "/" gtPth
-			(XmlNode (nullQ "poll") [] [] []) pendingQ drtn)
+		(HttpPullClArgs "localhost" 80 "/" gtPth (XmlNode
+			(nullQ "poll") [] [] []) pendingQ (Just 10000000) drtn)
 
 pendingQ :: XmlNode -> Bool
 pendingQ (XmlNode (_, "nothing") _ [] []) = False
diff --git a/examples/httpPullTlsCl.hs b/examples/httpPullTlsCl.hs
--- a/examples/httpPullTlsCl.hs
+++ b/examples/httpPullTlsCl.hs
@@ -15,8 +15,8 @@
 	k <- readKey "certs/yoshikuni.sample_key"
 	c <- readCertificateChain ["certs/yoshikuni.sample_crt"]
 	testPusher (undefined :: HttpPullTlsCl Handle) (One h) (
-		HttpPullClArgs "localhost" 443 "/" gtPth
-			(XmlNode (nullQ "poll") [] [] []) pendingQ drtn,
+		HttpPullClArgs "localhost" 443 "/" gtPth (XmlNode
+			(nullQ "poll") [] [] []) pendingQ (Just 10000000) drtn,
 		TlsArgs "localhost" ["TLS_RSA_WITH_AES_128_CBC_SHA"] ca [(k, c)]
 		)
 
diff --git a/src/Network/XmlPush/HttpPull/Client.hs b/src/Network/XmlPush/HttpPull/Client.hs
--- a/src/Network/XmlPush/HttpPull/Client.hs
+++ b/src/Network/XmlPush/HttpPull/Client.hs
@@ -28,7 +28,7 @@
 
 makeHttpPull :: (HandleLike h, MonadBaseControl IO (HandleMonad h)) =>
 	One h -> HttpPullClArgs -> HandleMonad h (HttpPullCl h)
-makeHttpPull (One h) (HttpPullClArgs hn pn fp gp pl ip gdr) = do
-	dr <- liftBase . atomically $ newTVar Nothing
+makeHttpPull (One h) (HttpPullClArgs hn pn fp gp pl ip d gdr) = do
+	dr <- liftBase . atomically $ newTVar d
 	(inc, otc) <- talkC h hn pn fp gp pl ip dr gdr
 	return $ HttpPullCl (fromTChan inc) (toTChan otc)
diff --git a/src/Network/XmlPush/HttpPull/Client/Common.hs b/src/Network/XmlPush/HttpPull/Client/Common.hs
--- a/src/Network/XmlPush/HttpPull/Client/Common.hs
+++ b/src/Network/XmlPush/HttpPull/Client/Common.hs
@@ -29,6 +29,7 @@
 	getPath :: XmlNode -> FilePath,
 	poll :: XmlNode,
 	isPending :: XmlNode -> Bool,
+	duration :: Maybe Int,
 	getDuration :: XmlNode -> Maybe Int
 	}
 
diff --git a/src/Network/XmlPush/HttpPull/Tls/Client.hs b/src/Network/XmlPush/HttpPull/Tls/Client.hs
--- a/src/Network/XmlPush/HttpPull/Tls/Client.hs
+++ b/src/Network/XmlPush/HttpPull/Tls/Client.hs
@@ -75,8 +75,8 @@
 makeHttpPull :: (ValidateHandle h, MonadBaseControl IO (HandleMonad h)) =>
 	One h -> (HttpPullClArgs, TlsArgs) -> HandleMonad h (HttpPullTlsCl h)
 makeHttpPull (One h)
-	(HttpPullClArgs hn pn fp gp pl ip gd, TlsArgs dn cs ca kcs) = do
-	dr <- liftBase . atomically $ newTVar Nothing
+	(HttpPullClArgs hn pn fp gp pl ip d gd, TlsArgs dn cs ca kcs) = do
+	dr <- liftBase . atomically $ newTVar d
 	(inc, otc) <- do
 		(g :: SystemRNG) <- liftBase $ cprgCreate <$> createEntropyPool
 		(ic, oc) <- open' h dn cs kcs ca g
diff --git a/xml-push.cabal b/xml-push.cabal
--- a/xml-push.cabal
+++ b/xml-push.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.8
 
 name:		xml-push
-version:	0.0.0.0
+version:	0.0.0.1
 stability:	Experimenmtal
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
@@ -100,7 +100,7 @@
 source-repository	this
     type:	git
     location:	git://github.com/YoshikuniJujo/xml-push.git
-    tag:	xml-push-0.0.0.0
+    tag:	xml-push-0.0.0.1
 
 library
     hs-source-dirs:	src