diff --git a/src/Affection/MessageBus/Message/WindowMessage.hs b/src/Affection/MessageBus/Message/WindowMessage.hs index 95b9795..b9e3727 100644 --- a/src/Affection/MessageBus/Message/WindowMessage.hs +++ b/src/Affection/MessageBus/Message/WindowMessage.hs @@ -10,7 +10,7 @@ import qualified SDL import Linear (V2(..)) -data SystemMessage +data WindowMessage = MsgEngineReady Word32 | MsgWindowShown { msgWSWhen :: Word32 @@ -71,7 +71,7 @@ data SystemMessage , msgWCWindow :: SDL.Window } -instance Message SystemMessage where +instance Message WindowMessage where msgTime (MsgEngineReady t) = t msgTime (MsgWindowShown t _) = t msgTime (MsgWindowHidden t _) = t