Revision 734b1ff1

b/Ganeti/HTools/IAlloc.hs
49 49
                  -> JSObject JSValue
50 50
                  -> Result (String, Instance.Instance)
51 51
parseBaseInstance n a = do
52
  disk <- case fromObj "disk_usage" a of
53
            Bad _ -> do
54
                all_d <- fromObj "disks" a >>= asObjectList
55
                szd <- mapM (fromObj "size") all_d
56
                let sze = map (+128) szd
57
                    szf = (sum sze)::Int
58
                return szf
59
            x@(Ok _) -> x
52
  disk <- fromObj "disk_space_total" a
60 53
  mem <- fromObj "memory" a
61 54
  let running = "running"
62 55
  return $ (n, Instance.create n mem disk running 0 0)

Also available in: Unified diff