From 06f7db4001e4eee0f3076d949876f8f4af0eb6fb Mon Sep 17 00:00:00 2001
From: Teo Camarasu <teofilcamarasu@gmail.com>
Date: Sat, 4 May 2024 12:32:01 +0000
Subject: [PATCH] doc: Fix type error in hs_try_putmvar example
---
docs/users_guide/exts/ffi.rst | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/docs/users_guide/exts/ffi.rst b/docs/users_guide/exts/ffi.rst
index 2889fb141008..e3bf1a75727e 100644
--- a/docs/users_guide/exts/ffi.rst
+++ b/docs/users_guide/exts/ffi.rst
@@ -998,7 +998,7 @@ the data. We can do it like this:
sp <- newStablePtrPrimMVar mvar
fp <- mallocForeignPtr
withForeignPtr fp $ \presult -> do
- cap <- threadCapability =<< myThreadId
+ (cap, _) <- threadCapability =<< myThreadId
scheduleCallback sp cap presult
takeMVar mvar `onException`
forkIO (do takeMVar mvar; touchForeignPtr fp)
--
GitLab