diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-08-24 19:33:29 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-08-24 19:33:29 +0100 |
| commit | a0f5e5c317a1e9609370f1b073e424bca8933893 (patch) | |
| tree | 5db120b05b28e2d6a6ea0e0ae26db12e9d908e45 | |
| parent | 44aafa287f12f459b0b3d346ce6a13754e7636e2 (diff) | |
| download | space-plat-hs-a0f5e5c317a1e9609370f1b073e424bca8933893.tar.gz space-plat-hs-a0f5e5c317a1e9609370f1b073e424bca8933893.zip | |
Use dot notation
| -rw-r--r-- | src/Game/Entities.hs | 4 |
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 |