diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-12-06 11:46:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-12-06 11:46:35 +0000 |
| commit | 66caf2aa65049bd9db3796625a146730527cc28b (patch) | |
| tree | d24b7ba779b5a27420b6087409de1861271f175a /src | |
| parent | 9db6f69d0a286b8d8234f64cc4918db5daa19644 (diff) | |
bug fix in Shell commands at, wt
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Shell.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index d4ead22f7..541f2ea66 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -300,8 +300,8 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa - CWrapTerm f -> changeArg (opTT2CommandArg (return . wrapByFun opts gro f)) sa - CApplyTransfer f -> changeArg (opTT2CommandArg (return . applyTransfer opts gro transfs f)) sa + CWrapTerm f -> changeArg (opTT2CommandArg (return . wrapByFun opts gro f) . s2t) sa + CApplyTransfer f -> changeArg (opTT2CommandArg (return . applyTransfer opts gro transfs f) . s2t) sa CMorphoAnalyse -> changeArg (AString . morphoAnalyse opts gro . prCommandArg) sa CTestTokenizer -> changeArg (AString . optTokenizer opts gro . prCommandArg) sa |