diff options
Diffstat (limited to 'src/Xanthous/Entities.hs')
| -rw-r--r-- | src/Xanthous/Entities.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Xanthous/Entities.hs b/src/Xanthous/Entities.hs index e47e820f27ab..66a583f6b3fd 100644 --- a/src/Xanthous/Entities.hs +++ b/src/Xanthous/Entities.hs @@ -38,9 +38,11 @@ import Xanthous.Orphans () class (Show a, Eq a, Draw a) => Entity a where blocksVision :: a -> Bool + description :: a -> Text instance Entity a => Entity (Positioned a) where blocksVision (Positioned _ ent) = blocksVision ent + description (Positioned _ ent) = description ent -------------------------------------------------------------------------------- data SomeEntity where @@ -59,6 +61,7 @@ instance Draw SomeEntity where instance Entity SomeEntity where blocksVision (SomeEntity ent) = blocksVision ent + description (SomeEntity ent) = description ent downcastEntity :: (Entity a, Typeable a) => SomeEntity -> Maybe a downcastEntity (SomeEntity e) = cast e |