retrieve :: (MonadError JobError m) => Traversal' b v -> b -> m v
retrieve t = maybe (throwError NoSuch) pure . (^? t)
retrieve :: (MonadError JobError m) => Traversal' b v -> b -> m v
retrieve t = maybe (throwError NoSuch) pure . (^? t)
retrieve t = maybe (throwError NoSuch) pure . (^? t)