mirror of
https://github.com/github/semantic.git
synced 2024-11-28 01:47:01 +03:00
Correct the sense of categories comparing.
This commit is contained in:
parent
8b74a99e7e
commit
c520a03f7b
@ -11,4 +11,4 @@ instance Categorizable annotation => Categorizable (Term a annotation) where
|
||||
categories (annotation :< _) = categories annotation
|
||||
|
||||
comparable :: Categorizable a => a -> a -> Bool
|
||||
comparable a b = Data.Set.null $ intersection (categories a) (categories b)
|
||||
comparable a b = not . Data.Set.null $ intersection (categories a) (categories b)
|
||||
|
Loading…
Reference in New Issue
Block a user