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-16 00:01:25 +01:00
parent 55f87143b4
commit 1cdeaa759b
No known key found for this signature in database
GPG key ID: 1D22C3A122D794F4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tetris.hs
View file

@ -205,7 +205,7 @@ clearFullRows = do
modifying board $ M.filterWithKey $ \(V2 _ y) _ -> y `notElem` fullRows modifying board $ M.filterWithKey $ \(V2 _ y) _ -> y `notElem` fullRows
-- Shift cells above full rows -- Shift cells above full rows
modifying board $ M.mapKeysMonotonic $ over _y $ \y -> modifying board $ M.mapKeysMonotonic $ over _y $ \y ->
y - (length $ filter (< y) fullRows) y - length (filter (< y) fullRows)
return $ length fullRows return $ length fullRows
-- | Empties row on 0, otherwise appends value (just keeps consecutive information) -- | Empties row on 0, otherwise appends value (just keeps consecutive information)