Move getBuffer to server module

src/Quasar/Wayland/Server/Surface.hs

 module Quasar.Wayland.Server.Surface (
   initializeServerSurface,
   initializeWlBuffer,
+  getBuffer,
 ) where
 
+import Control.Monad.Catch
 import Quasar.Prelude
 import Quasar.Wayland.Protocol
 import Quasar.Wayland.Protocol.Generated
@@ -104,3 +106,10 @@ initializeWlBuffer wlBuffer buffer = do
     -- TODO propagate buffer destruction
     destroy = destroyBuffer buffer
   }
+
+getBuffer :: forall b. BufferBackend b => Object 'Server Interface_wl_buffer -> STM (Buffer b)
+getBuffer wlBuffer = do
+  ifd <- getInterfaceData @(Buffer b) wlBuffer
+  case ifd of
+    Just buffer -> pure buffer
+    Nothing -> throwM $ InternalError ("Missing interface data on " <> show wlBuffer)

src/Quasar/Wayland/Surface.hs

@@ -5,7 +5,6 @@ module Quasar.Wayland.Surface (
   newBuffer,
   lockBuffer,
   destroyBuffer,
-  getBuffer,
 
   -- * Surface
   Damage(..),
@@ -76,14 +75,6 @@ tryFinalizeBuffer buffer = do
     releaseBufferStorage @b buffer.content
 
 
-getBuffer :: forall b. BufferBackend b => Object 'Server Interface_wl_buffer -> STM (Buffer b)
-getBuffer wlBuffer = do
-  ifd <- getInterfaceData @(Buffer b) wlBuffer
-  case ifd of
-    Just buffer -> pure buffer
-    Nothing -> throwM $ InternalError ("Missing interface data on " <> show wlBuffer)
-
-
 class SurfaceRole a where
   surfaceRoleName :: a -> String