#16 Fix

lib/Patience.hs

@@ -0,0 +1,26 @@
+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