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

remove redundant .^ in Tetris.hs

Browse source
This commit is contained in:
Willem Van Onsem 2021-03-15 23:47:38 +01:00
parent 55f87143b4
commit 70270dbbce
No known key found for this signature in database
GPG key ID: 1D22C3A122D794F4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Tetris.hs
View file

@ -178,7 +178,7 @@ initGame lvl = do
} }
isGameOver :: Game -> Bool isGameOver :: Game -> Bool
isGameOver g = blockStopped g && g ^. block ^. origin == startOrigin isGameOver g = blockStopped g && g ^. (block . origin) == startOrigin
-- | The main game execution, this is executed at each discrete time step -- | The main game execution, this is executed at each discrete time step
timeStep :: MonadIO m => TetrisT m () timeStep :: MonadIO m => TetrisT m ()