github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00
Code Issues Projects Releases Wiki Activity

Use a pointful definition for <>.

Browse Source
This commit is contained in:
Rob Rix 2018-03-07 11:50:15 -05:00
parent 15f8962700
commit 81e5fa061a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Abstract/Address.hs
View File

@ -34,7 +34,7 @@ newtype Latest a = Latest { unLatest :: a }
deriving (Eq, Foldable, Functor, Generic1, Ord, Show, Traversable)
instance Semigroup (Latest a) where
(<>) = flip const
_ <> a = a
instance Pointed Latest where
point = Latest