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

remove redundant $s in Game.hs

Browse source
This commit is contained in:
Willem Van Onsem 2021-03-16 00:06:22 +01:00
parent 55f87143b4
commit d162cffc8b
No known key found for this signature in database
GPG key ID: 1D22C3A122D794F4
1 changed files with 3 additions and 3 deletions
Show stats 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, ↑")