From 7326df0c6520ec43eee1f7053574aae817fea0b3 Mon Sep 17 00:00:00 2001
From: Rick Winfrey <rewinfrey@github.com>
Date: Tue, 15 Jan 2019 17:11:24 -0800
Subject: [PATCH] Define access control on Info

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

diff --git a/src/Data/Abstract/ScopeGraph.hs b/src/Data/Abstract/ScopeGraph.hs
index e2db4dbde..fdb7cd595 100644
--- a/src/Data/Abstract/ScopeGraph.hs
+++ b/src/Data/Abstract/ScopeGraph.hs
@@ -58,6 +58,7 @@ data Relation = Default  AccessControl
 data Info scopeAddress = Info
   { infoDeclaration :: Declaration
   , infoRelation :: Relation
+  , infoAccessControl :: AccessControl
   , infoSpan :: Span
   , infoAssociatedScope :: Maybe scopeAddress
   } deriving (Eq, Show, Ord, Generic, NFData)