xml-push 0.0.0.1 → 0.0.0.2

raw patch · 2 files changed

+7/−12 lines, 2 files

Files

• src/Network/XmlPush/HttpPull/Tls/Server.hs +5/−10
• xml-push.cabal +2/−2

@@ -40,18 +40,13 @@ 	g <- liftBase (cprgCreate <$> createEntropyPool :: IO SystemRNG) 	(inc, otc) <- (`run` g) $ do 		t <- open h cs kcs mca-		runXml t ip ep $ checkName t gn+		runXml t ip ep $ checkNameP t gn 	return $ HttpPullTlsSv (fromTChan inc) (toTChan otc) -checkName :: HandleLike h => TlsHandle h g -> (XmlNode -> Maybe String) ->+checkNameP :: HandleLike h => TlsHandle h g -> (XmlNode -> Maybe String) -> 	Pipe XmlNode XmlNode (TlsM h g) ()-checkName t gn = (await >>=) . maybe (return ()) $ \n -> do-	ok <- maybe (return True) (lift . svCheckName t) $ gn n+checkNameP t gn = (await >>=) . maybe (return ()) $ \n -> do+	ok <- maybe (return True) (lift . checkName t) $ gn n 	unless ok $ error "checkName: bad client name" 	yield n-	checkName t gn--svCheckName :: HandleLike h => TlsHandle h g -> String -> TlsM h g Bool-svCheckName t n = do-	ns <- getNames t-	return $ n `elem` ns+	checkNameP t gn

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		xml-push-version:	0.0.0.1+version:	0.0.0.2 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.1+    tag:	xml-push-0.0.0.2  library     hs-source-dirs:	src