battleships-1.0.0: Handler/GameEnded.hs

----------------------------------------------------------------------------
-- |
-- Module      :  Handler.GameEnded
-- Stability   :  experimental
-- Portability :  non-portable
--
-- Handler for an end screen revealing both boards and informing the user
-- whether he has lost or won.

module Handler.GameEnded (getGameEndedR, gameEndedView) where

import Import
import Handler.Util
import Logic.Game
import Logic.GameExt
import Logic.Types

getGameEndedR :: GameStateExt -> Handler Html
getGameEndedR gameE = withGame gameE $ \game -> gameEndedView game gameE

gameEndedView :: GameState a -> GameStateExt -> Handler Html
gameEndedView game gameE = do
  let 
    remShipsComputer = numRemainingShips $ playerFleet $ otherPlayer game
    remShipsHuman    = numRemainingShips $ playerFleet $ currentPlayer game
    timedOut = isTimedOut game
    humanWon = allSunk (playerFleet $ otherPlayer game) ||
                 timedOut && remShipsComputer < remShipsHuman
    drawn    = isDrawn game
  defaultLayout $ do
    setNormalTitle
    $(widgetFile "board")
    $(widgetFile "gameended")