servant-mock 0.8.1.2 → 0.8.2
raw patch · 3 files changed
+18/−3 lines, 3 filesdep ~QuickCheckdep ~http-typesdep ~servant
Dependency ranges changed: QuickCheck, http-types, servant, servant-server
Files
- CHANGELOG.md +6/−0
- servant-mock.cabal +3/−3
- src/Servant/Mock.hs +9/−0
CHANGELOG.md view
@@ -1,3 +1,9 @@+0.8.2+-----++- Support for servant-0.11+ Add `HasMock EmptyAPI` instance+ 0.8.1.2 -------
servant-mock.cabal view
@@ -1,5 +1,5 @@ name: servant-mock-version: 0.8.1.2+version: 0.8.2 synopsis: Derive a mock server for free from your servant API types description: Derive a mock server for free from your servant API types@@ -33,8 +33,8 @@ base >=4.7 && <5, bytestring >=0.10.4 && <0.11, http-types >=0.8 && <0.10,- servant >=0.8 && <0.11,- servant-server >=0.8 && <0.11,+ servant >=0.8 && <0.12,+ servant-server >=0.8 && <0.12, transformers >=0.3 && <0.6, QuickCheck >=2.7 && <2.10, wai >=3.0 && <3.3
src/Servant/Mock.hs view
@@ -160,11 +160,20 @@ mock _ _ = mockArbitrary instance HasMock Raw context where+#if MIN_VERSION_servant(0,11,0)+ mock _ _ = Tagged $ \_req respond -> do+#else mock _ _ = \_req respond -> do+#endif bdy <- genBody respond $ responseLBS status200 [] bdy where genBody = pack <$> generate (vector 100 :: Gen [Char])++#if MIN_VERSION_servant(0,11,0)+instance HasMock EmptyAPI context where+ mock _ _ = emptyServer+#endif instance (HasContextEntry context (NamedContext name subContext), HasMock rest subContext) => HasMock (WithNamedContext name subContext rest) context where