not needed for now

Since I switched to texture drawing I don't need to pre-handle
WindowMoved events, but who knows, what I might need to pre-handle in
the future.

src/Affection.hs

@@ -154,15 +154,16 @@ getSurfaces window = do
 -- Prehandle SDL events in case any window events occur
 preHandleEvents :: [SDL.Event] -> Affection us [SDL.Event]
 preHandleEvents evs =
-  mapM handle evs
-  where
-    handle e =
-      case SDL.eventPayload e of
-        SDL.WindowMovedEvent _ -> do
-          liftIO $ traceIO "I was moved"
-          return e
-        _ ->
-          return e
+  -- mapM handle evs
+  -- where
+  --   handle e =
+  --     case SDL.eventPayload e of
+  --       SDL.WindowMovedEvent _ -> do
+  --         liftIO $ traceIO "I was moved"
+  --         return e
+  --       _ ->
+  --         return e
+  return evs
 
 -- | Return the userstate to the user
 getAffection :: Affection us us