Network-NineP 0.4.7 → 0.4.7.1

raw patch · 3 files changed

+5/−4 lines, 3 filesdep ~networkPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: network

API changes (from Hackage documentation)

Files

• Network-NineP.cabal +3/−3
• Network/NineP/Internal/Msg.hs +1/−0
• Network/NineP/Server.hs +1/−1

@@ -1,5 +1,5 @@ Name:                Network-NineP-Version:             0.4.7+Version:             0.4.7.1 Description:         A library providing one with a somewhat higher level interface to 9P2000 protocol than existing implementations. Designed to facilitate rapid development of synthetic filesystems. Synopsis:            High-level abstraction over 9P protocol Maintainer:          Sergey Alirzaev <zl29ah@gmail.com>@@ -18,7 +18,7 @@ Source-repository this   type:              git   location:          https://github.com/l29ah/Network-NineP.git-  tag:               0.4.7+  tag:               0.4.7.1  Library   Build-Depends:@@ -26,7 +26,7 @@     bytestring >= 0.9.2.1 && < 0.11,     containers >= 0.4.2.1 && < 0.7,     NineP >= 0.0.2 && < 0.1,-    network >= 3.0 && < 3.1,+    network >= 3.0 && < 3.2,     network-bsd >= 2.8 && < 2.9,     binary >= 0.5.1.0 && < 0.9,     mtl >= 2.1.2 && < 2.3,

@@ -68,6 +68,7 @@ rversion (Msg _ t (Tversion s v)) = do 	let ver = readVersion v 	modifyM_ (\st -> st { msize = s, protoVersion = ver })+	-- FIXME clunk everything and abort all outstanding I/O 	return $ return $ Msg TRversion t $ Rversion s $ show ver  rattach (Msg _ t (Tattach fid _ _ _)) = do

@@ -111,7 +111,7 @@ 			mp <- liftIO $ try $ recvPacket h 			case mp of 				Left (e :: SomeException) -> do-					return $ putStrLn $ show e+					pure $ errorM "Network.NineP.Server" $ show e 					return True 				Right p -> do 					forkM $ handleMsg say p