From fa2b566f080162435b9bbcef1c7e16460c3cc127 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 11 May 2018 08:58:53 -0400
Subject: [PATCH] Fix a doctest.

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

diff --git a/src/Data/Abstract/Environment.hs b/src/Data/Abstract/Environment.hs
index f8e11b380..16b1b7b4c 100644
--- a/src/Data/Abstract/Environment.hs
+++ b/src/Data/Abstract/Environment.hs
@@ -85,7 +85,7 @@ mergeNewer (Environment a) (Environment b) =
 -- | Extract an association list of bindings from an 'Environment'.
 --
 -- >>> pairs shadowed
--- [(Name "foo",Address {unAddress = Precise 1)]
+-- [(Name "foo",Address (Precise 1))]
 pairs :: Environment location value -> [(Name, Address location value)]
 pairs = map (second Address) . Map.toList . fold . unEnvironment