github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-01 11:46:14 +03:00
Code Issues Projects Releases Wiki Activity

Comment out other AccessControl constructors

Browse Source 
I'm not sure why this is causing problems for the proto roundtrip tests
This commit is contained in:
Rick Winfrey 2019-01-22 16:58:18 -08:00
parent 736ead4ade
commit d1a9d56dfb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -240,7 +240,7 @@ instance Listable1 Declaration.Method where
liftTiers tiers = liftCons6 (liftTiers tiers) tiers tiers tiers (liftTiers tiers) tiers Declaration.Method liftTiers tiers = liftCons6 (liftTiers tiers) tiers tiers tiers (liftTiers tiers) tiers Declaration.Method
instance Listable1 Declaration.AccessControl where instance Listable1 Declaration.AccessControl where
liftTiers tiers = cons0 Declaration.Unknown \/ cons0 Declaration.Public \/ cons0 Declaration.Protected \/ cons0 Declaration.Private liftTiers tiers = cons0 Declaration.Public -- \/ cons0 Declaration.Protected \/ cons0 Declaration.Private \/ cons0 Declaration.Unknown
instance Listable1 Statement.If where instance Listable1 Statement.If where
liftTiers tiers = liftCons3 tiers tiers tiers Statement.If liftTiers tiers = liftCons3 tiers tiers tiers Statement.If