Add a helper function converting ispecs to rspecs

The rspec type is simpler than the ispec one; most likely it should be
deprecated later.

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: René Nussbaumer <rn@google.com>

diff --git a/htools/Ganeti/HTools/Types.hs b/htools/Ganeti/HTools/Types.hs
index 497e877..cb69917 100644 (file)
--- a/htools/Ganeti/HTools/Types.hs
+++ b/htools/Ganeti/HTools/Types.hs
@@ -75,6 +75,7 @@ module Ganeti.HTools.Types
   , ISpec(..)
   , IPolicy(..)
   , defIPolicy
+  , rspecFromISpec
   ) where
 
 import qualified Data.Map as M
@@ -187,6 +188,13 @@ $(THH.buildObject "IPolicy" "iPolicy"
   , THH.renameField "MaxSpec" $ THH.simpleField "max" [t| ISpec |]
   ])
 
+-- | Converts an ISpec type to a RSpec one.
+rspecFromISpec :: ISpec -> RSpec
+rspecFromISpec ispec = RSpec { rspecCpu = iSpecCpuCount ispec
+                             , rspecMem = iSpecMemorySize ispec
+                             , rspecDsk = iSpecDiskSize ispec
+                             }
+
 -- | The default instance policy.
 defIPolicy :: IPolicy
 defIPolicy = IPolicy { iPolicyStdSpec = defStdISpec