From 5dab74f5ea00f746fd72a246c13d36b0616f7e54 Mon Sep 17 00:00:00 2001
From: Rick Winfrey <rewinfrey@github.com>
Date: Mon, 17 Dec 2018 17:51:30 -0800
Subject: [PATCH] Add an `Unknown` constructor for `Accessibility`

---
 src/Data/Syntax/Declaration.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Data/Syntax/Declaration.hs b/src/Data/Syntax/Declaration.hs
index 759b4b646..006e705ce 100644
--- a/src/Data/Syntax/Declaration.hs
+++ b/src/Data/Syntax/Declaration.hs
@@ -74,6 +74,7 @@ instance FreeVariables1 Function where
 data Accessibility a = Public { unPublic :: a }
                      | Protected { unProtected :: a }
                      | Private { unPrivate :: a }
+                     | Unknown
                      deriving (Diffable, Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, ToJSONFields1, Named1, Message1, NFData1)
 
 instance Eq1 Accessibility where liftEq = genericLiftEq