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