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/Graphics.hs
View file

@ -24,9 +24,9 @@ renderTile :: Renderer -> Texture -> (Pos, Tile) -> IO ()
renderTile renderer texture (pos, tile) = case tile of
Empty -> return ()
Apple -> renderSpriteAt renderer texture APPLE pos
Snake orientation -> renderSpriteAt renderer texture (snakeSprite orientation) pos
SnakeSegment orientation -> renderSpriteAt renderer texture (snakeSprite orientation) pos
snakeSprite :: SnakeOrientation -> Sprite
snakeSprite :: SnakeSegmentOrientation -> Sprite
snakeSprite HEAD_DOWN = SNAKE_HEAD_DOWN
snakeSprite HEAD_LEFT = SNAKE_HEAD_LEFT
snakeSprite HEAD_UP = SNAKE_HEAD_UP