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)