lerasimus/snake-hs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Monad transformers

Browse source
This commit is contained in:
Oleg Sobolev 2026-03-29 19:40:54 +03:00
parent befd198c93
commit b2b81b444c
3 changed files with 63 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -17,7 +17,7 @@ main = do
texture <- IMG.loadTexture renderer "assets/spritesheet.png"
appLoop renderer texture (initialState (20, 20) (2, 2))
appLoop renderer texture (initialState (10, 10) (2, 2))
destroyTexture texture
destroyRenderer renderer
@ -49,7 +49,7 @@ appLoop renderer texture game = do
input = foldMap eventDirectionPressed events
frameEnd <- getTicks
let elapsed = frameEnd - frameStart
let updatedGame = execTick game input
(_, updatedGame) <- runTick game input
renderFrame renderer texture updatedGame
unless exitPressed $ do