From 13f4af49109058986e744dc2173afad9ff0868f0 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 19 Dec 2014 10:14:41 +0000 Subject: bugfix and tiny optimization for callbacks from Haskell --- src/runtime/haskell-bind/PGF2/FFI.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/runtime/haskell-bind/PGF2') diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 8ddc536b9..b96c93e17 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -72,9 +72,6 @@ foreign import ccall "gu/enum.h gu_enum_next" foreign import ccall "gu/string.h gu_string_buf_freeze" gu_string_buf_freeze :: Ptr GuStringBuf -> Ptr GuPool -> IO CString -foreign import ccall "gu/utf8.h gu_utf8_decode" - gu_utf8_decode :: Ptr (Ptr CChar) -> IO () - withGuPool :: (Ptr GuPool -> IO a) -> IO a withGuPool f = bracket gu_new_pool gu_pool_free f -- cgit v1.2.3