diff options
| author | aarne <unknown> | 2005-07-01 07:16:31 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-07-01 07:16:31 +0000 |
| commit | d27fd4913b504189e531caa0365ec29357f35447 (patch) | |
| tree | a011dd5837272a4c474d45826184f12291832e52 /src/GF/Shell.hs | |
| parent | 4d94cdfd66c63eb01ad90c292f3dc75878a0e8a7 (diff) | |
vt -o ; Finnish infinitives
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index ac5a5d660..8ae01017c 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/06/20 16:14:19 $ +-- > CVS $Date: 2005/07/01 08:16:32 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.41 $ +-- > CVS $Revision: 1.42 $ -- -- GF shell command interpreter. ----------------------------------------------------------------------------- @@ -208,6 +208,8 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = checkOptions st co >> case comm of _ -> Nothing returnArg (ATrms $ generateTrees opts gro mt) sa + CShowTreeGraph | oElem emitCode opts -> do -- -o + returnArg (AString $ visualizeTrees opts $ strees $ s2t a) sa CShowTreeGraph -> do let g0 = writeFile "grphtmp.dot" $ visualizeTrees opts $ strees $ s2t a g1 = system "dot -Tps grphtmp.dot >grphtmp.ps" |