From 53e2307bbf5f6faaeadee19228e20e5a6b125990 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 6 Oct 2003 08:57:16 +0000
Subject: Support gfc-nofud

---
 src/GF/UseGrammar/Parsing.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/GF')

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
-- 
cgit v1.2.3