From 76f9007dc27503fe4d506e3be50c95fd682dcb6a Mon Sep 17 00:00:00 2001 From: Willem Van Onsem Date: Tue, 16 Mar 2021 00:03:06 +0100 Subject: [PATCH] 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 =