Synnefo » snf-ganeti

      exTags = case optExTags opts of

                 Nothing -> []

                 Just etl -> map (++ ":") etl

      exInsts = optExInst opts

  when (length allSet > 1) $

          | setFile -> wrapIO $ Text.loadData $ fromJust tfile

          | otherwise -> return $ Bad "No backend selected! Exiting."

  cdata <-

      (case ldresult of

         Ok x -> return x

  let (kti, il) = assignIndices iobj

  -- cluster tags

  ctags <- extrObj "cluster_tags"

  let map_n = cdNodes cdata

      map_i = cdInstances cdata

      map_g = cdGroups cdata

-- list and massages it into the correct format.

mergeData :: [(String, DynUtil)]  -- ^ Instance utilisation data

          -> [String]             -- ^ Exclusion tags

          -> ClusterData          -- ^ Data from backends

          -> Result ClusterData   -- ^ Fixed cluster data

  let il = Container.elems il2

      il3 = foldl' (\im (name, n_util) ->

                        case Container.findByName im name of

-- is zero

prop_Loader_mergeData ns =

  let na = Container.fromList $ map (\n -> (Node.idx n, n)) ns

         (Loader.emptyCluster {Loader.cdNodes = na}) of

    Types.Bad _ -> False

    Types.Ok (Loader.ClusterData _ nl il _) ->

-- | Generates serialized data from loader input.

processData :: ClusterData -> Result ClusterData

processData input_data = do

  let (_, fix_nl) = checkData nl il

  return cdata { cdNodes = fix_nl }