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

Favor list comprehension over zip

Browse source
This commit is contained in:
Sam Tay 2017-06-17 16:59:46 -04:00
parent 82ca49321c
commit 34d82d9451
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

@ -224,7 +224,7 @@ isStopped brd = any cStopped . coords
freezeBlock :: Game -> Game
freezeBlock g = g & board %~ (M.union blkMap)
where blk = g ^. block
blkMap = M.fromList $ zip (blk ^. to coords) (repeat $ blk ^. shape)
blkMap = M.fromList $ [(c, blk ^. shape) | c <- blk ^. to coords]
-- | Replace block with next block
nextBlock :: Game -> IO Game