diff options
| author | Cale Gibbard <cgibbard@gmail.com> | 2020-02-07 16:53:41 -0500 |
|---|---|---|
| committer | Cale Gibbard <cgibbard@gmail.com> | 2020-04-14 11:43:34 -0400 |
| commit | 99aa96d641bf9bae036be4a9577fe75c0010424f (patch) | |
| tree | 4091bfa1ebdf1cf276aab7dbf140e3b3ac51a9d1 /haddock-api/src/Haddock/GhcUtils.hs | |
| parent | 5ec817a3e41b7eaa50c74701ab2d7642df86464c (diff) | |
Add instance of XCollectPat for DocNameI
Diffstat (limited to 'haddock-api/src/Haddock/GhcUtils.hs')
| -rw-r--r-- | haddock-api/src/Haddock/GhcUtils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs index 83d23d1b..c870fdf9 100644 --- a/haddock-api/src/Haddock/GhcUtils.hs +++ b/haddock-api/src/Haddock/GhcUtils.hs @@ -41,6 +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 StringBuffer ( StringBuffer ) import qualified StringBuffer as S @@ -55,7 +56,7 @@ moduleString = moduleNameString . moduleName isNameSym :: Name -> Bool isNameSym = isSymOcc . nameOccName -getMainDeclBinder :: HsDecl (GhcPass p) -> [IdP (GhcPass p)] +getMainDeclBinder :: (XCollectPat (GhcPass p)) => HsDecl (GhcPass p) -> [IdP (GhcPass p)] getMainDeclBinder (TyClD _ d) = [tcdName d] getMainDeclBinder (ValD _ d) = case collectHsBindBinders d of |