[PATCH htools 1/6] Add a new type ClusterData

[Iustin Pop]

This will be used to hold all the disparate uses of the cluster data:
we have either tuples with these four elements, or functions taking
these four arguments, etc.
---
 Ganeti/HTools/Loader.hs |   14 ++++++++++++++
 1 files changed, 14 insertions(+), 0 deletions(-)

diff --git a/Ganeti/HTools/Loader.hs b/Ganeti/HTools/Loader.hs
index b7c74a0..81ccbfe 100644
--- a/Ganeti/HTools/Loader.hs
+++ b/Ganeti/HTools/Loader.hs
@@ -36,6 +36,8 @@ module Ganeti.HTools.Loader
     , commonSuffix
     , RqType(..)
     , Request(..)
+    , ClusterData(..)
+    , emptyCluster
     ) where
 
 import Data.List
@@ -74,6 +76,18 @@ data RqType
 data Request = Request RqType Group.List Node.List Instance.List [String]
     deriving (Show)
 
+-- | The cluster state.
+data ClusterData = ClusterData
+    { cdGroups    :: Group.List    -- ^ The node group list
+    , cdNodes     :: Node.List     -- ^ The node list
+    , cdInstances :: Instance.List -- ^ The instance list
+    , cdTags      :: [String]      -- ^ The cluster tags
+    } deriving (Show)
+
+-- | An empty cluster.
+emptyCluster :: ClusterData
+emptyCluster = ClusterData Container.empty Container.empty Container.empty []
+
 -- * Functions
 
 -- | Lookups a node into an assoc list.
-- 
1.7.3.1