diff -r 5fe24180fc72 -r 124b4755914b gameServer/Store.hs
--- a/gameServer/Store.hs	Fri Sep 24 15:14:40 2010 -0400
+++ b/gameServer/Store.hs	Sat Sep 25 23:01:52 2010 +0400
@@ -93,7 +93,7 @@
 modifyElem :: MStore e -> (e -> e) -> ElemIndex -> IO ()
 modifyElem (MStore ref) f (ElemIndex n) = do
     (_, _, arr) <- readIORef ref
-    IOA.readArray arr n >>= (IOA.writeArray arr n) . f
+    IOA.readArray arr n >>= IOA.writeArray arr n . f
 
 elemExists :: MStore e -> ElemIndex -> IO Bool
 elemExists (MStore ref) (ElemIndex n) = do