github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00
Code Issues Projects Releases Wiki Activity

Derive Eq, Ord, & Show instances for LocatedValue.

Browse Source
This commit is contained in:
Rob Rix 2018-03-29 09:31:08 -04:00
parent e51d095372
commit 438c19dd50
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Abstract/Located.hs
View File

@ -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)