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
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
-- Shift cells above full rows
modifying board $ M.mapKeysMonotonic $ over _y $ \y ->
y - (length $ filter (< y) fullRows)
y - length (filter (< y) fullRows)
return $ length fullRows
-- | 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 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 _ = emptyWidget
@ -270,8 +270,8 @@ drawHelp =
drawKeyInfo :: String -> String -> Widget Name
drawKeyInfo action keys =
(padRight Max $ padLeft (Pad 1) $ str action)
<+> (padLeft Max $ padRight (Pad 1) $ str keys)
padRight Max (padLeft (Pad 1) $ str action)
<+> padLeft Max (padRight (Pad 1) $ str keys)
drawGameOver :: Game -> Widget Name
drawGameOver g =