diff --git a/ghc-vis.cabal b/ghc-vis.cabal
--- a/ghc-vis.cabal
+++ b/ghc-vis.cabal
@@ -1,5 +1,5 @@
 name:               ghc-vis
-version:            0.3.1
+version:            0.3.1.1
 license:            BSD3
 license-file:       LICENSE
 category:           GHC, Debug, Development
@@ -18,7 +18,7 @@
                     To use this package add the accompanying @ghci@ file to
                     your @.ghci@ like this:
                     .
-                    > echo ":script $HOME/.cabal/share/ghc-vis-0.3.1/ghci" >> ~/.ghci
+                    > echo ":script $HOME/.cabal/share/ghc-vis-0.3.1.1/ghci" >> ~/.ghci
                     .
                     Now you can run ghci and experiment with @ghc-vis@. Start
                     the visualization:
diff --git a/src/GHC/Vis/Internal.hs b/src/GHC/Vis/Internal.hs
--- a/src/GHC/Vis/Internal.hs
+++ b/src/GHC/Vis/Internal.hs
@@ -312,8 +312,8 @@
 parseInternal _ (OtherClosure (StgInfoTable _ _ cTipe _) _ _)
   = return [Unnamed $ show cTipe]
 
-parseInternal _ (UnsupportedClosure (StgInfoTable _ _ cTipe _))
-  = return [Unnamed $ show cTipe]
+--parseInternal _ (UnsupportedClosure (StgInfoTable _ _ cTipe _))
+--  = return [Unnamed $ show cTipe]
 
 -- Reversed order of ptrs
 parseInternal b (ThunkClosure _ bPtrs args)
@@ -510,7 +510,7 @@
 showClosure (OtherClosure (StgInfoTable _ _ cTipe _) _ _)
   = show cTipe
 
-showClosure (UnsupportedClosure (StgInfoTable _ _ cTipe _))
-  = show cTipe
+--showClosure (UnsupportedClosure (StgInfoTable _ _ cTipe _))
+--  = show cTipe
 
 --showClosure c = "Missing pattern for " ++ show c
diff --git a/src/GHC/Vis/View/Graph/Parser.hs b/src/GHC/Vis/View/Graph/Parser.hs
--- a/src/GHC/Vis/View/Graph/Parser.hs
+++ b/src/GHC/Vis/View/Graph/Parser.hs
@@ -26,7 +26,7 @@
 import GHC.Vis.Internal
 import GHC.Vis.Types
 
-import Graphics.XDot.Types hiding (name, h)
+import Graphics.XDot.Types hiding (name, h, Style, Color)
 import Graphics.XDot.Parser
 
 fontName :: B.Text
@@ -124,6 +124,7 @@
   -- Somehow (X11Color Transparency) is white, use (RGBA 0 0 0 0) instead
   { globalAttributes = [GraphAttrs [BgColor [RGBA 0 0 0 0], FontName fontName, FontSize graphFontSize]]
   , fmtNode = \ (_,l) -> [toLabel l, FontName fontName, FontSize nodeFontSize]
+  --, fmtNode = \ (_,l) -> [toLabel l, FontName fontName, FontSize nodeFontSize, Style [SItem Filled []], FillColor [RGBA 255 255 255 255], Color [RGBA 0 0 0 255]]
   --, fmtNode = \ (_,l) -> [toLabel l, FontName fontName, FontSize nodeFontSize, Shape PlainText]
   , fmtEdge = \ (_,_,l) -> [toLabel l, FontName fontName, FontSize edgeFontSize]
   }