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

🔥 Identifier.

Browse Source
This commit is contained in:
Rob Rix 2017-04-27 16:18:11 -04:00
parent 448bde4861
commit 9dac0260e3
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Renderer/JSON.hs
View File

@ -250,9 +250,6 @@ jsonParseTree' constructor combine debug SourceBlob{..} term = toJSON $ construc
-- | A function computing a value to decorate terms with. This can be used to cache synthesized attributes on terms. -- | A function computing a value to decorate terms with. This can be used to cache synthesized attributes on terms.
type TermDecorator f fields field = TermF f (Record fields) (Term f (Record (field ': fields))) -> field type TermDecorator f fields field = TermF f (Record fields) (Term f (Record (field ': fields))) -> field
newtype Identifier = Identifier Text
deriving (Eq, Show, ToJSON)
data RoseF a b = RoseF a [b] data RoseF a b = RoseF a [b]
deriving (Eq, Functor, Show) deriving (Eq, Functor, Show)