Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix 'non-exhaustive pattern' server crash
authorunc0rr
Thu, 31 Oct 2013 23:27:06 +0400
changeset 9661 788fd9eedfb0
parent 9660 267c0005baaf
child 9662 47dbd9601342
Fix 'non-exhaustive pattern' server crash
gameServer/OfficialServer/DBInteraction.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/OfficialServer/DBInteraction.hs	Thu Oct 31 10:46:52 2013 -0400
+++ b/gameServer/OfficialServer/DBInteraction.hs	Thu Oct 31 23:27:06 2013 +0400
@@ -49,6 +49,8 @@
                 writeChan (coreChan si) $ ClientAccountInfo clId clUid (if clHost `L.elem` localAddressList then Admin else Guest)
             ClearCache -> return ()
             SendStats {} -> return ()
+            GetReplayName {} -> return ()
+            StoreAchievements {} -> return ()
         flushRequests si
 
 pipeDbConnectionLoop :: Chan DBQuery -> Chan CoreMessage -> Handle -> Handle -> Map.Map ByteString (UTCTime, AccountInfo) -> Int -> IO (Map.Map ByteString (UTCTime, AccountInfo), Int)
hedgewars