From 81e5fa061a0fd98465f2567b94487e891b817498 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Wed, 7 Mar 2018 11:50:15 -0500
Subject: [PATCH] Use a pointful definition for <>.

---
 src/Data/Abstract/Address.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Abstract/Address.hs b/src/Data/Abstract/Address.hs
index ccd4dfd29..0dff7820a 100644
--- a/src/Data/Abstract/Address.hs
+++ b/src/Data/Abstract/Address.hs
@@ -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