From 42a7f26eeed01c5ff20a0cdb0bb85ce595262663 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Thu, 22 Oct 2026 17:21:23 +0000 Subject: [PATCH] fix compilation --- src/compiler/api/GF/Server/PGFService.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/compiler/api/GF/Server/PGFService.hs b/src/compiler/api/GF/Server/PGFService.hs index 80ef0dc34..84cac2e16 100644 --- a/src/compiler/api/GF/Server/PGFService.hs +++ b/src/compiler/api/GF/Server/PGFService.hs @@ -5,6 +5,7 @@ module GF.Server.PGFService(pgfMain, import PGF2 import PGF2.Transactions +import PGF (Labels, getDepLabels) import GF.Server.Cache import Data.Time.Format(formatTime) @@ -146,7 +147,7 @@ pgfCommand qsem command q (t,pgf) = parse' cat start mlimit ((from,concr),input) = case PGF2.parse concr cat input of ParseOk ts -> return (Right (maybe id take mlimit (drop start ts))) - ParseFailed _ tok -> return (Left tok) + ParseFailed i -> return (Left (takeWhile (not.isSpace) (drop i input))) ParseIncomplete -> return (Left "") parseToChart ((from,concr),input) cat mlimit = undefined {-