diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-21 13:48:31 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-21 14:07:49 +0530 |
| commit | 217f38ad33811c88c63ff4c0be387e67fb0cd68a (patch) | |
| tree | afba4f4578aeaa1f296d6998b7bb32328e5dc2b4 /src/Chelleport/AppShell.hs | |
| parent | a2a8e8dd046678816c3797cb894b20abfe84e360 (diff) | |
| download | chelleport-217f38ad33811c88c63ff4c0be387e67fb0cd68a.tar.gz chelleport-217f38ad33811c88c63ff4c0be387e67fb0cd68a.zip | |
Add C-v to drag n drop within the grid
Diffstat (limited to 'src/Chelleport/AppShell.hs')
| -rw-r--r-- | src/Chelleport/AppShell.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |