diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-26 14:50:17 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-26 14:50:17 +0000 |
| commit | d4e0caa05339f4a141f85f9a61d634f89037146b (patch) | |
| tree | 2de6f7bf5d49439511e971e393a6f42b0d2bc88e /src-3.0/GFI.hs | |
| parent | 7d0da72db1bf4da1cd5404c56e55e55d0a4cb98c (diff) | |
printing options for source GF terms defined in API and used in cc command
Diffstat (limited to 'src-3.0/GFI.hs')
| -rw-r--r-- | src-3.0/GFI.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src-3.0/GFI.hs b/src-3.0/GFI.hs index ae2c2440d..5769d0550 100644 --- a/src-3.0/GFI.hs +++ b/src-3.0/GFI.hs @@ -34,8 +34,9 @@ loop gfenv0 = do -- special commands, requiring source grammar in env "cc":ws -> do - let t = pTerm (unwords ws) >>= checkTerm sgr >>= computeTerm sgr - err putStrLn (putStrLn . prTerm) t ---- make pipable + let (opts,term) = getOptions "-" ws + let t = pTerm (unwords term) >>= checkTerm sgr >>= computeTerm sgr + err putStrLn (putStrLn . showTerm opts) t ---- make pipable loopNewCPU gfenv "i":args -> do |