mirror of
https://github.com/github/semantic.git
synced 2024-12-22 14:21:31 +03:00
Define a LocatedValue value type.
This commit is contained in:
parent
6850aba2a4
commit
3466a6d3ff
@ -7,3 +7,5 @@ import Data.Record
|
||||
type Provenance = Record Location
|
||||
|
||||
data Located location = Located { provenance :: !Provenance, location :: location }
|
||||
|
||||
newtype LocatedValue value = LocatedValue { getLocatedValue :: value }
|
||||
|
Loading…
Reference in New Issue
Block a user