From 1f3c9d0b1736daa979e195bc07d971421768e4ad Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 18 Aug 2017 21:23:58 +0200 Subject: the parser is not forced to respect the linref while parsing discontious phrases --- src/runtime/haskell/PGF/Data.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/runtime/haskell/PGF/Data.hs') diff --git a/src/runtime/haskell/PGF/Data.hs b/src/runtime/haskell/PGF/Data.hs index bd818ea1b..6a0714faf 100644 --- a/src/runtime/haskell/PGF/Data.hs +++ b/src/runtime/haskell/PGF/Data.hs @@ -124,11 +124,12 @@ readLanguage = readCId showLanguage :: Language -> String showLanguage = showCId -fidString, fidInt, fidFloat, fidVar :: FId +fidString, fidInt, fidFloat, fidVar, fidStart :: FId fidString = (-1) fidInt = (-2) fidFloat = (-3) fidVar = (-4) +fidStart = (-5) isPredefFId :: FId -> Bool isPredefFId = (`elem` [fidString, fidInt, fidFloat, fidVar]) -- cgit v1.2.3