diff options
| author | Griffin Smith <root@gws.fyi> | 2020-02-08T22·24-0500 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2020-02-08T22·24-0500 |
| commit | 25a1c5ade32ee0dca41b8057f053972e4ab816d7 (patch) | |
| tree | 31d252cb624ed7d6e97d542f6689234791896355 /src/Xanthous/Entities/Entities.hs | |
| parent | 782d3880c8da35b48276a874d396d24ca6dc7004 (diff) | |
Factor out an EntityAttributes type
Factor out a new EntityAttributes type from some of the methods of the Entity class, to avoid the proliferation of 1-argument boolean methods on the entity class that always have to be forwarded through the Entity instance for SomeEntity if they have defaults (forgetting to do which has wasted tons of my time up to this point). Currently blocksVision, blocksObject, and collision are all in there.
Diffstat (limited to 'src/Xanthous/Entities/Entities.hs')
| -rw-r--r-- | src/Xanthous/Entities/Entities.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Xanthous/Entities/Entities.hs b/src/Xanthous/Entities/Entities.hs index 710e577be866..55991fc28428 100644 --- a/src/Xanthous/Entities/Entities.hs +++ b/src/Xanthous/Entities/Entities.hs @@ -46,8 +46,7 @@ deriving via WithOptions '[ FieldLabelModifier '[Drop 1] ] GameState instance FromJSON GameState instance Entity SomeEntity where - blocksVision (SomeEntity ent) = blocksVision ent - blocksObject (SomeEntity ent) = blocksObject ent + entityAttributes (SomeEntity ent) = entityAttributes ent description (SomeEntity ent) = description ent entityChar (SomeEntity ent) = entityChar ent entityCollision (SomeEntity ent) = entityCollision ent |