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

Define an Element instance for matching on the left.

Browse Source
This commit is contained in:
Rob Rix 2019-09-23 15:02:17 -04:00
parent fe76c3dca6
commit 4199011b42
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
semantic-tags/src/Tags/Taggable/Precise.hs
View File

@ -143,3 +143,8 @@ instance {-# OVERLAPPABLE #-}
reassoc (L1 (L1 l)) = L1 l reassoc (L1 (L1 l)) = L1 l
reassoc (L1 (R1 l)) = R1 (L1 l) reassoc (L1 (R1 l)) = R1 (L1 l)
reassoc (R1 r) = R1 (R1 r) reassoc (R1 r) = R1 (R1 r)
instance {-# OVERLAPPABLE #-}
Element t (t :+: r) where
prj (L1 l) = Just l
prj _ = Nothing