changeset 3673 | 45778b16b224 |
parent 3671 | a94d1dc4a8d9 |
child 3741 | 73246d25dfe1 |
--- a/gameServer/Store.hs Sun Jul 25 18:55:54 2010 +0400 +++ b/gameServer/Store.hs Sun Jul 25 22:39:59 2010 +0400 @@ -77,7 +77,7 @@ removeElem :: MStore e -> ElemIndex -> IO () removeElem (MStore ref) (ElemIndex n) = do (busyElems, freeElems, arr) <- readIORef ref - IOA.writeArray arr n (error "Store: no element") + IOA.writeArray arr n (error $ "Store: no element " ++ show n) writeIORef ref (IntSet.delete n busyElems, IntSet.insert n freeElems, arr)