From d162cffc8be1b08c82120d3267f94f99b2fc221b Mon Sep 17 00:00:00 2001
From: Willem Van Onsem <vanonsem.willem@gmail.com>
Date: Tue, 16 Mar 2021 00:06:22 +0100
Subject: [PATCH] remove redundant $s 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..d223e01 100644
--- a/src/UI/Game.hs
+++ b/src/UI/Game.hs
@@ -231,8 +231,8 @@ drawInfo :: Game -> Widget Name
 drawInfo g = hLimit 18 -- size of next piece box
   $ vBox
     [ drawNextShape (g ^. nextShape)
-    , padTop (Pad 1) $ drawHelp
-    , padTop (Pad 1) $ drawGameOver g
+    , padTop (Pad 1) drawHelp
+    , padTop (Pad 1) (drawGameOver g)
     ]
 
 drawNextShape :: Tetrimino -> Widget Name
@@ -258,7 +258,7 @@ drawHelp =
     $ padTopBottom 1
     $ vBox
     $ map (uncurry drawKeyInfo)
-    $ [ ("Left"   , "h, ←")
+      [ ("Left"   , "h, ←")
       , ("Right"  , "l, →")
       , ("Down"   , "j, ↓")
       , ("Rotate" , "k, ↑")