From 344b4f8063fb97f2c9085da76956bd14f2fe4ddb Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Sat, 17 Jun 2017 11:05:58 -0400
Subject: [PATCH] Allow starting pieces to be in bounds

---
 src/Tetris.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Tetris.hs b/src/Tetris.hs
index 15c00fe..0d6618d 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -250,7 +250,7 @@ isOccupied = flip M.member
 
 -- | Check if coordinate is in or out of bounds
 isInBounds, isOutOfBounds :: Coord -> Bool
-isInBounds (x,y) = x `elem` [1..boardWidth] && y `elem` [1..boardHeight]
+isInBounds (x,y) = x `elem` [1..boardWidth] && y `elem` [1..]
 isOutOfBounds = not . isInBounds
 
 -- | Gravitate current block, i.e. shift down