github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-25 02:58:36 +03:00
Code Issues Projects Releases Wiki Activity

📝 the left-recursive instance.

Browse Source
This commit is contained in:
Rob Rix 2019-10-08 15:41:10 -04:00
parent 579e5792e8
commit 5242e394df
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
semantic-tags/src/AST/Element.hs
View File

@ -49,6 +49,7 @@ class Element' (side :: Side) sub sup where
instance Element' 'Here t t where instance Element' 'Here t t where
prj' = Just prj' = Just
-- | Membershp on the left.
instance Element t l instance Element t l
=> Element' 'L t (l :+: r) where => Element' 'L t (l :+: r) where
prj' (L1 l) = prj l prj' (L1 l) = prj l