xml-push 0.0.0.0 → 0.0.0.1

raw patch · 6 files changed

+11/−10 lines, 6 files

Files

• examples/httpPullCl.hs +2/−2
• examples/httpPullTlsCl.hs +2/−2
• src/Network/XmlPush/HttpPull/Client.hs +2/−2
• src/Network/XmlPush/HttpPull/Client/Common.hs +1/−0
• src/Network/XmlPush/HttpPull/Tls/Client.hs +2/−2
• xml-push.cabal +2/−2

@@ -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

@@ -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)] 		) 

@@ -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)

@@ -29,6 +29,7 @@ 	getPath :: XmlNode -> FilePath, 	poll :: XmlNode, 	isPending :: XmlNode -> Bool,+	duration :: Maybe Int, 	getDuration :: XmlNode -> Maybe Int 	} 

@@ -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

@@ -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