@@ -200,7 +200,7 @@ get = flip (dispatch NHTM.methodGet) Nothing
200head :: MonadBH m => Text -> m Reply
200head :: MonadBH m => Text -> m Reply
201head = flip (dispatch NHTM.methodHead) Nothing
201head = flip (dispatch NHTM.methodHead) Nothing
202put :: MonadBH m => Text -> Maybe L.ByteString -> m Reply
202put :: MonadBH m => Text -> Maybe L.ByteString -> m Reply
203−put = dispatch NHTM.methodPost
203+put = dispatch NHTM.methodPut
204post :: MonadBH m => Text -> Maybe L.ByteString -> m Reply
204post :: MonadBH m => Text -> Maybe L.ByteString -> m Reply
205post = dispatch NHTM.methodPost
205post = dispatch NHTM.methodPost