From 9b42aff901a3b14aaaf113098d9640e66fe9e5a2 Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Tue, 17 May 2005 10:20:25 +0000
Subject: "Committed_by_peb"

---
 src/GF/Shell.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/GF/Shell.hs')

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index 1c0e63f22..7dca7b066 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/05/12 10:03:33 $ 
--- > CVS $Author: aarne $
--- > CVS $Revision: 1.36 $
+-- > CVS $Date: 2005/05/17 11:20:25 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.37 $
 --
 -- GF shell command interpreter.
 -----------------------------------------------------------------------------
@@ -272,7 +272,7 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = checkOptions st co >> case comm of
     returnArg (AString (optPrintMultiGrammar opts cgr)) sa'
   CShowGrammarGraph  -> do
     ---- sa' <- changeState purgeShellState sa
-    let g0 = writeFile "grphtmp.dot" $ visualizeCanonGrammar cgr
+    let g0 = writeFile "grphtmp.dot" $ visualizeCanonGrammar opts cgr
         g1 = system "dot -Tps grphtmp.dot >grphtmp.ps" 
         g2 = system "gv grphtmp.ps &" 
         g3 = return () ---- system "rm -f grphtmp.*"
-- 
cgit v1.2.3