alexwl/haskell-code-explorer
1
1
Fork 0
mirror of https://github.com/alexwl/haskell-code-explorer.git synced 2024-11-23 00:37:44 +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(..) , TyFamEqn(..)
#endif #endif
, Type , Type
, RoleAnnotDecl(..)
, unLoc , unLoc
) )
#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0) #if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0)
@ -111,7 +112,8 @@ namesFromRenamedSource =
hsRecFieldExprNames `extQ` hsRecFieldExprNames `extQ`
hsRecAmbFieldExprNames `extQ` hsRecAmbFieldExprNames `extQ`
hsRecFieldPatNames `extQ` hsRecFieldPatNames `extQ`
foreignDeclNames) foreignDeclNames `extQ`
roleAnnotationNames)
#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0) #if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0)
fieldOccName :: Bool -> FieldOcc GhcRn -> NameOccurrence fieldOccName :: Bool -> FieldOcc GhcRn -> NameOccurrence
@ -599,3 +601,16 @@ foreignDeclNames decl =
, isBinder = True , 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
}
]