diff --git a/src/Affection/MessageBus/Message/KeyboardMessage.hs b/src/Affection/MessageBus/Message/KeyboardMessage.hs index 5ef859a..6b90b0f 100644 --- a/src/Affection/MessageBus/Message/KeyboardMessage.hs +++ b/src/Affection/MessageBus/Message/KeyboardMessage.hs @@ -8,7 +8,7 @@ data KeyboardMessage = MsgKeyboardEvent { msgKbdWhen :: Double , msgKbdWindow :: Maybe SDL.Window , msgKbdKeyMotion :: SDL.InputMotion - , msgKbdLeyRepeat :: Bool + , msgKbdKeyRepeat :: Bool , msgKbdKeysym :: SDL.Keysym } deriving (Show)