From 82ca49321c15193f98267280ca89c42a35b7f50e Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Sat, 17 Jun 2017 16:59:31 -0400
Subject: [PATCH] Fix clearing rows

---
 src/Tetris.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Tetris.hs b/src/Tetris.hs
index 6d9b062..19ce3ae 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -169,12 +169,12 @@ clearFullRows :: Game -> Game
 clearFullRows g = g & board %~ clearBoard
                     & rowClears %~ (|> rowCount)
   where
-    clearBoard           = M.mapKeys shiftCoordAbove . M.filterWithKey isInFullRow
-    isInFullRow (_,y) _  = y `elem` fullRowIndices
-    rowCount             = length fullRowIndices
-    fullRowIndices       = filter isFullRow [1..boardHeight]
-    isFullRow r          = boardWidth == (length . M.filterWithKey (inRow r) $ g ^. board)
-    inRow r (_, y) _     = r == y
+    clearBoard            = M.mapKeys shiftCoordAbove . M.filterWithKey notInFullRow
+    notInFullRow (_,y) _  = y `notElem` fullRowIndices
+    rowCount              = length fullRowIndices
+    fullRowIndices        = filter isFullRow [1..boardHeight]
+    isFullRow r           = boardWidth == (length . M.filterWithKey (inRow r) $ g ^. board)
+    inRow r (_, y) _      = r == y
     shiftCoordAbove (x,y) =
       let offset = length . filter (< y) $ fullRowIndices
        in (x, y - offset)