diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-12-19 10:14:41 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-12-19 10:14:41 +0000 |
| commit | 13f4af49109058986e744dc2173afad9ff0868f0 (patch) | |
| tree | 8f1ee9bcec512cf409d1734335eba09227ce239e /src/runtime/haskell-bind/PGF2 | |
| parent | 856683f79f698d50555ef832adf00c15591f344c (diff) | |
bugfix and tiny optimization for callbacks from Haskell
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 3 |
1 files changed, 0 insertions, 3 deletions
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 |