Revision 304f9292

b/htools/Ganeti/HTools/Types.hs
75 75
  , ISpec(..)
76 76
  , IPolicy(..)
77 77
  , defIPolicy
78
  , rspecFromISpec
78 79
  ) where
79 80

  
80 81
import qualified Data.Map as M
......
187 188
  , THH.renameField "MaxSpec" $ THH.simpleField "max" [t| ISpec |]
188 189
  ])
189 190

  
191
-- | Converts an ISpec type to a RSpec one.
192
rspecFromISpec :: ISpec -> RSpec
193
rspecFromISpec ispec = RSpec { rspecCpu = iSpecCpuCount ispec
194
                             , rspecMem = iSpecMemorySize ispec
195
                             , rspecDsk = iSpecDiskSize ispec
196
                             }
197

  
190 198
-- | The default instance policy.
191 199
defIPolicy :: IPolicy
192 200
defIPolicy = IPolicy { iPolicyStdSpec = defStdISpec

Also available in: Unified diff