From 3b4ee92cbece3aff0243f0dfd0f41121808d8e8c Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 28 Sep 2007 13:42:50 +0000 Subject: started CheckGFCC --- src/GF/Canon/GFCC/Shell.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Canon/GFCC/Shell.hs') diff --git a/src/GF/Canon/GFCC/Shell.hs b/src/GF/Canon/GFCC/Shell.hs index 5285b89a8..5a2171a03 100644 --- a/src/GF/Canon/GFCC/Shell.hs +++ b/src/GF/Canon/GFCC/Shell.hs @@ -41,7 +41,7 @@ commands = unlines [ treat :: MultiGrammar -> String -> IO () treat mgr s = case words s of "gt" :cat:n:_ -> mapM_ prlinonly $ take (read1 n) $ generateAll mgr cat - "gtt":cat:n:_ -> mapM_ prlin $ generateAll mgr cat + "gtt":cat:n:_ -> mapM_ prlin $ take (read1 n) $ generateAll mgr cat "gr" :cat:n:_ -> generateRandom mgr cat >>= mapM_ prlinonly . take (read1 n) "grt":cat:n:_ -> generateRandom mgr cat >>= mapM_ prlin . take (read1 n) "p":lang:cat:ws -> do -- cgit v1.2.3