simple-server 0.0.2 → 0.0.3

raw patch · 2 files changed

+4/−3 lines, 2 files

Files

• Network/SimpleServer.hs +3/−2
• simple-server.cabal +1/−1

@@ -235,8 +235,9 @@   tid <- newEmptyMVar   timestamp <- newEmptyMVar   table <- HT.new-  let lookup = safeLookup (lock server) table-      modify = safeModify (lock server) table+  lock <- Lock.new+  let lookup = safeLookup lock table+      modify = safeModify lock table   return $ ClientConn id lookup modify handle host pid queue dead' timestamp tid server  safeLookup :: Lock.Lock -> UserTable -> (String -> IO String)

@@ -1,5 +1,5 @@ Name:              simple-server-Version:       	   0.0.2+Version:       	   0.0.3 License:           GPL License-File:      LICENSE Author:	           Joseph Collard