diff options
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 |