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