From 295458ab03e00b8328c08bcccf306da7989aefdc Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Mon, 4 Sep 2023 17:52:09 +0200 Subject: [PATCH] two more fixes --- src/runtime/c/pgf/pgf.h | 3 +-- src/runtime/haskell/PGF2.hsc | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/runtime/c/pgf/pgf.h b/src/runtime/c/pgf/pgf.h index 502b40862..14b9b5a57 100644 --- a/src/runtime/c/pgf/pgf.h +++ b/src/runtime/c/pgf/pgf.h @@ -294,7 +294,7 @@ void pgf_write_pgf(const char* fpath, #if defined(__linux__) PGF_API_DECL void pgf_write_pgf_cookie - (void *cookie, cookie_io_functions_t *io_funcs, + (void *cookie, ssize_t (*writefn)(void *, const char *, size_t), PgfDB *db, PgfRevision revision, PgfText **langs, // null terminated list or null PgfExn* err); @@ -302,7 +302,6 @@ void pgf_write_pgf_cookie PGF_API_DECL void pgf_write_pgf_cookie (void *cookie, int (*writefn)(void *, const char *, int), - int (*closefn)(void *), PgfDB *db, PgfRevision revision, PgfText **langs, // null terminated list or null PgfExn* err); diff --git a/src/runtime/haskell/PGF2.hsc b/src/runtime/haskell/PGF2.hsc index d65816840..b570eb315 100644 --- a/src/runtime/haskell/PGF2.hsc +++ b/src/runtime/haskell/PGF2.hsc @@ -16,7 +16,7 @@ module PGF2 (-- * PGF PGF,readPGF,bootNGF,readNGF,newNGF,writePGF,showPGF, readPGFWithProbs, bootNGFWithProbs, -#ifdef __linux__ +#if defined(__linux__) || defined(__APPLE__) writePGF_, #endif