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 -- Prehandle SDL events in case any window events occur
preHandleEvents :: [SDL.Event] -> Affection us [SDL.Event] preHandleEvents :: [SDL.Event] -> Affection us [SDL.Event]
preHandleEvents evs = preHandleEvents evs =
mapM handle evs -- mapM handle evs
where -- where
handle e = -- handle e =
case SDL.eventPayload e of -- case SDL.eventPayload e of
SDL.WindowMovedEvent _ -> do -- SDL.WindowMovedEvent _ -> do
liftIO $ traceIO "I was moved" -- liftIO $ traceIO "I was moved"
return e -- return e
_ -> -- _ ->
return e -- return e
return evs
-- | Return the userstate to the user -- | Return the userstate to the user
getAffection :: Affection us us getAffection :: Affection us us