From 8963681a3b821e85185877dd61b7804661fc5c24 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 18 May 2004 20:57:13 +0000 Subject: peel head i ; gt nometas ; gf2hs --- src/GF/Shell.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Shell.hs') diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 61fa7ce1e..f5692a398 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -200,7 +200,7 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa ------ CWrapTerm f -> changeArg (opTT2CommandArg (return . wrapByFun opts gro f)) sa +---- CWrapTerm f -> changeArg (opTT2CommandArg (return . wrapByFun opts gro f)) sa CMorphoAnalyse -> changeArg (AString . morphoAnalyse opts gro . prCommandArg) sa CTestTokenizer -> changeArg (AString . optTokenizer opts gro . prCommandArg) sa -- cgit v1.2.3