github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Correct precedence.

Browse Source
This commit is contained in:
Rob Rix 2017-09-01 11:51:18 -04:00
parent 5366bfff3c
commit bad1c832f0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,7 +149,7 @@ spec = do
describe "catchError" $ do
it "catches failed committed choices" $
fst <$> runAssignment "A"
(symbol Green *> children red `catchError` \ _ -> OutError <$ location <*> source)
((symbol Green *> children red) `catchError` \ _ -> OutError <$ location <*> source)
(makeState [node Green 0 1 []])
`shouldBe`
Right (OutError "A")