{-# LANGUAGE ScopedTypeVariables #-}

module OfficialServer.GameReplayStore where

import Data.Time

import Control.Exception as E

import qualified Data.Map as Map

import Data.Sequence()

import System.Log.Logger

import Data.Maybe

import Data.Unique

import Control.Monad

---------------

import CoreTypes

saveReplay :: RoomInfo -> IO ()

saveReplay r = do

    let gi = fromJust $ gameInfo r

    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)