diff options
| author | krasimir <krasimir@chalmers.se> | 2017-04-13 13:43:48 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2017-04-13 13:43:48 +0000 |
| commit | 2588a6f016cd1d0bc47d9ab0ab5a8b1d2f376000 (patch) | |
| tree | 7373cac6936a14f2fd13f1f01c2543a89c706970 /src/runtime/haskell-bind | |
| parent | e650b9c5fc38ebb408ddf1982249479aac73836d (diff) | |
gu_string_buf -> gu_new_string_buf in libgu
Diffstat (limited to 'src/runtime/haskell-bind')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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) |