diff options
Diffstat (limited to 'Graphics/SDL/SDLHelp.hs')
| -rw-r--r-- | Graphics/SDL/SDLHelp.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/Graphics/SDL/SDLHelp.hs b/Graphics/SDL/SDLHelp.hs index 9c65c83..72159d1 100644 --- a/Graphics/SDL/SDLHelp.hs +++ b/Graphics/SDL/SDLHelp.hs @@ -138,7 +138,6 @@ defaultReshape w h ret = do startPipeline :: forall a. (Int -> Int -> a -> IO a) -> (SDL.EventPayload -> a -> IO a) -> (a -> IO a) -> (a -> IO a) -> a -> IO () startPipeline reshapeH eventH displayH updateH ini = do - let pumpEvents' res = do evs <- SDL.pollEvents foldM (\res (SDL.eventPayload -> ev) -> case ev of |