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