From c49028a04c3050d7c7bc77e1aa5927a31ea60f54 Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Sat, 17 Jun 2017 11:15:52 -0400
Subject: [PATCH] Derp

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

diff --git a/src/Tetris.hs b/src/Tetris.hs
index 0d6618d..4f07620 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -159,10 +159,9 @@ isGameOver g = blockStopped g && g ^. block ^. origin == startOrigin
 
 timeStep :: Game -> IO Game
 timeStep g = if (blockStopped g)
-                then return . coreUpdater $ g
-                else stopUpdater . coreUpdater $ g
+                then stopUpdater g
+                else return . gravitate $ g
   where
-    coreUpdater = gravitate
     stopUpdater = nextBlock . updateScore . clearFullRows . freezeBlock
 
 -- TODO check if mapKeysMonotonic works