File tree Expand file tree Collapse file tree 7 files changed +26
-14
lines changed Expand file tree Collapse file tree 7 files changed +26
-14
lines changed Original file line number Diff line number Diff line change @@ -37,7 +37,7 @@ library
37
37
build-depends :
38
38
base >= 4.7 && < 4.10
39
39
, base-compat >= 0.9.1 && < 0.10
40
- , aeson >= 0.7 && < 1.1
40
+ , aeson >= 0.7 && < 1.2
41
41
, attoparsec >= 0.12 && < 0.14
42
42
, base64-bytestring >= 1.0.0.1 && < 1.1
43
43
, bytestring >= 0.10 && < 0.11
Original file line number Diff line number Diff line change @@ -47,7 +47,7 @@ library
47
47
build-depends :
48
48
base >= 4.7 && < 4.10
49
49
, base-compat >= 0.9 && < 0.10
50
- , aeson >= 0.7 && < 1.1
50
+ , aeson >= 0.7 && < 1.2
51
51
, attoparsec >= 0.12 && < 0.14
52
52
, base64-bytestring >= 1.0 && < 1.1
53
53
, bytestring >= 0.10 && < 0.11
@@ -117,7 +117,7 @@ test-suite spec
117
117
, directory
118
118
, exceptions
119
119
, hspec == 2. *
120
- , hspec-wai
120
+ , hspec-wai >= 0.8 && < 0.9
121
121
, http-types
122
122
, network >= 2.6
123
123
, QuickCheck
Original file line number Diff line number Diff line change @@ -211,11 +211,17 @@ errorRetrySpec =
211
211
212
212
it " should continue when URLs don't match" $ do
213
213
request methodPost " " [jsonCT, jsonAccept] jsonBody
214
- `shouldRespondWith` 200 { matchBody = Just $ encode (8 :: Int ) }
214
+ `shouldRespondWith` 200 { matchBody = mkBody $ encode (8 :: Int ) }
215
215
216
216
it " should continue when methods don't match" $ do
217
217
request methodGet " a" [jsonCT, jsonAccept] jsonBody
218
- `shouldRespondWith` 200 { matchBody = Just $ encode (4 :: Int ) }
218
+ `shouldRespondWith` 200 { matchBody = mkBody $ encode (4 :: Int ) }
219
+ where
220
+ mkBody b = MatchBody $ \ _ b' ->
221
+ if b == b'
222
+ then Nothing
223
+ else Just " body not correct\n "
224
+
219
225
220
226
-- }}}
221
227
------------------------------------------------------------------------------
Original file line number Diff line number Diff line change @@ -51,7 +51,7 @@ library
51
51
build-depends :
52
52
base >= 4.7 && < 4.10
53
53
, base-compat >= 0.9 && < 0.10
54
- , aeson >= 0.7 && < 1.1
54
+ , aeson >= 0.7 && < 1.2
55
55
, attoparsec >= 0.12 && < 0.14
56
56
, bytestring >= 0.10 && < 0.11
57
57
, case-insensitive >= 1.2 && < 1.3
Original file line number Diff line number Diff line change @@ -11,10 +11,12 @@ extra-deps:
11
11
- control-monad-omega-0.3.1
12
12
- cryptonite-0.6
13
13
- doctest-0.11.0
14
- - hspec-2.2.3
15
- - hspec-core-2.2.3
16
- - hspec-discover-2.2.3
17
- - hspec-expectations-0.7.2
14
+ - hspec-2.3.2
15
+ - hspec-discover-2.3.2
16
+ - hspec-core-2.3.2
17
+ - hspec-wai-0.8.0
18
+ - hspec-expectations-0.8.2
19
+ - call-stack-0.1.0
18
20
- http-api-data-0.3
19
21
- natural-transformation-0.4
20
22
- primitive-0.6.1.0
Original file line number Diff line number Diff line change 1
- resolver : nightly-2016-05-27
1
+ resolver : nightly-2016-12-31
2
2
packages :
3
3
- servant/
4
4
- servant-client/
5
5
- servant-docs/
6
6
- servant-foreign/
7
7
- servant-server/
8
8
extra-deps :
9
- - http-api-data-0.3
10
- - uri-bytestring-0.2.2.0
11
- - natural-transformation-0.4
9
+ - aeson-1.1.0.0
12
10
flags : {}
Original file line number Diff line number Diff line change @@ -10,4 +10,10 @@ extra-deps:
10
10
- http-api-data-0.3
11
11
- servant-js-0.9 # needed for tutorial
12
12
- natural-transformation-0.4
13
+ - hspec-2.3.2
14
+ - hspec-discover-2.3.2
15
+ - hspec-core-2.3.2
16
+ - hspec-wai-0.8.0
17
+ - hspec-expectations-0.8.2
18
+ - call-stack-0.1.0
13
19
resolver : lts-6.0
You can’t perform that action at this time.
0 commit comments