diff options
Diffstat (limited to '')
| -rw-r--r-- | src/Chelleport/AppShell.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Chelleport/AppShell.hs b/src/Chelleport/AppShell.hs index 28007f7..b31c964 100644 --- a/src/Chelleport/AppShell.hs +++ b/src/Chelleport/AppShell.hs @@ -1,5 +1,6 @@ module Chelleport.AppShell (setupAppShell, MonadAppShell (..)) where +import Chelleport.Control (MonadControl (mouseButtonUp)) import Chelleport.Draw (colorBackground) import Chelleport.Types import Control.Monad (foldM) @@ -22,6 +23,7 @@ instance (MonadIO m) => MonadAppShell (AppM m) where ctx <- ask SDL.destroyRenderer $ ctxRenderer ctx SDL.destroyWindow $ ctxWindow ctx + mouseButtonUp liftIO $ do X11.closeDisplay $ ctxX11Display ctx exitSuccess |