github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-31 10:57:00 +03:00
Code Issues Projects Releases Wiki Activity

Rename the LocatedValue eliminator.

Browse Source
This commit is contained in:
Rob Rix 2018-03-29 09:56:50 -04:00
parent c2f657202b
commit fc262873f3
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/Located.hs
View File

@ -18,7 +18,7 @@ instance Location location => Location (Located location) where
type Cell (Located location) = Cell location type Cell (Located location) = Cell location
newtype LocatedValue value = LocatedValue { getLocatedValue :: value } newtype LocatedValue value = LocatedValue { unLocatedValue :: value }
deriving (Eq, Ord, Show) deriving (Eq, Ord, Show)
instance AbstractValue (LocatedValue value) where instance AbstractValue (LocatedValue value) where