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

Bump to lts-22.19 and brick-2.1.1

Browse source
This commit is contained in:
Sam Tay 2024-05-06 12:33:41 -04:00
parent 3fd342c69f
commit bcd6b38978
No known key found for this signature in database
4 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/UI/Game.hs
View file

@ -19,6 +19,8 @@ import qualified Brick.Widgets.Border.Style as BS
import qualified Brick.Widgets.Center as C
import Control.Lens hiding (preview, op, zoom)
import qualified Graphics.Vty as V
import qualified Graphics.Vty.CrossPlatform
import qualified Graphics.Vty.Config
import Data.Map (Map)
import qualified Data.Map as M
import Linear.V2 (V2(..))
@ -66,9 +68,9 @@ playGame lvl mp = do
writeBChan chan Tick
threadDelay delay
initialGame <- initGame lvl
let builder = V.mkVty V.defaultConfig
initialVty <- builder
ui <- customMain initialVty builder (Just chan) app $ UI
let buildVty = Graphics.Vty.CrossPlatform.mkVty Graphics.Vty.Config.defaultConfig
initialVty <- buildVty
ui <- customMain initialVty buildVty (Just chan) app $ UI
{ _game = initialGame
, _preview = mp
, _locked = False