diff --git a/src/Language/Ruby/Syntax.hs b/src/Language/Ruby/Syntax.hs index fcbfd881f..7cc4c7077 100644 --- a/src/Language/Ruby/Syntax.hs +++ b/src/Language/Ruby/Syntax.hs @@ -170,8 +170,7 @@ keyword = mk KeywordFILE <|> mk KeywordLINE <|> mk KeywordENCODING - -- TODO: Give keywords their own Expression? - where mk s = makeTerm <$> symbol s <*> (Literal.TextElement <$> source) + where mk s = makeTerm <$> symbol s <*> (Syntax.Identifier <$> source) beginBlock :: Assignment beginBlock = makeTerm <$> symbol BeginBlock <*> children (Statement.ScopeEntry <$> many statement)