Update hspec-wai to 0.8.0 (#799)

2017-02-14 21:18:01 -08:00
parent 98438c437f
commit 728e40c96c
14 changed files with 229 additions and 290 deletions
@@ -25,10 +25,13 @@ import Network.Wai.Test (SResponse(simpleStatus, simpleHeaders, simpleBody))

 import Data.Maybe (fromJust)
 import Data.Aeson (decode, Value(..))
-import qualified Data.JsonSchema.Draft4 as D4
+import qualified JSONSchema.Draft4 as D4

 import Protolude

+matchContentTypeJson :: MatchHeader
+matchContentTypeJson = "Content-Type" <:> "application/json; charset=utf-8"
+
 validateOpenApiResponse :: [Header] -> WaiSession ()
 validateOpenApiResponse headers = do
  r <- request methodGet "/" headers ""