mirror of
https://github.com/github/semantic.git
synced 2024-12-30 02:14:20 +03:00
Add an Unknown
constructor for Accessibility
This commit is contained in:
parent
394c8744d9
commit
5dab74f5ea
@ -74,6 +74,7 @@ instance FreeVariables1 Function where
|
||||
data Accessibility a = Public { unPublic :: a }
|
||||
| Protected { unProtected :: a }
|
||||
| Private { unPrivate :: a }
|
||||
| Unknown
|
||||
deriving (Diffable, Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, ToJSONFields1, Named1, Message1, NFData1)
|
||||
|
||||
instance Eq1 Accessibility where liftEq = genericLiftEq
|
||||
|
Loading…
Reference in New Issue
Block a user