From 78108f7817fbf3269bb75f278eb9a8540737873e Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Wed, 20 Apr 2005 11:49:44 +0000
Subject: "Committed_by_peb"

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

(limited to 'src/GF/UseGrammar')

diff --git a/src/GF/UseGrammar/Parsing.hs b/src/GF/UseGrammar/Parsing.hs
index 5dd7bef78..b546c04b6 100644
--- a/src/GF/UseGrammar/Parsing.hs
+++ b/src/GF/UseGrammar/Parsing.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/14 18:38:36 $ 
+-- > CVS $Date: 2005/04/20 12:49:45 $ 
 -- > CVS $Author: peb $
--- > CVS $Revision: 1.18 $
+-- > CVS $Revision: 1.19 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
@@ -69,7 +69,7 @@ parseStringC opts0 sg cat s
   let opts = unionOptions opts0 $ stateOptions sg
       pm   = maybe "" id $ getOptVal opts0 useParser -- -parser=pm
       tok  = customOrDefault opts useTokenizer customTokenizer sg
-  ts <- return $ New.parse pm (pInfo sg) (absId sg) cat (tok s)
+  ts <- checkErr $ New.parse pm (pInfo sg) (absId sg) cat (tok s)
   ts' <- mapM (checkErr . annotate (stateGrammarST sg) . refreshMetas []) ts
   return $ optIntOrAll opts flagNumber ts'
 
-- 
cgit v1.2.3