diff options
| author | bringert <unknown> | 2004-11-26 14:53:44 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-11-26 14:53:44 +0000 |
| commit | fcbe58ef07be9f6177410d2c2c785f3261000648 (patch) | |
| tree | 6bd77fd85edcb0d97fae7d9e02c20bcb85adb953 /src | |
| parent | 198c84c77fadeb58d5f66f4bd46e884cb7c6ea96 (diff) | |
Added module file (hacky) URLs to nodes.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Visualization/VisualizeGrammar.hs | 4 |
1 files 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) |