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

Update CPPDirective to take Text not Name

Browse Source
This commit is contained in:
Rick Winfrey 2018-06-19 11:55:15 -07:00
parent 04c59ecdab
commit 50e345afb6
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Language/Haskell/Assignment.hs
View File

@ -200,7 +200,7 @@ contextPattern :: Assignment
contextPattern = symbol ContextPattern *> children expressions contextPattern = symbol ContextPattern *> children expressions
cppDirective :: Assignment cppDirective :: Assignment
cppDirective = makeTerm <$> symbol CppDirective <*> (Syntax.CPPDirective . Name.name <$> source) cppDirective = makeTerm <$> symbol CppDirective <*> (Syntax.CPPDirective <$> source)
defaultDeclaration :: Assignment defaultDeclaration :: Assignment
defaultDeclaration = makeTerm <$> symbol DefaultDeclaration <*> children (Syntax.DefaultDeclaration <$> manyTerm expression) defaultDeclaration = makeTerm <$> symbol DefaultDeclaration <*> children (Syntax.DefaultDeclaration <$> manyTerm expression)

2
src/Language/Haskell/Syntax.hs
View File

@ -562,7 +562,7 @@ instance Show1 PrefixNegation where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable PrefixNegation instance Evaluatable PrefixNegation
newtype CPPDirective a = CPPDirective Name newtype CPPDirective a = CPPDirective Text
deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable) deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
instance Eq1 CPPDirective where liftEq = genericLiftEq instance Eq1 CPPDirective where liftEq = genericLiftEq