to work around this issue is kinda difficult because by defeault the prefix field get's ignored by the instances,
you've to also override the endpoint generation function:
setEndpoint :: Service -> Service
setEndpoint y = let z = y{
endpointPrefix = "query-cell1.timestream",
endpoint = Core.defaultEndpoint z
}
in z
which you now can use to modify your enviroment:
envMod :: Env -> Env
envMod x = x{overrides = setEndpoint}
main = runResourceT $ do
runConduit $
paginate (envMod env) query
.| sinkList
the current implementation of default service returns a 404:
It should be changed to:
you can verify this by running describe endpoints:
to work around this issue is kinda difficult because by defeault the prefix field get's ignored by the instances, you've to also override the endpoint generation function:
which you now can use to modify your enviroment: