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/Visualization/VisualizeGrammar.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/GF/Visualization/VisualizeGrammar.hs')

diff --git a/src/GF/Visualization/VisualizeGrammar.hs b/src/GF/Visualization/VisualizeGrammar.hs
index 1c3d0589a..e217dd7e2 100644
--- a/src/GF/Visualization/VisualizeGrammar.hs
+++ b/src/GF/Visualization/VisualizeGrammar.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/21 16:23:54 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.8 $
+-- > CVS $Date: 2005/05/17 11:20:26 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.9 $
 --
 -- Print a graph of module dependencies in Graphviz DOT format
 -----------------------------------------------------------------------------
@@ -19,6 +19,7 @@ module GF.Visualization.VisualizeGrammar ( visualizeCanonGrammar,
 import qualified GF.Infra.Modules as M
 import GF.Canon.GFC
 import GF.Infra.Ident
+import GF.Infra.Option
 import GF.Grammar.Grammar (SourceGrammar)
 
 import Data.List (intersperse, nub)
@@ -42,8 +43,8 @@ data Node = Node {
 		  deriving Show
 
 
-visualizeCanonGrammar :: CanonGrammar -> String
-visualizeCanonGrammar = prGraph . canon2graph
+visualizeCanonGrammar :: Options -> CanonGrammar -> String
+visualizeCanonGrammar opts = prGraph . canon2graph
 
 visualizeSourceGrammar :: SourceGrammar -> String
 visualizeSourceGrammar = prGraph . source2graph
-- 
cgit v1.2.3