From 2588a6f016cd1d0bc47d9ab0ab5a8b1d2f376000 Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 13 Apr 2017 13:43:48 +0000 Subject: gu_string_buf -> gu_new_string_buf in libgu --- src/runtime/haskell-bind/PGF2/FFI.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/runtime/haskell-bind') diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index d2b5d5365..5ca2ee01f 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -68,8 +68,8 @@ gu_exn_type_PgfTypeError = Ptr "PgfTypeError"# :: CString foreign import ccall "gu/string.h gu_string_in" gu_string_in :: CString -> Ptr GuPool -> IO (Ptr GuIn) -foreign import ccall "gu/string.h gu_string_buf" - gu_string_buf :: Ptr GuPool -> IO (Ptr GuStringBuf) +foreign import ccall "gu/string.h gu_new_string_buf" + gu_new_string_buf :: Ptr GuPool -> IO (Ptr GuStringBuf) foreign import ccall "gu/string.h gu_string_buf_out" gu_string_buf_out :: Ptr GuStringBuf -> IO (Ptr GuOut) @@ -97,7 +97,7 @@ withGuPool f = bracket gu_new_pool gu_pool_free f newOut :: Ptr GuPool -> IO (Ptr GuStringBuf, Ptr GuOut) newOut pool = - do sb <- gu_string_buf pool + do sb <- gu_new_string_buf pool out <- gu_string_buf_out sb return (sb,out) -- cgit v1.2.3