aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2023-08-24 19:33:29 +0100
committerJuan J. Martinez <jjm@usebox.net>2023-08-24 19:33:29 +0100
commita0f5e5c317a1e9609370f1b073e424bca8933893 (patch)
tree5db120b05b28e2d6a6ea0e0ae26db12e9d908e45 /src
parent44aafa287f12f459b0b3d346ce6a13754e7636e2 (diff)
downloadspace-plat-hs-a0f5e5c317a1e9609370f1b073e424bca8933893.tar.gz
space-plat-hs-a0f5e5c317a1e9609370f1b073e424bca8933893.zip
Use dot notation
Diffstat (limited to 'src')
-rw-r--r--src/Game/Entities.hs4
1 files 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