From d6f80ed1f01d32b70647669681f7d6c17879b65c Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 6 Dec 2017 06:36:25 +0100 Subject: [PATCH] rename message type --- src/Affection/MessageBus/Message/WindowMessage.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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