mirror of
https://github.com/github/semantic.git
synced 2024-11-24 08:54:07 +03:00
use EPrj in NewExpression
This commit is contained in:
parent
8e3b0ee31e
commit
6d13aa1491
@ -80,7 +80,7 @@ instance ToTags Ts.CallExpression where
|
|||||||
where
|
where
|
||||||
match expr = case expr of
|
match expr = case expr of
|
||||||
Prj Ts.Identifier {text, ann} -> yield text ann
|
Prj Ts.Identifier {text, ann} -> yield text ann
|
||||||
Prj Ts.NewExpression {constructor = Parse.Success (Prj Ts.Identifier {text, ann})} -> yield text ann
|
Prj Ts.NewExpression {constructor = EPrj Ts.Identifier {text, ann}} -> yield text ann
|
||||||
Prj Ts.CallExpression {function = Parse.Success (Ts.Expression expr)} -> match expr
|
Prj Ts.CallExpression {function = Parse.Success (Ts.Expression expr)} -> match expr
|
||||||
Prj Ts.MemberExpression {property = Parse.Success (Ts.PropertyIdentifier {text, ann})} -> yield text ann
|
Prj Ts.MemberExpression {property = Parse.Success (Ts.PropertyIdentifier {text, ann})} -> yield text ann
|
||||||
Prj Ts.Function {name = Just (Parse.Success (Ts.Identifier {text, ann}))} -> yield text ann
|
Prj Ts.Function {name = Just (Parse.Success (Ts.Identifier {text, ann}))} -> yield text ann
|
||||||
|
Loading…
Reference in New Issue
Block a user