From e81a1ce7f5d4b268a97dfbcc3975edd62392a3b9 Mon Sep 17 00:00:00 2001 From: Jens Nolte Date: Tue, 23 Jan 2024 02:17:59 +0100 Subject: [PATCH] FdRc: use loggingExceptionSink --- quasar-wayland/src/Quasar/Wayland/Utils/SharedFd.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/quasar-wayland/src/Quasar/Wayland/Utils/SharedFd.hs b/quasar-wayland/src/Quasar/Wayland/Utils/SharedFd.hs index 8bfb8a6..ea6fcea 100644 --- 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