@@ -72,9 +72,9 @@ serversEqualSpec = describe "serversEqual" $ do
7272 context "when JSON is equal but looks a bit different as a ByteString" $ do
7373
7474 it "sanity check: different whitespace same JSON objects bodyEquality fails" $ do
75− Right (Failure _ err) <- withServantServer jsonApi jsonServer1 $ \burl1 ->
75+ FailedWith err <- withServantServer jsonApi jsonServer1 $ \burl1 ->
7676 withServantServer jsonApi jsonServer2 $ \burl2 -> do
77− safeEvalExample $ serversEqual jsonApi burl1 burl2 args bodyEquality
77+ evalExample $ serversEqual jsonApi burl1 burl2 args bodyEquality
7878 show err `shouldContain` "Server equality failed"
7979
8080 it "jsonEquality considers equal JSON apis equal regardless of key ordering or whitespace" $ do
@@ -83,16 +83,16 @@ serversEqualSpec = describe "serversEqual" $ do
8383 serversEqual jsonApi burl1 burl2 args jsonEquality
8484
8585 it "sees when JSON apis are not equal because any value is different" $ do
86− Right (Failure _ err) <- withServantServer jsonApi jsonServer2 $ \burl1 ->
86+ FailedWith err <- withServantServer jsonApi jsonServer2 $ \burl1 ->
8787 withServantServer jsonApi jsonServer3 $ \burl2 -> do
88− safeEvalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality
88+ evalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality
8989 show err `shouldContain` "Server equality failed"
9090 show err `shouldContain` "Path: /jsonComparison"
9191
9292 it "sees when JSON apis are not equal due to different keys but same values" $ do
93− Right (Failure _ err) <- withServantServer jsonApi jsonServer2 $ \burl1 ->
93+ FailedWith err <- withServantServer jsonApi jsonServer2 $ \burl1 ->
9494 withServantServer jsonApi jsonServer4 $ \burl2 -> do
95− safeEvalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality
95+ evalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality
9696 show err `shouldContain` "Server equality failed"
9797 show err `shouldContain` "Path: /jsonComparison"
9898