vacuum 0.0.5 → 0.0.5.1

raw patch · 2 files changed

+4/−4 lines, 2 filesnew-uploader

Files

• src/GHC/Vacuum.hs +3/−3
• vacuum.cabal +1/−1

@@ -99,13 +99,13 @@               in fmap (\(x,xs) -> (pp x, fmap pp xs)) g  data ShowHNode = ShowHNode-  {showHNode :: HNode -> String-  ,externHNode :: String}+  {showHNode   :: Int -> HNode -> String+  ,externHNode :: Int -> String}  showHNodes :: ShowHNode -> IntMap HNode -> [(String, [String])] showHNodes (ShowHNode showN externN) m   = let g = toAdjList m-        pp i = maybe externN showN (IM.lookup i m)+        pp i = maybe (externN i) (showN i) (IM.lookup i m)     in fmap (\(x,xs) -> (pp x, fmap pp xs)) g  -----------------------------------------------------------------------------

@@ -1,5 +1,5 @@ name:               vacuum-version:            0.0.5+version:            0.0.5.1 cabal-version:      >= 1.6 build-type:         Simple license:            LGPL