gdaxGetWith g path opts' = do
    res <- liftIO $ getWith opts (g ^. restEndpoint <> path)
    decodeResult res
    where
        opts = opts' & manager .~ Right (g ^. networkManager)
gdaxGetWith g path opts' = do
    res <- liftIO $ getWith opts (g ^. restEndpoint <> path)
    decodeResult res
    where
        opts = opts' & manager .~ Right (g ^. networkManager)
gdaxGetWith g path opts' = do
    res <- liftIO $ getWith opts (g ^. restEndpoint <> path)
    decodeResult res
    where
        opts = opts' & manager .~ Right (g ^. networkManager)