diff options
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/UseGrammar/Parsing.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/UseGrammar/Parsing.hs b/src/GF/UseGrammar/Parsing.hs index 6cafb8c69..ab379cec3 100644 --- a/src/GF/UseGrammar/Parsing.hs +++ b/src/GF/UseGrammar/Parsing.hs @@ -43,9 +43,9 @@ parseStringC opts0 sg cat s | oElem newParser opts0 = do let pm = maybe "" id $ getOptVal opts0 useParser -- -parser=pm gr = grammar sg - ps <- checkErr $ N.newParser pm gr (cfCat2Cat cat) s - checkWarn $ unlines ps - return [] + ct = cfCat2Cat cat + ts <- checkErr $ N.newParser pm gr (cfCat2Cat cat) s + mapM (checkErr . (annotate gr)) ts | otherwise = do let opts = unionOptions opts0 $ stateOptions sg |