From a27e2dbbb4eb0ef50a490e3ef68a0ae30f56230b Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Fri, 19 Aug 2022 11:34:27 +0200
Subject: [PATCH] fix a leak of stable pointers

---
 src/runtime/haskell/PGF2.hsc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/runtime/haskell/PGF2.hsc b/src/runtime/haskell/PGF2.hsc
index 3a776e8e8..b8098637d 100644
--- a/src/runtime/haskell/PGF2.hsc
+++ b/src/runtime/haskell/PGF2.hsc
@@ -414,7 +414,9 @@ inferExpr p e =
       (#const PGF_EXN_NONE) -> do
          c_e <- peek p_e
          e  <- deRefStablePtr c_e
+         freeStablePtr c_e
          ty <- deRefStablePtr c_ty
+         freeStablePtr c_ty
          return (Right (e,ty))
       (#const PGF_EXN_SYSTEM_ERROR) -> do
          errno <- (#peek PgfExn, code) c_exn