affection/src/Affection/MessageBus/Message/KeyboardMessage.hs

module Affection.MessageBus.Message.KeyboardMessage where

import Affection.MessageBus.Message.Class

import qualified SDL

data KeyboardMessage = MsgKeyboardEvent
  { msgKbdWhen :: Double
  , msgKbdWindow :: Maybe SDL.Window
  , msgKbdKeyMotion :: SDL.InputMotion
  , msgKbdKeyRepeat :: Bool
  , msgKbdKeysym :: SDL.Keysym
  } deriving (Show)

instance Message KeyboardMessage where
  msgTime (MsgKeyboardEvent t _ _ _ _) = t