two more fixes

GrammaticalFramework · Sep 4, 2023 · 295458a · 295458a
1 parent 56c5b8e
commit 295458a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/runtime/c/pgf/pgf.h b/src/runtime/c/pgf/pgf.h
@@ -294,15 +294,14 @@ 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);
 #elif defined(__APPLE__)
 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
@@ -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