aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Derp

Browse source
This commit is contained in:
Sam Tay 2017-06-17 11:15:52 -04:00
parent 344b4f8063
commit c49028a04c
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Tetris.hs
View file

@ -159,10 +159,9 @@ isGameOver g = blockStopped g && g ^. block ^. origin == startOrigin
timeStep :: Game -> IO Game timeStep :: Game -> IO Game
timeStep g = if (blockStopped g) timeStep g = if (blockStopped g)
then return . coreUpdater $ g then stopUpdater g
else stopUpdater . coreUpdater $ g else return . gravitate $ g
where where
coreUpdater = gravitate
stopUpdater = nextBlock . updateScore . clearFullRows . freezeBlock stopUpdater = nextBlock . updateScore . clearFullRows . freezeBlock
-- TODO check if mapKeysMonotonic works -- TODO check if mapKeysMonotonic works