diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-02-09 23:25:05 +0000 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-09 23:25:05 +0000 |
commit | 6e48bd38850f6326fe435ff87af3ca14e6707379 (patch) | |
tree | 6db157869c0df517e7b0629d0445bbf418f43a3b /src/Game/Entities.hs | |
parent | 84057b11507a1434a9f189bca2fdb71df294c572 (diff) | |
download | space-plat-hs-6e48bd38850f6326fe435ff87af3ca14e6707379.tar.gz space-plat-hs-6e48bd38850f6326fe435ff87af3ca14e6707379.zip |
Spawn objects
For now only the Player.
Diffstat (limited to 'src/Game/Entities.hs')
-rw-r--r-- | src/Game/Entities.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs index 96cc4fa..7d29e41 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -1,4 +1,4 @@ -module Game.Entities (Entities, mkEntities, mkPlayer, mkEffect, append, updateAll, render) where +module Game.Entities (Entities, Entity, mkEntities, mkPlayer, mkEffect, add, updateAll, render) where import Data.Foldable (traverse_) import Data.IORef @@ -59,8 +59,8 @@ data Entity = Entity mkEntities :: S.SpriteSheet -> Entities mkEntities sprites = Entities sprites [] -append :: Entity -> Entities -> Entities -append e (Entities sprites entities) = Entities sprites (entities ++ [e]) +add :: Entities -> [Entity] -> Entities +add (Entities sprites entities) es = Entities sprites (entities ++ es) processSpawn :: S.SpriteSheet -> Spawn -> IO Entity processSpawn sprites (DustEffectSpawn x y) = mkEffect sprites x y "dust" |