fix arbitrary instance of request id

Author: battermann

libs/types-common/src/Data/Id.hs

@@ -440,7 +440,9 @@ newtype RequestId = RequestId
       Generic,
       ToBytes
     )
-  deriving newtype (Arbitrary)
+
+instance Arbitrary RequestId where
+  arbitrary = RequestId . UUID.toASCIIBytes <$> arbitrary @UUID
 
 defRequestId :: (IsString s) => s
 defRequestId = "N/A"

libs/wire-api/test/unit/Test/Wire/API/Roundtrip/Aeson.hs

@@ -367,7 +367,7 @@ testRoundTrip ::
   T.TestTree
 testRoundTrip = testProperty msg trip
   where
-    msg = show (typeRep @a)
+    msg = show (typeRep @a) <> " JSON roundtrip"
     trip (v :: a) =
       counterexample (show $ toJSON v) $
         Right v === (parseEither parseJSON . toJSON) v