adjust precedence of (:-)

so `skip $ "grp" :- [...]` works
2022-05-07 21:30:41 +02:00 · 2022-05-07 21:30:41 +02:00 · 12753eb894
parent 809a0fc859
commit 12753eb894
1 changed files with 1 additions and 1 deletions
--- a/tests/TAP.idr
+++ b/tests/TAP.idr
@ -101,7 +101,7 @@ testThrows label p act = One $ MakeTest label $ do
       Left  err => if p err then success () else failure err
       Right val => failure [("success", val)]

-infix 0 :-
+infix 1 :-
 export %inline
 (:-) : String -> List Test -> Test
 (:-) = Group