Fix official server build
authorunc0rr
Tue, 22 Jan 2013 00:33:37 +0400
changeset 8423 8aa450f6cf2c
parent 8422 ec41194d4444
child 8424 225ede46e3dc
Fix official server build
gameServer/OfficialServer/GameReplayStore.hs
--- a/gameServer/OfficialServer/GameReplayStore.hs	Tue Jan 22 00:24:44 2013 +0400
+++ b/gameServer/OfficialServer/GameReplayStore.hs	Tue Jan 22 00:33:37 2013 +0400
@@ -14,12 +14,13 @@
 
 
 saveReplay :: RoomInfo -> IO ()
-saveReplay r = when allPlayersHaveRegisteredAccounts $ do
-    time <- getCurrentTime
-    u <- liftM hashUnique newUnique
-    let fileName = "replays/" ++ show time ++ "-" ++ show u
+saveReplay r = do
     let gi = fromJust $ gameInfo r
-    let replayInfo = (teamsAtStart gi, Map.toList $ mapParams r, Map.toList $ params r, roundMsgs gi)
-    E.catch
-        (writeFile fileName (show replayInfo))
-        (\(e :: IOException) -> warningM "REPLAYS" $ "Couldn't write to " ++ fileName ++ ": " ++ show e)
+    when (allPlayersHaveRegisteredAccounts gi) $ do
+        time <- getCurrentTime
+        u <- liftM hashUnique newUnique
+        let fileName = "replays/" ++ show time ++ "-" ++ show u
+        let replayInfo = (teamsAtStart gi, Map.toList $ mapParams r, Map.toList $ params r, roundMsgs gi)
+        E.catch
+            (writeFile fileName (show replayInfo))
+            (\(e :: IOException) -> warningM "REPLAYS" $ "Couldn't write to " ++ fileName ++ ": " ++ show e)