Cannot create entity with more than 3 components about slime HOT 6 CLOSED

{-| Add Additional component to spawn Entity.
-}
spawnEntityWith : ( ComponentSpec a (EntitySet world), a ) -> ( EntitySet world, EntityID, EntityID ) -> ( EntitySet world, EntityID, EntityID )
spawnEntityWith ( { getter, setter }, a ) ( updatedSet, id, uid ) =
    let
        updatedComponents =
            getter updatedSet
                |> setComponent id a
    in
    ( setter updatedComponents updatedSet, id, uid )

spawnPlayer : Component.Position -> Component.Dimension -> World -> World
spawnPlayer position dimension world =
    let
        ( newEntity, id, uid ) =
            Slime.spawnEntity World.positions world { a = position }
                |> Slime.spawnEntityWith ( World.velocities, { vx = 0, vy = 0 } )
                |> Slime.spawnEntityWith ( World.dimensions, dimension )
                |> Slime.spawnEntityWith ( World.controls, { x = 0, y = 0 } )
    in
    newEntity

spawnPlayer : Component.Position -> Component.Dimension -> World -> World
spawnPlayer position dimension world =
    let
        ( entityId, updatedWorld ) =
            Slime.forNewEntity world
                &=> ( World.positions, position )
                &=> ( World.velocities, { vx = 0, vy = 0 } )
                &=> ( World.dimensions, dimension )
                &=> ( World.controls, { x = 0, y = 0 } )
    in
        updatedWorld

control : Time -> World -> World
control delta =
    Slime.stepEntities (Slime.entities2 World.controls World.velocities)(\({ a, b } as ent2) -> ent2)

    Slime.stepEntities (Slime.forEntity world &=> World.controls &=> World.velocities)(\({x, y}, {vx, vy}) as ent2 -> ent2)