alexwl/haskell-code-explorer
1
1
Fork 0
mirror of https://github.com/alexwl/haskell-code-explorer.git synced 2024-11-22 23:42:17 +03:00
Code Issues Projects Releases Wiki Activity

Index type constructor in RoleAnnotDecl

Browse Source
This commit is contained in:
alexwl 2018-10-14 17:15:05 +03:00
parent c6fc26d897
commit 2b5cbccffa
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/HaskellCodeExplorer/AST/RenamedSource.hs
View File

@ -62,6 +62,7 @@ import GHC
, TyFamEqn(..)
#endif
, Type
, RoleAnnotDecl(..)
, unLoc
)
#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0)
@ -111,7 +112,8 @@ namesFromRenamedSource =
hsRecFieldExprNames `extQ`
hsRecAmbFieldExprNames `extQ`
hsRecFieldPatNames `extQ`
foreignDeclNames)
foreignDeclNames `extQ`
roleAnnotationNames)
#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0)
fieldOccName :: Bool -> FieldOcc GhcRn -> NameOccurrence
@ -599,3 +601,16 @@ foreignDeclNames decl =
, isBinder = True
}
]
#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0)
roleAnnotationNames :: RoleAnnotDecl GhcRn -> [NameOccurrence]
#else
roleAnnotationNames :: RoleAnnotDecl Name -> [NameOccurrence]
#endif
roleAnnotationNames (RoleAnnotDecl n _) =
[ NameOccurrence
{ locatedName = Just <$> n
, description = "RoleAnnotDecl"
, isBinder = False
}
]