adding mouseButtonEventMotion

src/Affection/MessageBus/Message/MouseMessage.hs

@@ -21,6 +21,7 @@ data MouseMessage
   | MsgMouseButton
     { msgMBWhen :: Double
     , msgMBWindow :: Maybe SDL.Window
+    , msgMBMotion :: SDL.InputMotion
     , msgMBWhich :: SDL.MouseDevice
     , msgMBButton :: SDL.MouseButton
     , msgMBClicks :: Word8
@@ -37,5 +38,5 @@ data MouseMessage
 
 instance Message MouseMessage where
   msgTime (MsgMouseMotion t _ _ _ _ _) = t
-  msgTime (MsgMouseButton t _ _ _ _ _) = t
+  msgTime (MsgMouseButton t _ _ _ _ _ _) = t
   msgTime (MsgMouseWheel t _ _ _ _) = t

src/Affection/Subsystems/AffectionMouse.hs

@@ -46,6 +46,7 @@ consumeSDLMouseEvents am = doConsume
           partEmit am (MsgMouseButton
             ts
             (SDL.mouseButtonEventWindow dat)
+            (SDL.mouseButtonEventMotion dat)
             (SDL.mouseButtonEventWhich dat)
             (SDL.mouseButtonEventButton dat)
             (SDL.mouseButtonEventClicks dat)