From fc262873f364a3a093808c738c5d2715e774b85c Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 29 Mar 2018 09:56:50 -0400
Subject: [PATCH] Rename the LocatedValue eliminator.

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

diff --git a/src/Data/Abstract/Located.hs b/src/Data/Abstract/Located.hs
index d81923b56..ac599027e 100644
--- a/src/Data/Abstract/Located.hs
+++ b/src/Data/Abstract/Located.hs
@@ -18,7 +18,7 @@ instance Location location => Location (Located location) where
   type Cell (Located location) = Cell location
 
 
-newtype LocatedValue value = LocatedValue { getLocatedValue :: value }
+newtype LocatedValue value = LocatedValue { unLocatedValue :: value }
   deriving (Eq, Ord, Show)
 
 instance AbstractValue (LocatedValue value) where