module Patience
( playPatience
) where

import PatienceBoard
import PatienceRenderer

import Graphics.Gloss (green, play)

---------------------------------------------------------------------
-- Single module to play patience.                                 --
-- Includes all logic and rendering.                               --
---------------------------------------------------------------------

----------------------------- Constants ------------------------------

-- Framerate of the game
type FPS = Int

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

-- Play a game of patience.
playPatience :: FPS -> IO()
playPatience fps = do play window green fps initGame render handleInputs step
    where window   = getWindow
          step _ g = g