From fe55e493f1a6a061f86e7f03f6079ca4f373dc39 Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Fri, 28 Dec 2018 23:54:54 -0500
Subject: [PATCH] Remove unnecessary variable

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

diff --git a/src/Tetris.hs b/src/Tetris.hs
index fb631b3..61fed94 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -187,8 +187,7 @@ timeStep = do
     False -> gravitate
     True -> do
       freezeBlock
-      cleared <- clearFullRows
-      addToRowClears cleared
+      clearFullRows >>= addToRowClears
       updateScore
       nextBlock