From a0f5e5c317a1e9609370f1b073e424bca8933893 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Thu, 24 Aug 2023 19:33:29 +0100 Subject: Use dot notation --- src/Game/Entities.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs index 5e1af65..0f2f03e 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -58,10 +58,10 @@ mkEntities sprites m controls = do -- | Return the player's entity position (x, y). playerPosition :: Entities -> (Int, Int) -playerPosition (Entities _ _ entities) = +playerPosition es = (player.x, player.y) where - player = head entities + player = head es.entities addExit :: Entities -> Int -> Int -> IO Entities addExit es x y = do -- cgit v1.2.3