quads-cli --shrink --weeks X --cloud cloud0X doesn't seem to actually work

[sadsfae]

It appears that quads-cli --shrink --cloud cloud0X --weeks X doesn't actually take action but it says it does.

# quads-cli --shrink --cloud cloud26 --weeks 2
Are you sure you want to shrink cloud26 for 2 week[s]? (y/N): y
Cloud cloud26 has now been shrunk for 2 week[s] until 2023-04-16 22:00

(Actual result)

# for host in $(quads-cli --cloud-only --cloud cloud26); do printf "$host  "; quads-cli --ls-schedule --host $host | grep cloud26 ; done
d20-h13-000-r650.example.com  3| start=2023-03-19 22:00, end=2023-04-30 22:00, cloud=cloud26
e24-h05-000-r640.example.com  19| start=2023-03-26 22:00, end=2023-04-30 22:00, cloud=cloud26
e25-h10-000-r640.example.com  18| start=2023-03-26 22:00, end=2023-04-30 22:00, cloud=cloud26
e28-h10-000-r650.example.com  11| start=2023-03-19 22:00, end=2023-04-30 22:00, cloud=cloud26
e29-h22-000-r650.example.com  3| start=2023-03-19 22:00, end=2023-04-30 22:00, cloud=cloud26
e29-h23-000-r650.example.com  3| start=2023-03-19 22:00, end=2023-04-30 22:00, cloud=cloud26