ghc-syb-utils 0.2.1.0 → 0.2.1.1

raw patch · 2 files changed

+16/−9 lines, 2 filesdep ~ghcPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

Dependency ranges changed: ghc

API changes (from Hackage documentation)

Files

• GHC/SYB/Utils.hs +14/−7
• ghc-syb-utils.cabal +2/−2

@@ -192,6 +192,13 @@  import Data.List +showSDoc_ :: SDoc -> String+#if __GLASGOW_HASKELL__ < 706+showSDoc_ = showSDoc+#else+showSDoc_ = showSDoc tracingDynFlags+#endif+ -- | Ghc Ast types tend to have undefined holes, to be filled --   by later compiler phases. We tag Asts with their source, --   so that we can avoid such holes based on who generated the Asts.@@ -218,12 +225,12 @@         list l     = indent n ++ "["                                ++ concat (intersperse "," (map (showData stage (n+1)) l)) ++ "]" -        name       = ("{Name: "++) . (++"}") . showSDoc . ppr :: Name -> String+        name       = ("{Name: "++) . (++"}") . showSDoc_ . ppr :: Name -> String         occName    = ("{OccName: "++) . (++"}") .  OccName.occNameString -        moduleName = ("{ModuleName: "++) . (++"}") . showSDoc . ppr :: ModuleName -> String-        srcSpan    = ("{"++) . (++"}") . showSDoc . ppr :: SrcSpan -> String-        var        = ("{Var: "++) . (++"}") . showSDoc . ppr :: Var -> String-        dataCon    = ("{DataCon: "++) . (++"}") . showSDoc . ppr :: DataCon -> String+        moduleName = ("{ModuleName: "++) . (++"}") . showSDoc_ . ppr :: ModuleName -> String+        srcSpan    = ("{"++) . (++"}") . showSDoc_ . ppr :: SrcSpan -> String+        var        = ("{Var: "++) . (++"}") . showSDoc_ . ppr :: Var -> String+        dataCon    = ("{DataCon: "++) . (++"}") . showSDoc_ . ppr :: DataCon -> String          bagRdrName:: Bag (Located (HsBind RdrName)) -> String         bagRdrName = ("{Bag(Located (HsBind RdrName)): "++) . (++"}") . list . bagToList @@ -238,10 +245,10 @@                 = ("{NameSet: "++) . (++"}") . list . nameSetToList           postTcType | stage<TypeChecker = const "{!type placeholder here?!}" :: PostTcType -> String-                   | otherwise     = showSDoc . ppr :: Type -> String+                   | otherwise     = showSDoc_ . ppr :: Type -> String          fixity | stage<Renamer = const "{!fixity placeholder here?!}" :: GHC.Fixity -> String-               | otherwise     = ("{Fixity: "++) . (++"}") . showSDoc . ppr :: GHC.Fixity -> String+               | otherwise     = ("{Fixity: "++) . (++"}") . showSDoc_ . ppr :: GHC.Fixity -> String  -- | Like 'everything', but avoid known potholes, based on the 'Stage' that --   generated the Ast.

@@ -1,5 +1,5 @@ name:            ghc-syb-utils-version:         0.2.1.0+version:         0.2.1.1 license:         BSD3 license-file:    LICENSE author:          Claus Reinke@@ -12,7 +12,7 @@ stability:       provisional build-type:      Simple cabal-version:   >= 1.6-tested-with:     GHC ==6.10.4, GHC ==6.12.1+tested-with:     GHC ==6.10.4, GHC ==6.12.1, GHC ==7.6.1  library   build-depends:   base >= 4 && < 5