From 06c91e4a2b0ea101cecc0eb3612cb39f65df2e0a Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Sun, 18 Jun 2017 17:05:53 -0400
Subject: [PATCH] Add hard drop in help and remove semicolons
---
src/UI/Game.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/UI/Game.hs b/src/UI/Game.hs
index 9d7c14f..f74255e 100644
--- a/src/UI/Game.hs
+++ b/src/UI/Game.hs
@@ -187,12 +187,13 @@ drawHelp = withBorderStyle BS.unicodeBold
, ("Right", "l, →")
, ("Down", "j, ↓")
, ("Rotate", "k, ↑")
+ , ("Drop", "space")
, ("Quit", "q")
]
drawKeyInfo :: String -> String -> Widget Name
drawKeyInfo action keys =
- (padRight Max $ padLeft (Pad 1) $ str (action ++ ":"))
+ (padRight Max $ padLeft (Pad 1) $ str action)
<+> (padLeft Max $ padRight (Pad 1) $ str keys)
drawGameOver :: Game -> Widget Name