diff options
Diffstat (limited to 'Resources.hs')
| -rw-r--r-- | Resources.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Resources.hs b/Resources.hs index 79681ca..45a5416 100644 --- a/Resources.hs +++ b/Resources.hs @@ -142,7 +142,12 @@ eventHandle event res = do ret <- reshape 1920 1080 res SDL.toggleFullscreen $ rSurface ret SDL.showCursor False + SDL.grabInput True return ret + KeyUp (Keysym SDLK_g _ _) -> do + SDL.showCursor False + SDL.grabInput True + return res _ -> return res displayHandle :: Resources -> IO Resources |