From 0c22d4da4badcddfe466e896407ad54d365b2727 Mon Sep 17 00:00:00 2001
From: Rick Winfrey <rewinfrey@github.com>
Date: Thu, 13 Dec 2018 11:32:24 -0800
Subject: [PATCH] Define `__semantic_self`

Co-Authored-By: Rob Rix <rob.rix@github.com>
---
 src/Data/Abstract/Name.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Data/Abstract/Name.hs b/src/Data/Abstract/Name.hs
index dc6cd96a0..cfa14895a 100644
--- a/src/Data/Abstract/Name.hs
+++ b/src/Data/Abstract/Name.hs
@@ -6,6 +6,7 @@ module Data.Abstract.Name
 , name
 , nameI
 , formatName
+, __semantic_self
 ) where
 
 import           Control.Effect
@@ -70,3 +71,6 @@ instance Hashable Name where
 instance ToJSON Name where
   toJSON = toJSON . formatName
   toEncoding = toEncoding . formatName
+
+__semantic_self :: Name
+__semantic_self = name "__self"