ghc-vis 0.3.1.1 → 0.3.2
raw patch · 2 files changed
+11/−11 lines, 2 filesdep ~ghc-heap-view
Dependency ranges changed: ghc-heap-view
Files
- ghc-vis.cabal +3/−3
- src/GHC/Vis/Internal.hs +8/−8
ghc-vis.cabal view
@@ -1,5 +1,5 @@ name: ghc-vis-version: 0.3.1.1+version: 0.3.2 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.1/ghci" >> ~/.ghci+ > echo ":script $HOME/.cabal/share/ghc-vis-0.3.2/ghci" >> ~/.ghci . Now you can run ghci and experiment with @ghc-vis@. Start the visualization:@@ -95,7 +95,7 @@ transformers, gtk == 0.12.*, cairo == 0.12.*,- ghc-heap-view >= 0.3+ ghc-heap-view >= 0.3.0.2 Hs-source-dirs: src/ Ghc-options: -Wall -fno-warn-unused-do-bind
src/GHC/Vis/Internal.hs view
@@ -237,7 +237,7 @@ , ("GHC.Word", "W16#") , ("GHC.Word", "W32#") , ("GHC.Word", "W64#")- ] -> show dataArg+ ] -> name ++ " " ++ show dataArg k | k `elem` [ ("GHC.Integer.Type", "S#") , ("GHC.Types", "I#")@@ -245,7 +245,7 @@ , ("GHC.Int", "I16#") , ("GHC.Int", "I32#") , ("GHC.Int", "I64#")- ] -> show $ (fromIntegral :: Word -> Int) dataArg+ ] -> name ++ " " ++ (show $ (fromIntegral :: Word -> Int) dataArg) ("GHC.Types", "C#") -> show . chr $ fromIntegral dataArg @@ -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)@@ -428,7 +428,7 @@ , ("GHC.Word", "W16#") , ("GHC.Word", "W32#") , ("GHC.Word", "W64#")- ] -> show dataArg+ ] -> name ++ " " ++ show dataArg k | k `elem` [ ("GHC.Integer.Type", "S#") , ("GHC.Types", "I#")@@ -436,7 +436,7 @@ , ("GHC.Int", "I16#") , ("GHC.Int", "I32#") , ("GHC.Int", "I64#")- ] -> show $ (fromIntegral :: Word -> Int) dataArg+ ] -> name ++ " " ++ (show $ (fromIntegral :: Word -> Int) dataArg) ("GHC.Types", "C#") -> show . chr $ fromIntegral dataArg @@ -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