diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-02-24 09:16:30 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-02-24 09:16:30 +0000 |
| commit | 016d43e26b329ddd9503703c66d5d5b65e4a8944 (patch) | |
| tree | b22cdab894a4c5300d0efd7a20d27fe614e0fbca /src | |
| parent | 5264780e67d74eb16a4cb499072b89b57ca4a37c (diff) | |
cc output as pipable string
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 19394855e..29a4b6c23 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -380,11 +380,11 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com maybe (I.identC "?") id $ -- meaningful if no opers in t maybe (resourceOfShellState st) (return . I.identC) $ -- topmost res getOptVal opts useResource -- flag -res=m - justOutput opts (putStrLn (err id (prin . stripTerm) ( + returnArg (AString (err id (prin . stripTerm) ( string2srcTerm src m t >>= Ch.justCheckLTerm src >>= Co.computeConcrete src))) sa ---- Co.computeConcreteRec src))) sa +--- Co.computeConcreteRec src)) sa CShowOpers t -> do m <- return $ maybe (I.identC "?") id $ -- meaningful if no opers in t |