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(..))
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