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

Merge pull request #14 from hapytex/improvement/redundant-dollar

Browse source 
Remove redundant $ by repositioning parenthesis
This commit is contained in:
Sam Tay 2021-03-16 09:38:05 -04:00 • committed by GitHub
commit 1ddcd856a3
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 4 deletions
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)

6
src/UI/Game.hs
View file

@ -222,7 +222,7 @@ drawStats g =
] ]
drawStat :: String -> Int -> Widget Name drawStat :: String -> Int -> Widget Name
drawStat s n = padLeftRight 1 $ str s <+> (padLeft Max $ str $ show n) drawStat s n = padLeftRight 1 $ str s <+> padLeft Max (str $ show n)
drawLeaderBoard :: Game -> Widget Name drawLeaderBoard :: Game -> Widget Name
drawLeaderBoard _ = emptyWidget drawLeaderBoard _ = emptyWidget
@ -270,8 +270,8 @@ drawHelp =
drawKeyInfo :: String -> String -> Widget Name drawKeyInfo :: String -> String -> Widget Name
drawKeyInfo action keys = drawKeyInfo action keys =
(padRight Max $ padLeft (Pad 1) $ str action) padRight Max (padLeft (Pad 1) $ str action)
<+> (padLeft Max $ padRight (Pad 1) $ str keys) <+> padLeft Max (padRight (Pad 1) $ str keys)
drawGameOver :: Game -> Widget Name drawGameOver :: Game -> Widget Name
drawGameOver g = drawGameOver g =