From fcbe58ef07be9f6177410d2c2c785f3261000648 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Fri, 26 Nov 2004 14:53:44 +0000
Subject: [PATCH] Added module file (hacky) URLs to nodes.

---
 src/GF/Visualization/VisualizeGrammar.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GF/Visualization/VisualizeGrammar.hs b/src/GF/Visualization/VisualizeGrammar.hs
index 5f5492b65..5a2939098 100644
--- a/src/GF/Visualization/VisualizeGrammar.hs
+++ b/src/GF/Visualization/VisualizeGrammar.hs
@@ -62,7 +62,7 @@ prNode n = concat (map (++";\n") stmts)
 			  GrAbstract -> "solid"
 			  GrConcrete -> "dashed"
 			  GrResource -> "dotted"
-    attrs = [("style",style)]
+    attrs = [("style",style),("URL", l++".gf")] -- FIXME: might be in a different directory
 
 
 prExtend :: String -> String -> String
@@ -78,4 +78,4 @@ prEdge :: String -> String -> [(String,String)] -> String
 prEdge f t as = f ++ " -> " ++ t ++ " [" ++ prAttributes as ++ "]"
 
 prAttributes :: [(String,String)] -> String
-prAttributes = concat . intersperse ", " . map (\ (n,v) -> n ++ " = " ++ v)
+prAttributes = concat . intersperse ", " . map (\ (n,v) -> n ++ " = " ++ show v)