adjust precedence of (:-)
so `skip $ "grp" :- [...]` works
This commit is contained in:
parent
809a0fc859
commit
12753eb894
1 changed files with 1 additions and 1 deletions
|
@ -101,7 +101,7 @@ testThrows label p act = One $ MakeTest label $ do
|
||||||
Left err => if p err then success () else failure err
|
Left err => if p err then success () else failure err
|
||||||
Right val => failure [("success", val)]
|
Right val => failure [("success", val)]
|
||||||
|
|
||||||
infix 0 :-
|
infix 1 :-
|
||||||
export %inline
|
export %inline
|
||||||
(:-) : String -> List Test -> Test
|
(:-) : String -> List Test -> Test
|
||||||
(:-) = Group
|
(:-) = Group
|
||||||
|
|
Loading…
Reference in a new issue