diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-18 11:24:50 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-18 11:24:50 -0400 |
| commit | 5916c8406367b9033094359d6da2e079440d8f1c (patch) | |
| tree | 4dd8d2341661dba0068de67c24bb47baf6c2d5bb /Graphviz.hs | |
| parent | d19059948fe938ad9a4e1fb851e25cff49e4ac3c (diff) | |
| download | debug-me-5916c8406367b9033094359d6da2e079440d8f1c.tar.gz | |
work around https://github.com/ivan-m/graphviz/issues/16
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] |