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 | |
| parent | fc99b225a7f39e8762e23acc78bf12398c9c11d9 (diff) | |
Improved gt; Karin C's examples.
Diffstat (limited to 'src/GF/Shell')
| -rw-r--r-- | src/GF/Shell/PShell.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs index b4cd335a7..befdb8ea2 100644 --- a/src/GF/Shell/PShell.hs +++ b/src/GF/Shell/PShell.hs @@ -70,9 +70,9 @@ pCommand ws = case ws of "p" : s -> aString CParse s "t" : i:o: s -> aString (CTranslate (language i) (language o)) s - "gr" : [] -> aUnit (CGenerateRandom 1) - "gr" : t -> aTerm (CGenerateRandom 1) t - "gt" : n : [] -> aUnit (CGenerateTrees (readIntArg n)) + "gr" : [] -> aUnit CGenerateRandom + "gr" : t -> aTerm CGenerateRandom t + "gt" : [] -> aUnit CGenerateTrees "pt" : s -> aTerm CPutTerm s ----- "wt" : f : s -> aTerm (CWrapTerm (string2id f)) s "ma" : s -> aString CMorphoAnalyse s |