github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 13:21:59 +03:00
Code Issues Projects Releases Wiki Activity

Define __semantic_self

Browse Source 
Co-Authored-By: Rob Rix <rob.rix@github.com>
This commit is contained in:
Rick Winfrey 2018-12-13 11:32:24 -08:00
parent 317462e73a
commit 0c22d4da4b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Abstract/Name.hs
View File

@ -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"