diff --git a/servant-swagger/src/Servant/Swagger.hs b/servant-swagger/src/Servant/Swagger.hs index c45b0fbc..0ceea5bc 100644 --- a/servant-swagger/src/Servant/Swagger.hs +++ b/servant-swagger/src/Servant/Swagger.hs @@ -160,11 +160,11 @@ import Servant.Swagger.Internal.Orphans () -- >>> instance Arbitrary UserId where arbitrary = UserId <$> arbitrary -- >>> hspec $ validateEveryToJSON (Proxy :: Proxy UserAPI) -- --- [User] +-- [User]... -- ... --- User +-- User... -- ... --- UserId +-- UserId... -- ... -- Finished in ... seconds -- 3 examples, 0 failures diff --git a/servant-swagger/src/Servant/Swagger/Internal/Test.hs b/servant-swagger/src/Servant/Swagger/Internal/Test.hs index 0fecb0a1..e1e32766 100644 --- a/servant-swagger/src/Servant/Swagger/Internal/Test.hs +++ b/servant-swagger/src/Servant/Swagger/Internal/Test.hs @@ -53,10 +53,10 @@ import Servant.Swagger.Internal.TypeLevel -- -- >>> hspec $ context "ToJSON matches ToSchema" $ validateEveryToJSON (Proxy :: Proxy UserAPI) -- --- ToJSON matches ToSchema --- User +-- ToJSON matches ToSchema... +-- User... -- ... --- UserId +-- UserId... -- ... -- Finished in ... seconds -- 2 examples, 0 failures @@ -118,11 +118,11 @@ validateEveryToJSONWithPatternChecker checker _ = props -- :} -- -- read . show == id --- Bool +-- Bool... -- ... --- Int +-- Int... -- ... --- [Char] +-- [Char]... -- ... -- Finished in ... seconds -- 3 examples, 0 failures