aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add hard drop in help and remove semicolons

Browse source
This commit is contained in:
Sam Tay 2017-06-18 17:05:53 -04:00
parent 94bc6c444b
commit 06c91e4a2b
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/UI/Game.hs
View file

@ -187,12 +187,13 @@ drawHelp = withBorderStyle BS.unicodeBold
, ("Right", "l, →") , ("Right", "l, →")
, ("Down", "j, ↓") , ("Down", "j, ↓")
, ("Rotate", "k, ↑") , ("Rotate", "k, ↑")
, ("Drop", "space")
, ("Quit", "q") , ("Quit", "q")
] ]
drawKeyInfo :: String -> String -> Widget Name drawKeyInfo :: String -> String -> Widget Name
drawKeyInfo action keys = drawKeyInfo action keys =
(padRight Max $ padLeft (Pad 1) $ str (action ++ ":")) (padRight Max $ padLeft (Pad 1) $ str action)
<+> (padLeft Max $ padRight (Pad 1) $ str keys) <+> (padLeft Max $ padRight (Pad 1) $ str keys)
drawGameOver :: Game -> Widget Name drawGameOver :: Game -> Widget Name