Fixed problem with put sending POST
commit94687ea97c0681dce90ad8036356d6a3f39223f6
authorJohn Galt <centromere@users.noreply.github.com>
dateFri 17 Jul 2015, 09:48 (11 years ago)
parent1db8ad7
src/Database/Bloodhound/Client.hs+1−1
@@ -200,7 +200,7 @@ get = flip (dispatch NHTM.methodGet) Nothing
200200head :: MonadBH m => Text -> m Reply
201201head = flip (dispatch NHTM.methodHead) Nothing
202202put :: MonadBH m => Text -> Maybe L.ByteString -> m Reply
203−put = dispatch NHTM.methodPost
203+put = dispatch NHTM.methodPut
204204post :: MonadBH m => Text -> Maybe L.ByteString -> m Reply
205205post = dispatch NHTM.methodPost
206206