Revision 241cea1e src/Ganeti/HTools/Instance.hs

b/src/Ganeti/HTools/Instance.hs
163 163 
--
164 164 
-- Some parameters are not initialized by function, and must be set
165 165 
-- later (via 'setIdx' for example).
166 
create :: String -> Int -> Int -> Int -> T.InstanceStatus
166 
create :: String -> Int -> Int -> [Int] -> Int -> T.InstanceStatus
167 167 
       -> [String] -> Bool -> T.Ndx -> T.Ndx -> T.DiskTemplate -> Int
168 168 
       -> Instance
169 
create name_init mem_init dsk_init vcpus_init run_init tags_init
169 
create name_init mem_init dsk_init disks_init vcpus_init run_init tags_init
170 170 
       auto_balance_init pn sn dt su =
171 171 
  Instance { name = name_init
172 172 
           , alias = name_init
173 173 
           , mem = mem_init
174 174 
           , dsk = dsk_init
175 
           , disks = [dsk_init]
175 
           , disks = disks_init
176 176 
           , vcpus = vcpus_init
177 177 
           , runSt = run_init
178 178 
           , pNode = pn

Also available in: Unified diff