diff options
| author | aarne <unknown> | 2003-10-06 08:57:16 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-10-06 08:57:16 +0000 |
| commit | 53e2307bbf5f6faaeadee19228e20e5a6b125990 (patch) | |
| tree | 9936c268dd2892571bc7c20461a6c6b2c70553d6 /src/GF | |
| parent | 7aa7a3cf19925b376cb368bd47fed75eaa9d5fea (diff) | |
Support gfc-nofud
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 |