GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 08:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

cc output as pipable string

Browse Source
This commit is contained in:
aarne
2007-02-24 09:16:30 +00:00
parent 67470b29cc
commit 5c7bd4c5c7
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Shell.hs
View File

@@ -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 (I.identC "?") id $ -- meaningful if no opers in t
maybe (resourceOfShellState st) (return . I.identC) $ -- topmost res maybe (resourceOfShellState st) (return . I.identC) $ -- topmost res
getOptVal opts useResource -- flag -res=m getOptVal opts useResource -- flag -res=m
justOutput opts (putStrLn (err id (prin . stripTerm) ( returnArg (AString (err id (prin . stripTerm) (
string2srcTerm src m t >>= string2srcTerm src m t >>=
Ch.justCheckLTerm src >>= Ch.justCheckLTerm src >>=
Co.computeConcrete src))) sa Co.computeConcrete src))) sa
--- Co.computeConcreteRec src))) sa --- Co.computeConcreteRec src)) sa
CShowOpers t -> do CShowOpers t -> do
m <- return $ m <- return $
maybe (I.identC "?") id $ -- meaningful if no opers in t maybe (I.identC "?") id $ -- meaningful if no opers in t