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.
This commit is contained in:
nek0 2017-02-25 17:24:21 +01:00
parent 767643a1af
commit 7a953b0a8b

View file

@ -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