adjust precedence of (:-)

so `skip $ "grp" :- [...]` works
This commit is contained in:
rhiannon morris 2022-05-07 21:30:41 +02:00
parent 809a0fc859
commit 12753eb894

View file

@ -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