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

remove redundant .^ in Game.hs

Browse source
This commit is contained in:
Willem Van Onsem 2021-03-15 23:49:15 +01:00
parent 70270dbbce
commit ffd621f36a
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

@ -134,7 +134,7 @@ handleTick ui =
-- | Restart game at the same level -- | Restart game at the same level
restart :: UI -> EventM Name (Next UI) restart :: UI -> EventM Name (Next UI)
restart ui = do restart ui = do
let lvl = ui ^. game ^. level let lvl = ui ^. (game . level)
g <- liftIO $ initGame lvl g <- liftIO $ initGame lvl
continue $ ui & game .~ g continue $ ui & game .~ g
& locked .~ False & locked .~ False
@ -161,8 +161,8 @@ drawGrid ui =
foldr (<+>) emptyWidget foldr (<+>) emptyWidget
. M.filterWithKey (\(V2 _ y) _ -> r == y) . M.filterWithKey (\(V2 _ y) _ -> r == y)
$ 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))