Merge pull request #2 from aviaviavi/empty_body

Empty body fix
aviaviavi · Mar 15, 2018 · 8902218 · 8902218
2 parents e6c2a8c + 59b8167
commit 8902218
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/curl-runnings.cabal b/curl-runnings.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 9530ddd7493ff79858e3c01c7064eb8119932f625cdb1fa3f5cb93e3b3786189
+-- hash: d332c7a791f625223c40a000c154539fd654b29190ff31c7909569c212cfa8b4
 
 name:           curl-runnings
-version:        0.3.0
+version:        0.3.1
 synopsis:       A framework for declaratively writing curl based API tests
 description:    Please see the README on Github at <https://github.com/aviaviavi/curl-runnings#readme>
 category:       Testing

diff --git a/package.yaml b/package.yaml
@@ -1,5 +1,5 @@
 name:                curl-runnings
-version:             0.3.0
+version:             0.3.1
 github:              aviaviavi/curl-runnings
 license:             MIT
 author:              Avi Press

diff --git a/src/Testing/CurlRunnings.hs b/src/Testing/CurlRunnings.hs
@@ -12,6 +12,7 @@ module Testing.CurlRunnings
 
 import           Control.Monad
 import           Data.Aeson
+import           Data.Aeson.Types
 import qualified Data.ByteString.Char8      as B8S
 import qualified Data.ByteString.Lazy       as B
 import qualified Data.CaseInsensitive       as CI
@@ -46,7 +47,7 @@ runCase curlCase = do
     httpBS .
     (setRequestHeaders
        (toHTTPHeaders $ fromMaybe (HeaderSet []) (headers curlCase))) .
-    setRequestBodyJSON (requestData curlCase) $
+    setRequestBodyJSON (fromMaybe (emptyObject) (requestData curlCase)) $
     initReq {method = B8S.pack . show $ requestMethod curlCase}
   returnVal <-
     (return . decode . B.fromStrict $ getResponseBody response) :: IO (Maybe Value)