diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-28 13:42:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-28 13:42:50 +0000 |
| commit | 3b4ee92cbece3aff0243f0dfd0f41121808d8e8c (patch) | |
| tree | fb74b8b80244c20e812b9e44d0288c7a7caf0c5c /src/GF/Canon/GFCC/Shell.hs | |
| parent | 5fedbc53ae997bd8d4071d05fc10853f80065698 (diff) | |
started CheckGFCC
Diffstat (limited to 'src/GF/Canon/GFCC/Shell.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/Shell.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |