eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Update request body handling

Browse source
This commit is contained in:
Denis Redozubov 2019-05-17 12:20:27 +03:00
parent 8a76df3a71
commit 619bfaab5b
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-client-jsaddle/src/Servant/Client/Internal/JSaddleXhrClient.hs
View file

@ -217,6 +217,10 @@ sendXhr xhr (Just body) = do
toBody :: Request -> Maybe L.ByteString
toBody request = case requestBody request of
Nothing -> Nothing
Just (RequestBodyBS "" , _) -> Nothing
Just (RequestBodyBS x , _) -> Just $ L.fromStrict x
-- FIXME: not implemented
Just (RequestBodySource _ , _) -> Nothing
Just (RequestBodyLBS "" , _) -> Nothing
Just (RequestBodyLBS x , _) -> Just x