aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorCale Gibbard <cgibbard@gmail.com>2020-04-08 13:39:15 -0400
committerCale Gibbard <cgibbard@gmail.com>2020-04-14 11:43:34 -0400
commitb6bebdce0f217af8b6a249b3b6c2bd32dfa2b0b0 (patch)
tree144e1f201ab53081cc2ad7d98af3499b966694a1 /haddock-api
parent99aa96d641bf9bae036be4a9577fe75c0010424f (diff)
Rename XCollectPat -> CollectPass
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/GhcUtils.hs4
-rw-r--r--haddock-api/src/Haddock/Types.hs4
2 files changed, 4 insertions, 4 deletions
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs
index c870fdf9..6b62f3d3 100644
--- a/haddock-api/src/Haddock/GhcUtils.hs
+++ b/haddock-api/src/Haddock/GhcUtils.hs
@@ -41,7 +41,7 @@ import GHC.Types.Var.Env ( TyVarEnv, extendVarEnv, elemVarEnv, emptyVarEnv )
import GHC.Core.TyCo.Rep ( Type(..) )
import GHC.Core.Type ( isRuntimeRepVar )
import TysWiredIn( liftedRepDataConTyCon )
-import GHC.Hs.Utils (XCollectPat(..))
+import GHC.Hs.Utils (CollectPass(..))
import StringBuffer ( StringBuffer )
import qualified StringBuffer as S
@@ -56,7 +56,7 @@ moduleString = moduleNameString . moduleName
isNameSym :: Name -> Bool
isNameSym = isSymOcc . nameOccName
-getMainDeclBinder :: (XCollectPat (GhcPass p)) => HsDecl (GhcPass p) -> [IdP (GhcPass p)]
+getMainDeclBinder :: (CollectPass (GhcPass p)) => HsDecl (GhcPass p) -> [IdP (GhcPass p)]
getMainDeclBinder (TyClD _ d) = [tcdName d]
getMainDeclBinder (ValD _ d) =
case collectHsBindBinders d of
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs
index 5086d52c..f12a6bce 100644
--- a/haddock-api/src/Haddock/Types.hs
+++ b/haddock-api/src/Haddock/Types.hs
@@ -299,8 +299,8 @@ data DocNameI
type instance IdP DocNameI = DocName
-instance XCollectPat DocNameI where
- collectPatX _ ext = noExtCon ext
+instance CollectPass DocNameI where
+ collectXXPat _ ext = noExtCon ext
instance NamedThing DocName where
getName (Documented name _) = name