diff options
Diffstat (limited to 'Graphviz.hs')
-rw-r--r-- | Graphviz.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Graphviz.hs b/Graphviz.hs index d13e386..d4db9d3 100644 --- a/Graphviz.hs +++ b/Graphviz.hs @@ -78,7 +78,9 @@ genGraph ls = digraph (Str "debug-me") $ do link a b s = edge (display a) (display b) $ s ++ [ textLabel (shorthash a) ] - shorthash h = display $ Val $ B.take 5 $ val $ hashValue h + -- The "h:" prefix is to work around this bug: + -- https://github.com/ivan-m/graphviz/issues/16 + shorthash h = display $ Val $ "h:" <> (B.take 5 $ val $ hashValue h) xcolor :: X11Color -> Attribute xcolor c = Color [toWC $ X11Color c] |