From a2a8e8dd046678816c3797cb894b20abfe84e360 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 21 Dec 2024 13:19:48 +0530
Subject: Fix issue with pointer coordinates + Add mouse press/release actions

---
 src/Chelleport/AppShell.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Chelleport/AppShell.hs')

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
-- 
cgit v1.3.1