diff options
| author | aarne <unknown> | 2004-04-30 19:52:34 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-30 19:52:34 +0000 |
| commit | 487571a685382922f04985995d0f8779284bdc8d (patch) | |
| tree | ccb9081bfbb092725aa593953ced9fa94eff2a99 /src/GF/Shell.hs | |
| parent | fc99b225a7f39e8762e23acc78bf12398c9c11d9 (diff) | |
Improved gt; Karin C's examples.
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 8a0152e10..66a073ebc 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -53,8 +53,8 @@ data Command = | CLinearize [()] ---- parameters | CParse | CTranslate Language Language - | CGenerateRandom Int - | CGenerateTrees Int + | CGenerateRandom + | CGenerateTrees | CPutTerm | CWrapTerm Ident | CMorphoAnalyse @@ -174,7 +174,7 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of CTranslate il ol -> do let a' = opST2CommandArg (optParseArgErr opts (sgr il)) a returnArg (opTS2CommandArg (optLinearizeTreeVal opts (sgr ol)) a') sa - CGenerateRandom n -> do + CGenerateRandom -> do let a' = case a of ASTrm _ -> s2t a @@ -186,9 +186,9 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of Ok trm' -> returnArg (ATrms [loc2tree trm']) sa Bad s -> returnArg (AError s) sa _ -> do - ts <- randomTreesIO opts gro (optIntOrN opts flagNumber n) + ts <- randomTreesIO opts gro (optIntOrN opts flagNumber 1) returnArg (ATrms ts) sa - CGenerateTrees n -> returnArg (ATrms $ generateTrees opts gro n) sa + CGenerateTrees -> returnArg (ATrms $ generateTrees opts gro) sa CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa |