From 217f38ad33811c88c63ff4c0be387e67fb0cd68a Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 21 Dec 2024 13:48:31 +0530
Subject: Add C-v to drag n drop within the grid

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

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

diff --git a/src/Chelleport/AppShell.hs b/src/Chelleport/AppShell.hs
index b31c964..382f61e 100644
--- a/src/Chelleport/AppShell.hs
+++ b/src/Chelleport/AppShell.hs
@@ -1,6 +1,6 @@
 module Chelleport.AppShell (setupAppShell, MonadAppShell (..)) where
 
-import Chelleport.Control (MonadControl (mouseButtonUp))
+import Chelleport.Control (MonadControl (releaseMouseButton))
 import Chelleport.Draw (colorBackground)
 import Chelleport.Types
 import Control.Monad (foldM)
@@ -23,7 +23,7 @@ instance (MonadIO m) => MonadAppShell (AppM m) where
     ctx <- ask
     SDL.destroyRenderer $ ctxRenderer ctx
     SDL.destroyWindow $ ctxWindow ctx
-    mouseButtonUp
+    releaseMouseButton
     liftIO $ do
       X11.closeDisplay $ ctxX11Display ctx
       exitSuccess
-- 
cgit v1.3.1