From 6850aba2a47e9fc10eaf78893d6e09a9c60dd669 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 29 Mar 2018 09:28:07 -0400
Subject: [PATCH] Define a Located location 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 b7a78c51b..2aedd65c4 100644
--- a/src/Data/Abstract/Located.hs
+++ b/src/Data/Abstract/Located.hs
@@ -5,3 +5,5 @@ import Data.Record
 
 -- TODO: Dependencies
 type Provenance = Record Location
+
+data Located location = Located { provenance :: !Provenance, location :: location }