From d4c1a0f09da12c259cdf8e2bb374411f629bef2a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 31 May 2005 11:47:51 +0000
Subject: cf for restricted import; new API funs

---
 src/GF/Embed/EmbedParsing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Embed')

diff --git a/src/GF/Embed/EmbedParsing.hs b/src/GF/Embed/EmbedParsing.hs
index 485fa2379..40378c491 100644
--- a/src/GF/Embed/EmbedParsing.hs
+++ b/src/GF/Embed/EmbedParsing.hs
@@ -83,7 +83,7 @@ trees2trms opts sg cn as ts0 info = do
         ,checkWarn (unlines ("Raw CF trees:":(map prCFTree ts0))) >> return []
         ]
     _ -> do
-      let num = optIntOrN opts flagRawtrees 99999
+      let num = optIntOrN opts flagRawtrees 999999
       let (ts01,rest) = splitAt num ts0
       if null rest then return () 
          else checkWarn ("Warning: only" +++ show num +++ "raw parses out of" +++ 
-- 
cgit v1.2.3