FdRc: use loggingExceptionSink

queezle42 · Jan 23, 2024 · e81a1ce · e81a1ce
1 parent 028e50c
commit e81a1ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/quasar-wayland/src/Quasar/Wayland/Utils/SharedFd.hs b/quasar-wayland/src/Quasar/Wayland/Utils/SharedFd.hs
@@ -76,7 +76,7 @@ newSharedFd :: Fd -> IO SharedFd
 newSharedFd fd = do
   rc <- newFdRc fd
   -- TODO
-  var <- newDisposableVarIO undefined (decRc closeFd (const (pure ()))) rc
+  var <- newDisposableVarIO loggingExceptionSink (decRc closeFd (const (pure ()))) rc
   pure (SharedFd var ("Fd@" <> show fd))
 
 -- | @withSharedFd fn sfd@ executes the computation @fn@, passing the underlying