ghc-vis 0.3.1 → 0.3.1.1

raw patch · 3 files changed

+8/−7 lines, 3 files

Files

• ghc-vis.cabal +2/−2
• src/GHC/Vis/Internal.hs +4/−4
• src/GHC/Vis/View/Graph/Parser.hs +2/−1

@@ -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:

@@ -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

@@ -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]   }