nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

rename message type

Browse source
This commit is contained in:
nek0 2017-12-06 06:36:25 +01:00
parent df2f59c6b9
commit d6f80ed1f0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Affection/MessageBus/Message/WindowMessage.hs
View file

@ -10,7 +10,7 @@ import qualified SDL
import Linear (V2(..)) import Linear (V2(..))
data SystemMessage data WindowMessage
= MsgEngineReady Word32 = MsgEngineReady Word32
| MsgWindowShown | MsgWindowShown
{ msgWSWhen :: Word32 { msgWSWhen :: Word32
@ -71,7 +71,7 @@ data SystemMessage
, msgWCWindow :: SDL.Window , msgWCWindow :: SDL.Window
} }
instance Message SystemMessage where instance Message WindowMessage where
msgTime (MsgEngineReady t) = t msgTime (MsgEngineReady t) = t
msgTime (MsgWindowShown t _) = t msgTime (MsgWindowShown t _) = t
msgTime (MsgWindowHidden t _) = t msgTime (MsgWindowHidden t _) = t