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

remove redundant $ in Game.hs

Browse source
This commit is contained in:
Willem Van Onsem 2021-03-16 00:03:06 +01:00
parent 1cdeaa759b
commit 76f9007dc2
No known key found for this signature in database
GPG key ID: 1D22C3A122D794F4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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 =