Synnefo » snf-ganeti » ganeti-local

  let new_dsk = Node.availDisk node `div` 2

  in inst { Instance.mem = Node.availMem node `div` 2

          , Instance.dsk = new_dsk

          , Instance.vcpus = Node.availCpu node `div` 2

          , Instance.disks = [Instance.Disk new_dsk

                              (if Node.exclStorage node

                               then Just $ Node.fSpindles node `div` 2

                               else Nothing)]

          }