From 1cdeaa759b838c07e9ca9e577e271edec8dd0cfa Mon Sep 17 00:00:00 2001
From: Willem Van Onsem <vanonsem.willem@gmail.com>
Date: Tue, 16 Mar 2021 00:01:25 +0100
Subject: [PATCH 1/2] remove redundant $ in Tetris.hs
---
src/Tetris.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Tetris.hs b/src/Tetris.hs
index 61fed94..37743d1 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -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)
From 76f9007dc27503fe4d506e3be50c95fd682dcb6a Mon Sep 17 00:00:00 2001
From: Willem Van Onsem <vanonsem.willem@gmail.com>
Date: Tue, 16 Mar 2021 00:03:06 +0100
Subject: [PATCH 2/2] remove redundant $ in Game.hs
---
src/UI/Game.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/UI/Game.hs b/src/UI/Game.hs
index e62e55e..1859fbb 100644
--- a/src/UI/Game.hs
+++ b/src/UI/Game.hs
@@ -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 =