use ?self to address pointer ownership warnings

cabal.project

@@ -24,6 +24,17 @@ package hmatrix
 --  location: https://github.com/haskell/mtl
 --  tag: c8af65eb8437aebefd7f3ff1664316a0240f2157
 
+source-repository-package
+  type: git
+  location: https://github.com/haskell-gi/haskell-gi
+  tag: fad0097a80b942137b7c423f6d9698fff4abeb28
+
+source-repository-package
+  type: git
+  location: https://github.com/haskell-gi/haskell-gi
+  tag: fad0097a80b942137b7c423f6d9698fff4abeb28
+  subdir: base
+
 -- GHC 9.0 compatibility for 'generics-lens' version 1.2
 source-repository-package
   type: git

src/app/MetaBrush/Action.hs

@@ -67,9 +67,6 @@ import qualified GI.Gdk as GDK
 -- gi-gio
 import qualified GI.Gio as GIO
 
--- gi-gobject
-import qualified GI.GObject as GObject
-
 -- gi-gtk
 import qualified GI.Gtk as GTK
 
@@ -1140,7 +1137,7 @@ instance HandleAction KeyboardPress where
           -> do
             ----------------------------------------------------------
             -- With the pen tool, pressing control moves
-            -- the partial point control point to the mouse position.
+            -- the partial path control point to the mouse position.
             tool <- STM.readTVarIO toolTVar
             mbMousePos <- STM.readTVarIO mousePosTVar
             mbPartialPath <- STM.readTVarIO partialPathTVar

src/app/MetaBrush/Asset/Colours.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE BlockArguments     #-}
 {-# LANGUAGE DeriveTraversable  #-}
 {-# LANGUAGE DerivingStrategies #-}
+{-# LANGUAGE MonoLocalBinds     #-}
 {-# LANGUAGE NamedFieldPuns     #-}
 {-# LANGUAGE OverloadedStrings  #-}
 

src/app/MetaBrush/Event.hs

@@ -1,5 +1,6 @@
 {-# LANGUAGE BlockArguments     #-}
 {-# LANGUAGE DerivingStrategies #-}
+{-# LANGUAGE ImplicitParams     #-}
 {-# LANGUAGE RecordWildCards    #-}
 {-# LANGUAGE TypeApplications   #-}
 
@@ -70,9 +71,9 @@ handleEvents elts@( UIElements { viewport = Viewport {..}, .. } ) vars = do
         void $ GTK.afterEventControllerScrollScroll  viewportScrollController
           ( handleScrollEvent        elts vars )
         void $ GTK.afterGestureClickPressed          viewportClicksController
-          ( handleMouseButtonEvent   elts vars eventOrigin viewportClicksController )
+          ( handleMouseButtonEvent   elts vars eventOrigin ?self )
         void $ GTK.afterGestureClickReleased         viewportClicksController
-          ( handleMouseButtonRelease elts vars eventOrigin viewportClicksController )
+          ( handleMouseButtonRelease elts vars eventOrigin ?self )
 
 --------------------------------------------------------------------------------
 -- Mouse events.

src/app/MetaBrush/UI/InfoBar.hs-boot

@@ -6,8 +6,6 @@ module MetaBrush.UI.InfoBar
 import qualified GI.Gtk as GTK
 
 -- MetaBrush
-import MetaBrush.Asset.Colours
-  ( Colours )
 import {-# SOURCE #-} MetaBrush.Context
   ( Variables )
 import MetaBrush.Document