rename message type

This commit is contained in:
nek0 2017-12-06 06:36:25 +01:00
parent df2f59c6b9
commit d6f80ed1f0

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