📝 the left-recursive instance.

2024-11-25 02:58:36 +03:00 · 2019-10-08 15:41:10 -04:00 · 2019-10-08 15:41:10 -04:00 · 5242e394df
commit 5242e394df
parent 579e5792e8
1 changed files with 1 additions and 0 deletions
--- a/semantic-tags/src/AST/Element.hs
+++ b/semantic-tags/src/AST/Element.hs
@ -49,6 +49,7 @@ class Element' (side :: Side) sub sup where
 instance Element' 'Here t t where
  prj' = Just

+-- | Membershp on the left.
 instance Element     t l
      => Element' 'L t (l :+: r) where
  prj' (L1 l) = prj l