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

remove redundant brackets in Game.hs

Browse source
This commit is contained in:
Willem Van Onsem 2021-03-15 23:45:26 +01:00
parent f57fa64bfb
commit 9f971cb159
No known key found for this signature in database
GPG key ID: 1D22C3A122D794F4
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

@ -163,7 +163,7 @@ drawGrid ui =
$ mconcat $ mconcat
[ drawBlockCell NormalBlock <$> ui ^. game ^. board [ drawBlockCell NormalBlock <$> ui ^. game ^. board
, blockMap NormalBlock (ui ^. game ^. block) , blockMap NormalBlock (ui ^. game ^. block)
, case (ui ^. preview) of , case ui ^. preview of
Nothing -> M.empty Nothing -> M.empty
Just s -> blockMap (HardDropBlock s) (evalTetris hardDroppedBlock (ui ^. game)) Just s -> blockMap (HardDropBlock s) (evalTetris hardDroppedBlock (ui ^. game))
, emptyCellMap , emptyCellMap
@ -174,7 +174,7 @@ drawGrid ui =
emptyCellMap :: Map Coord (Widget Name) emptyCellMap :: Map Coord (Widget Name)
emptyCellMap = M.fromList emptyCellMap = M.fromList
[ ((V2 x y), emptyGridCellW) | x <- [1 .. boardWidth], y <- [1 .. boardHeight] ] [ (V2 x y, emptyGridCellW) | x <- [1 .. boardWidth], y <- [1 .. boardHeight] ]
emptyGridCellW :: Widget Name emptyGridCellW :: Widget Name
emptyGridCellW = withAttr emptyAttr cw emptyGridCellW = withAttr emptyAttr cw
@ -275,7 +275,7 @@ drawKeyInfo action keys =
drawGameOver :: Game -> Widget Name drawGameOver :: Game -> Widget Name
drawGameOver g = drawGameOver g =
if (isGameOver g) if isGameOver g
then padLeftRight 4 $ withAttr gameOverAttr $ str "GAME OVER" then padLeftRight 4 $ withAttr gameOverAttr $ str "GAME OVER"
else emptyWidget else emptyWidget