From 3467a54965e532c07d43784609ddc05b54e958e5 Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 26 Jan 2017 12:48:22 +0000 Subject: bring the Haskell binding a bit closer to the pure Haskell API --- src/runtime/c/pgf/parseval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/runtime/c/pgf/parseval.c') diff --git a/src/runtime/c/pgf/parseval.c b/src/runtime/c/pgf/parseval.c index cbea3d429..7ef41577d 100644 --- a/src/runtime/c/pgf/parseval.c +++ b/src/runtime/c/pgf/parseval.c @@ -129,7 +129,7 @@ static PgfLinFuncs pgf_metrics_lin_funcs2 = { }; bool -pgf_parseval(PgfConcr* concr, PgfExpr expr, PgfCId cat, +pgf_parseval(PgfConcr* concr, PgfExpr expr, PgfType* type, double *precision, double *recall, double *exact) { GuPool* pool = gu_new_pool(); @@ -174,7 +174,7 @@ pgf_parseval(PgfConcr* concr, PgfExpr expr, PgfCId cat, gu_string_buf_freeze(sbuf, pool); GuEnum* en_trees = - pgf_parse(concr, cat, sentence, + pgf_parse(concr, type, sentence, state.err, pool, pool); PgfExprProb* ep = gu_next(en_trees, PgfExprProb*, pool); if (ep == NULL) { -- cgit v1.2.3