From 38fb11e0a38fb7549ba17f79bad65255e954f1f0 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Wed, 5 Aug 2026 15:53:25 +0200 Subject: [PATCH] fix the parsing api --- src/compiler/api/GF/Server/PGFService.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/api/GF/Server/PGFService.hs b/src/compiler/api/GF/Server/PGFService.hs index 9fe00963c..80ef0dc34 100644 --- a/src/compiler/api/GF/Server/PGFService.hs +++ b/src/compiler/api/GF/Server/PGFService.hs @@ -144,7 +144,7 @@ pgfCommand qsem command q (t,pgf) = -- Without caching parse results: parse' cat start mlimit ((from,concr),input) = - case PGF2.parse concr cat (init input) of + case PGF2.parse concr cat input of ParseOk ts -> return (Right (maybe id take mlimit (drop start ts))) ParseFailed _ tok -> return (Left tok) ParseIncomplete -> return (Left "")