diff options
Diffstat (limited to 'src/Chelleport/AppShell.hs')
| -rw-r--r-- | src/Chelleport/AppShell.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Chelleport/AppShell.hs b/src/Chelleport/AppShell.hs index 382f61e..8f8a19d 100644 --- a/src/Chelleport/AppShell.hs +++ b/src/Chelleport/AppShell.hs @@ -24,6 +24,7 @@ instance (MonadIO m) => MonadAppShell (AppM m) where SDL.destroyRenderer $ ctxRenderer ctx SDL.destroyWindow $ ctxWindow ctx releaseMouseButton + SDL.quit liftIO $ do X11.closeDisplay $ ctxX11Display ctx exitSuccess |