diff --git a/src/GHC/Vacuum/Dot.hs b/src/GHC/Vacuum/Dot.hs
--- a/src/GHC/Vacuum/Dot.hs
+++ b/src/GHC/Vacuum/Dot.hs
@@ -31,7 +31,7 @@
 
 ppEdge :: (String, [String]) -> Doc
 ppEdge (x,xs) = (dQText x) <+> (text "->")
-                    <+> (braces . hcat . punctuate comma
+                    <+> (braces . hcat . punctuate semi
                         . fmap dQText $ xs)
 
 dQText :: String -> Doc
diff --git a/vacuum.cabal b/vacuum.cabal
--- a/vacuum.cabal
+++ b/vacuum.cabal
@@ -1,5 +1,5 @@
 name:               vacuum
-version:            0.0.8
+version:            0.0.9
 cabal-version:      >= 1.6
 build-type:         Simple
 license:            LGPL