1
1
mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
This commit is contained in:
Rick Winfrey 2017-05-17 17:31:08 -07:00
parent 3de93387b7
commit 82bba4eee6

View File

@ -105,7 +105,7 @@ identifier = makeTerm <$> symbol Identifier <*> (Syntax.Identifier <$> source)
literal :: HasCallStack => Assignment (Node Grammar) (Term Syntax Location)
literal = string <|> integer <|> float <|> boolean <|> none <|> concatenatedString
-- TODO: Wrap `Literal.TextElement` with a `Litera.String`
-- TODO: Wrap `Literal.TextElement` with a `Literal.String`
string :: HasCallStack => Assignment (Node Grammar) (Term Syntax Location)
string = makeTerm <$> symbol String <*> (Literal.TextElement <$> source)