github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

Correct indentation.

Browse Source
This commit is contained in:
Rob Rix 2017-04-24 10:44:37 -04:00
parent de0cdc98aa
commit 55934f656b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Data/Syntax/Assignment/Spec.hs
View File

@ -66,7 +66,7 @@ spec = do
(many (symbol Red *> children (symbol Green *> source)
<|> symbol Blue *> source))
(startingState "BC" [ Rose (rec Red 0 1) [ Rose (rec Green 0 1) [] ]
, Rose (rec Blue 1 2) [] ])
, Rose (rec Blue 1 2) [] ])
`shouldBe`
Result (AssignmentState 2 (Info.SourcePos 1 3) (Source "") [], ["B", "C"])
@ -74,7 +74,7 @@ spec = do
runAssignment
(symbol Red *> children (many (symbol Green *> children (symbol Blue *> source))))
(startingState "12" [ Rose (rec Red 0 2) [ Rose (rec Green 0 1) [ Rose (rec Blue 0 1) [] ]
, Rose (rec Green 1 2) [ Rose (rec Blue 1 2) [] ] ] ])
, Rose (rec Green 1 2) [ Rose (rec Blue 1 2) [] ] ] ])
`shouldBe`
Result (AssignmentState 2 (Info.SourcePos 1 3) (Source "") [], ["1", "2"])