From 07bda06fb2962dd6a94f0c076b373e470d620110 Mon Sep 17 00:00:00 2001 From: krangelov Date: Sat, 14 Aug 2021 21:16:20 +0200 Subject: [PATCH] missed a line --- src/runtime/haskell/PGF2/FFI.hsc | 1 - 1 file changed, 1 deletion(-) diff --git a/src/runtime/haskell/PGF2/FFI.hsc b/src/runtime/haskell/PGF2/FFI.hsc index 55c445764..dadbe271d 100644 --- a/src/runtime/haskell/PGF2/FFI.hsc +++ b/src/runtime/haskell/PGF2/FFI.hsc @@ -265,7 +265,6 @@ mkMarshaller = do wrapMatchFun matchLit >>= (#poke PgfMarshallerVtbl, match_lit) vtbl wrapMatchFun matchExpr >>= (#poke PgfMarshallerVtbl, match_expr) vtbl wrapMatchFun matchType >>= (#poke PgfMarshallerVtbl, match_type) vtbl - (#poke PgfMarshallerVtbl, free_ref) vtbl hs_free_reference (#poke PgfMarshallerVtbl, free_me) vtbl hs_free_marshaller ptr <- mallocBytes (#size PgfMarshaller) (#poke PgfMarshaller, vtbl) ptr vtbl