1
1
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:
Rob Rix 2018-03-29 09:28:20 -04:00
parent 6850aba2a4
commit 3466a6d3ff

View File

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