gdaxSignedDelete g path par = do
    signedOpts <- signOptions g "DELETE" path Nothing opts
    res <- liftIO $ deleteWith signedOpts (g ^. restEndpoint <> path)
    decodeResult res
    where
        opts = defaults & manager .~ Right (g ^. networkManager)
                        & params .~ par
gdaxSignedDelete g path par = do
    signedOpts <- signOptions g "DELETE" path Nothing opts
    res <- liftIO $ deleteWith signedOpts (g ^. restEndpoint <> path)
    decodeResult res
    where
        opts = defaults & manager .~ Right (g ^. networkManager)
                        & params .~ par
gdaxSignedDelete g path par = do
    signedOpts <- signOptions g "DELETE" path Nothing opts
    res <- liftIO $ deleteWith signedOpts (g ^. restEndpoint <> path)
    decodeResult res
    where
        opts = defaults & manager .~ Right (g ^. networkManager)
                        & params .~ par