new hashable version changed the key ordering in aeson

servant-docs/test/Servant/DocsSpec.hs

@@ -127,7 +127,11 @@ spec = describe "Servant.Docs" $ do
       md `shouldContain` "- This endpoint is sensitive to the value of the **X-Test** HTTP header."
 
     it "contains response samples" $
-      md `shouldContain` "{\"dt1field1\":\"field 1\",\"dt1field2\":13}"
+      -- aeson does not guarantee a stable key ordering
+      md `shouldContainOneOf`
+        [ "{\"dt1field2\":13,\"dt1field1\":\"field 1\"}"
+        , "{\"dt1field1\":\"field 1\",\"dt1field2\":13}"
+        ]
     it "contains request body samples" $
       md `shouldContain` "17"
 
@@ -206,6 +210,9 @@ shouldBe = (@?=)
 shouldContain :: (Eq a, Show a, HasCallStack) => [a] -> [a] -> Assertion
 shouldContain = compareWith (flip isInfixOf) "does not contain"
 
+shouldContainOneOf :: (Eq a, Show a, HasCallStack) => [a] -> [[a]] -> Assertion
+shouldContainOneOf = compareWith (any . flip isInfixOf) "does not contain one of"
+
 shouldNotContain :: (Eq a, Show a, HasCallStack) => [a] -> [a] -> Assertion
 shouldNotContain = compareWith (\x y -> not (isInfixOf y x)) "contains"