From dd94bfc732657b829e23c77da9c6c833304b2a8f Mon Sep 17 00:00:00 2001 From: joshvera Date: Mon, 21 Aug 2017 18:50:50 -0400 Subject: [PATCH] Fix typeParameters in class assignment --- src/Language/TypeScript/Syntax.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/TypeScript/Syntax.hs b/src/Language/TypeScript/Syntax.hs index 0591a2531..9f965d338 100644 --- a/src/Language/TypeScript/Syntax.hs +++ b/src/Language/TypeScript/Syntax.hs @@ -555,7 +555,7 @@ literal = <|> makeTerm <$> symbol Regex <*> (Literal.TextElement <$> source) class' :: Assignment -class' = makeTerm <$> symbol Class <*> children (Declaration.Class <$> expression <*> ((pure . (:[]) <$> typeParameters) <|> pure []) (superclass <|> pure []) <*> classBodyStatements) +class' = makeTerm <$> symbol Class <*> children (Declaration.Class <$> expression <*> (many typeParameter' <|> pure []) (superclass <|> pure []) <*> classBodyStatements) where superclass = pure <$ symbol Grammar.ClassHeritage <*> children expression object :: Assignment