@@ -467,7 +467,7 @@ try t1 t2 = do s <- get
467 Error e1 -> if recoverableErr e1 then
467 Error e1 -> if recoverableErr e1 then
468 do case runStateT t2 s of
468 do case runStateT t2 s of
469 OK (v, s') -> do put s'; return v
469 OK (v, s') -> do put s'; return v
470− Error e2 -> if score e1 > score e2
470+ Error e2 -> if score e1 >= score e2
471 then lift (tfail e1)
471 then lift (tfail e1)
472 else lift (tfail e2)
472 else lift (tfail e2)
473 else lift (tfail e1)
473 else lift (tfail e1)