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