change V13 name separator

This commit is contained in:
rhiannon morris 2023-03-05 13:11:52 +01:00
parent 17399cafd9
commit aba132b542

View file

@ -178,7 +178,7 @@ header tests =
private private
withPrefix : SnocList String -> TestBase -> Test withPrefix : SnocList String -> TestBase -> Test
withPrefix pfx = One . {label $= (makePrefix pfx ++)} withPrefix pfx = One . {label $= (makePrefix pfx ++)}
where makePrefix = concatMap $ \s => "\{s} " where makePrefix = concatMap $ \s => "\{s} » "
mutual mutual
||| flatten some tests, starting with the prefix given ||| flatten some tests, starting with the prefix given