From 438c19dd50787b85c32e31296419ee72e631f231 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 29 Mar 2018 09:31:08 -0400 Subject: [PATCH] Derive Eq, Ord, & Show instances for LocatedValue. --- src/Data/Abstract/Located.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Data/Abstract/Located.hs b/src/Data/Abstract/Located.hs index 3bea78f47..d14daba6b 100644 --- a/src/Data/Abstract/Located.hs +++ b/src/Data/Abstract/Located.hs @@ -13,6 +13,7 @@ data Located location = Located { provenance :: !Provenance, location :: locatio deriving (Eq, Ord, Show) newtype LocatedValue value = LocatedValue { getLocatedValue :: value } + deriving (Eq, Ord, Show) instance AbstractValue (LocatedValue value) where type LocationFor (LocatedValue value) = Located (LocationFor value)