github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

Use new makeTerm'' for Ruby assignment

Browse Source
This commit is contained in:
Timothy Clem 2018-01-17 08:57:39 -08:00
parent e524d74328
commit ebb1e7f2cc
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Language/Ruby/Assignment.hs
View File

@ -12,7 +12,7 @@ import Data.Maybe (fromMaybe)
import Data.Record
import Data.Functor (void)
import Data.List.NonEmpty (some1)
import Data.Syntax (contextualize, postContextualize, emptyTerm, parseError, handleError, infixContext, makeTerm, makeTerm', makeTerm1)
import Data.Syntax (contextualize, postContextualize, emptyTerm, parseError, handleError, infixContext, makeTerm, makeTerm', makeTerm'', makeTerm1)
import qualified Data.Syntax as Syntax
import qualified Data.Syntax.Comment as Comment
import qualified Data.Syntax.Declaration as Declaration
@ -136,14 +136,10 @@ expressionChoices =
mk s construct = makeTerm <$> symbol s <*> children ((construct .) . fromMaybe <$> emptyTerm <*> optional (symbol ArgumentList *> children expressions))
expressions :: Assignment
expressions = mk <$> location <*> many expression
where mk _ [a] = a
mk loc children = makeTerm loc children
expressions = makeTerm'' <$> location <*> many expression
parenthesized_expressions :: Assignment
parenthesized_expressions = mk <$> symbol ParenthesizedStatements <*> children (many expression)
where mk _ [a] = a
mk loc children = makeTerm loc children
parenthesized_expressions = makeTerm'' <$> symbol ParenthesizedStatements <*> children (many expression)
identifier :: Assignment
identifier =