CA-180826: SR.stat should take the attached URI

We call `SR.stat` on already-attached SRs, so should provide the attached
URI. For example if an SR is created at

  iscsi://target/iqn/disk

the `SR.attach` will return a local path like

  file:///var/run/sr-mount/foo

We then call `SR.stat` with `file:///var/run/sr-mount/foo`. This makes
it easy to query the SR attributes such as

- free space
- name

etc

Signed-off-by: David Scott <[email protected]>

Author: David Scott

main.ml

@@ -409,7 +409,7 @@ let process root_dir name x =
       (* Stat the SR to look for datasources *)
       let args = Storage.Volume.Types.SR.Stat.In.make
         args.Args.SR.Attach.dbg
-        uri in
+        attach_response (* SR.stat should take the attached URI *) in
       let args = Storage.Volume.Types.SR.Stat.In.rpc_of_t args in
       fork_exec_rpc root_dir (script root_dir name `Volume "SR.stat") args Storage.Volume.Types.SR.Stat.Out.t_of_rpc
       >>= fun stat ->