implemented goalsAllowedPrompt

2019-10-31 01:21:21 -04:00
parent cb0b4f9d0b
commit ff541c2385
3 changed files with 16 additions and 1 deletions
@@ -40,3 +40,7 @@ dbFname = "database.json"
 -- | The maximum number of assists
 maxAssists :: Int
 maxAssists = 2
+
+-- | The length of a typical game (in minutes)
+gameLength :: Int
+gameLength = 60