put :: FireRequest -> IO FireResponse
put (JSONFireRequest json url opts) = do
                                        let validation = validatePut opts
                                        let pars = buildParameters opts
                                        response <- WR.put (url ++ "?" ++ pars) (toJSON json)
                                        return $ FireResponse (response ^. WR.responseBody) (response ^. WR.responseStatus . WR.statusCode) (response ^. WR.responseHeaders)
put :: FireRequest -> IO FireResponse
put (JSONFireRequest json url opts) = do
                                        let validation = validatePut opts
                                        let pars = buildParameters opts
                                        response <- WR.put (url ++ "?" ++ pars) (toJSON json)
                                        return $ FireResponse (response ^. WR.responseBody) (response ^. WR.responseStatus . WR.statusCode) (response ^. WR.responseHeaders)
put (JSONFireRequest json url opts) = do
                                        let validation = validatePut opts
                                        let pars = buildParameters opts
                                        response <- WR.put (url ++ "?" ++ pars) (toJSON json)
                                        return $ FireResponse (response ^. WR.responseBody) (response ^. WR.responseStatus . WR.statusCode) (response ^. WR.responseHeaders)