swagger-test 0.2.6 → 0.2.7

raw patch · 3 files changed

+9/−6 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Test/Swagger/Gen.hs +5/−2
• src/Test/Swagger/Print.hs +3/−3
• swagger-test.cabal +1/−1

@@ -129,7 +129,7 @@     let randomHeaders' = catMaybes                  $   (\h -> (fst h,) <$> snd h)                  <$> ((mk . fst &&& snd) <$> randomHeaders)-                 <>  [("Host", (T.pack . (^. name)) <$> mHost)]+                 <>  [("Host", (T.pack . hostNameAndPort) <$> mHost)]                  <>  [("Content-Type", fst <$> maybeMimeAndBody)]                  <>  [("User-Agent", Just $ "swagger-test/" <> T.pack (showVersion version))] @@ -149,7 +149,10 @@   schemeForPort _ = Http    buildHost :: Scheme -> Host -> String-  buildHost sc h = schemeToHttpPrefix sc <> (h ^. name) <> maybe "" ((':':) . show) (h ^. port)+  buildHost sc h = schemeToHttpPrefix sc <> hostNameAndPort h++  hostNameAndPort :: Host -> String+  hostNameAndPort h = (h ^. name) <> maybe "" ((':':) . show) (h ^. port)    schemeToHttpPrefix Http  = "http://"   schemeToHttpPrefix Https = "https://"

@@ -52,9 +52,9 @@        Nothing -> mempty printRequest FormatCurl (HttpRequest host method path query headers body) =      fromText "curl -i"-  <> if method /= methodGet-      then fromUtf8Bytestring $ " -X " <> method-      else mempty+  <> (if method /= methodGet+        then fromUtf8Bytestring $ " -X " <> method+        else mempty)   <> fromText " '"   <> fromText (escapeS host')   <> fromText (escape path)

@@ -1,5 +1,5 @@ name:                swagger-test-version:             0.2.6+version:             0.2.7 synopsis:            Testing of Swagger APIs description:         This package provides a library and executable tool                      that supports testing APIs specified with Swagger. It