github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-04 21:47:07 +03:00
Code Issues Projects Releases Wiki Activity

Derive an AccessControls instance for TSX.Term.

Browse Source
This commit is contained in:
Rob Rix 2019-10-18 16:35:08 -04:00
parent cbb366235d
commit 78e332d5ba
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Abstract/AccessControls/Instances.hs
View File

@ -21,10 +21,12 @@ import qualified Language.PHP.Syntax as PHP
import qualified Language.Python.Syntax as Python
import qualified Language.Ruby.Syntax as Ruby
import qualified Language.TSX.Syntax as TSX
import qualified Language.TSX.Term as TSX
import qualified Language.TypeScript.Syntax as TypeScript
import Data.Quieterm
deriving instance AccessControls1 syntax => AccessControls (Term syntax ann)
deriving instance AccessControls (TSX.Term ann)
instance (AccessControls recur, AccessControls1 syntax) => AccessControls (TermF syntax ann recur) where
termToAccessControl = liftTermToAccessControl termToAccessControl . termFOut