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

Merge pull request #15 from hapytex/improvement/redundant-dollar-2

Browse source 
remove redundant $s in Game.hs
This commit is contained in:
Sam Tay 2021-03-16 09:38:29 -04:00 • committed by GitHub
commit 361eb0a221
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/UI/Game.hs
View file

@ -231,8 +231,8 @@ drawInfo :: Game -> Widget Name
drawInfo g = hLimit 18 -- size of next piece box drawInfo g = hLimit 18 -- size of next piece box
$ vBox $ vBox
[ drawNextShape (g ^. nextShape) [ drawNextShape (g ^. nextShape)
, padTop (Pad 1) $ drawHelp , padTop (Pad 1) drawHelp
, padTop (Pad 1) $ drawGameOver g , padTop (Pad 1) (drawGameOver g)
] ]
drawNextShape :: Tetrimino -> Widget Name drawNextShape :: Tetrimino -> Widget Name
@ -258,7 +258,7 @@ drawHelp =
$ padTopBottom 1 $ padTopBottom 1
$ vBox $ vBox
$ map (uncurry drawKeyInfo) $ map (uncurry drawKeyInfo)
$ [ ("Left" , "h, ←") [ ("Left" , "h, ←")
, ("Right" , "l, →") , ("Right" , "l, →")
, ("Down" , "j, ↓") , ("Down" , "j, ↓")
, ("Rotate" , "k, ↑") , ("Rotate" , "k, ↑")