diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-12-03 02:18:25 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-12-03 02:18:25 -0700 |
| commit | ecf90db5ffada1890e759c5a7e91c13ec15a02bd (patch) | |
| tree | bb102d9d8aeeecdb6d36b63a5b5ec0623d2d8f4d /Graphics/SDL/SDLHelp.hs | |
| parent | d7fb5d4551a93b4756db62f494b761c0cef2fda7 (diff) | |
| parent | a60702dd882768e7f5b7fcadd39253ac8de9114f (diff) | |
| download | terralloc-ecf90db5ffada1890e759c5a7e91c13ec15a02bd.tar.gz terralloc-ecf90db5ffada1890e759c5a7e91c13ec15a02bd.tar.bz2 terralloc-ecf90db5ffada1890e759c5a7e91c13ec15a02bd.zip | |
Merge remote-tracking branch 'origin/snow'
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 |