mischief-ecs-0.1.0.0: src/Mischief/ECS/EventDef.hs

module Mischief.ECS.EventDef where

import Data.Data

-- | @Event@ typeclass.
class (Typeable e) => Event e where
  eraseEvent :: e -> ErasedEvent
  eraseEvent = ErasedEvent

data ErasedEvent where
  ErasedEvent :: (Typeable e) => e -> ErasedEvent