diff --git a/src/Tetris.hs b/src/Tetris.hs
index 641f9b7..5d91afe 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)
diff --git a/src/UI/Game.hs b/src/UI/Game.hs
index 315c9bf..f4614dc 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 =