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