#5 #6

lib/Patience.hs

@@ -5,7 +5,7 @@ module Patience
 import PatienceBoard
 import PatienceRenderer
 
-import Graphics.Gloss (green, play)
+import Graphics.Gloss (dim, green, play)
 
 ---------------------------------------------------------------------
 -- Single module to play patience.                                 --
@@ -21,6 +21,19 @@ type FPS = Int
 
 -- Play a game of patience.
 playPatience :: FPS -> IO()
-playPatience fps = do play window green fps initGame render handleInputs step
+playPatience fps = do play window bgcolor fps initGame render handleInputs step
     where window   = getWindow
           step _ g = g
+          bgcolor  = dim green
+
+---------------------------- Documentation ---------------------------
+-- The structure of this project is based on the Model-View-        --
+-- Controller as known in Java. This clearly seperates different    --
+-- functionality from each other. I also tried to put as much       --
+-- functionality of the same thing into a single module. I always   --
+-- asked myself: "Could I use this piece of code in a different     --
+-- project?" If the answer was yes, there is now a module for it.   --
+--                             -*-                                  --
+-- This block merely serves as a message to the person reviewing    --
+-- this code.                                                       --
+----------------------------------------------------------------------