From 5916c8406367b9033094359d6da2e079440d8f1c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Apr 2017 11:24:50 -0400 Subject: work around https://github.com/ivan-m/graphviz/issues/16 --- Graphviz.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Graphviz.hs') 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] -- cgit v1.2.3