diff --git a/graph-trace-dot/src/Graph/Trace/Dot.hs b/graph-trace-dot/src/Graph/Trace/Dot.hs
index fa53773..2e0b66f 100644
--- a/graph-trace-dot/src/Graph/Trace/Dot.hs
+++ b/graph-trace-dot/src/Graph/Trace/Dot.hs
@@ -220,7 +220,7 @@ graphToDot graph = header <> graphContent <> "}"
Just $
quoted (keyStr key) <> ":" <> BSB.wordDec idx
<> " -> " <> quoted (keyStr edgeKey)
- <> " [colorscheme=set28 color=" <> color <> "];"
+ <> " [tooltip=\" \" colorscheme=set28 color=" <> color <> "];"
in ( el : cs
, maybe id (:) mEdge es
diff --git a/graph-trace-viz/app/Main.hs b/graph-trace-viz/app/Main.hs
index b737045..a175235 100644
--- a/graph-trace-viz/app/Main.hs
+++ b/graph-trace-viz/app/Main.hs
@@ -54,8 +54,9 @@ writeSvg htmlFile dotContent =
Proc.withCreateProcess (Proc.proc "dot" ["-Tsvg"])
{ Proc.std_in = Proc.CreatePipe
, Proc.std_out = Proc.CreatePipe
- } $
- \(Just stdIn) (Just stdOut) _ _ -> do
+ } go
+ where
+ go (Just stdIn) (Just stdOut) _ _ = do
hSetBinaryMode stdIn True
hSetBuffering stdIn (BlockBuffering Nothing)
hSetBinaryMode stdOut True
@@ -65,3 +66,5 @@ writeSvg htmlFile dotContent =
svg <- BSL.hGetContents stdOut
BSL.hPut htmlFile svg
hClose stdOut
+ go _ _ _ _ = pure ()
+
diff --git a/graph-trace-viz/extras/header.html b/graph-trace-viz/extras/header.html
index 7cd45ef..cb1ae56 100644
--- a/graph-trace-viz/extras/header.html
+++ b/graph-trace-viz/extras/header.html
@@ -49,9 +49,36 @@ window.onload = function () {
scrollToPosition(firstNodePos.x, firstNodePos.y);
}
- console.log("Finished loading");
+ document.getElementsByClassName("loading-backdrop")[0].remove();
};
+
+