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

Add VarDecl/VarAssignment cases to Diff.Arbitrary

Browse Source
This commit is contained in:
joshvera 2016-06-14 17:43:42 -07:00
parent 79fb347748
commit df489c8ef2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Diff/Arbitrary.hs
View File

@ -72,5 +72,6 @@ instance (Eq leaf, Eq annotation, Arbitrary leaf, Arbitrary annotation) => Arbit
Assignment assignmentId value -> Assignment <$> shrink assignmentId <*> shrink value
Syntax.Args args -> Syntax.Args <$> (List.subsequences args >>= recursivelyShrink)
Syntax.MemberAccess memberId property -> Syntax.MemberAccess <$> shrink memberId <*> shrink property
Syntax.If cond ifExpr elseExpr -> Syntax.If <$> shrink cond <*> shrink ifExpr <*> shrink elseExpr
Syntax.VarDecl decl -> Syntax.VarDecl <$> shrink decl
Syntax.VarAssignment varId value -> Syntax.VarAssignment <$> shrink varId <*> shrink value
Pure patch -> ArbitraryDiff . Pure <$> shrink patch