From 3466a6d3ffa059ab662f5b53354c58d82203ade7 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 29 Mar 2018 09:28:20 -0400
Subject: [PATCH] Define a LocatedValue value type.

---
 src/Data/Abstract/Located.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Data/Abstract/Located.hs b/src/Data/Abstract/Located.hs
index 2aedd65c4..ae10f85bb 100644
--- a/src/Data/Abstract/Located.hs
+++ b/src/Data/Abstract/Located.hs
@@ -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 }