1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00

Add missing arbitrary instances for Category constructors

This commit is contained in:
Rick Winfrey 2016-08-12 12:42:22 -05:00
parent 2d63f3f1f1
commit d226eacdfc

View File

@ -40,6 +40,8 @@ data Category
| IntegerLiteral | IntegerLiteral
-- | A regex literal. -- | A regex literal.
| Regex | Regex
-- | A return statement.
| Return
-- | A symbol literal. -- | A symbol literal.
| SymbolLiteral | SymbolLiteral
-- | A template string literal. -- | A template string literal.
@ -74,8 +76,6 @@ data Category
| Operator | Operator
-- | An object/dictionary/hash literal. -- | An object/dictionary/hash literal.
| Object | Object
-- | A return statement.
| Return
-- | A throw statement. -- | A throw statement.
| Throw | Throw
-- | A constructor statement, e.g. new Foo; -- | A constructor statement, e.g. new Foo;
@ -116,6 +116,7 @@ instance Arbitrary Category where
, pure StringLiteral , pure StringLiteral
, pure IntegerLiteral , pure IntegerLiteral
, pure Regex , pure Regex
, pure Return
, pure SymbolLiteral , pure SymbolLiteral
, pure TemplateString , pure TemplateString
, pure ArrayLiteral , pure ArrayLiteral
@ -133,6 +134,13 @@ instance Arbitrary Category where
, pure Case , pure Case
, pure Operator , pure Operator
, pure Object , pure Object
, pure Throw
, pure Constructor
, pure Try
, pure Catch
, pure Finally
, pure Class
, pure Method
, Other <$> arbitrary , Other <$> arbitrary
] ]