github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

Fix the Listable instances for ToC.

Browse Source
This commit is contained in:
Rob Rix 2019-10-17 03:45:29 -04:00
parent b682d04653
commit e340b43500
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
test/Data/Functor/Listable.hs
View File

@ -16,7 +16,7 @@ module Data.Functor.Listable
, ListableSyntax
) where
import Analysis.TOCSummary
import qualified Analysis.TOCSummary as ToC
import Data.Abstract.ScopeGraph (AccessControl(..))
import Data.Bifunctor.Join
import Data.Diff
@ -215,11 +215,14 @@ instance Listable Name.Name where
instance Listable Text where
tiers = pack `mapT` tiers
instance Listable Declaration where
instance Listable ToC.Declaration where
tiers = cons5 ToC.Declaration
instance Listable ToC.Kind where
tiers
= cons5 MethodDeclaration
\/ cons4 FunctionDeclaration
\/ cons3 (\ a b c -> ErrorDeclaration a b c Language.Unknown)
= cons1 ToC.Method
\/ cons0 ToC.Function
\/ cons0 ToC.Error
instance Listable Language.Language where
tiers