msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

bugfix and tiny optimization for callbacks from Haskell

Browse Source
This commit is contained in:
kr.angelov
2014-12-19 10:14:41 +00:00
parent 856683f79f
commit 13f4af4910
3 changed files with 43 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/runtime/haskell-bind/PGF2/FFI.hs
View File

@@ -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