diff options
Diffstat (limited to 'src/GF/Visualization')
| -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) |