Revision 5b11f8db htools/Ganeti/HTools/Program/Hcheck.hs

b/htools/Ganeti/HTools/Program/Hcheck.hs
158 158 
-- readable mode).
159 159 
printGroupsMappings :: Group.List -> IO ()
160 160 
printGroupsMappings gl = do
161 
    let extract_vals = \g -> (printf "GROUP_UUID_%d" $ Group.idx g :: String,
162 
                              Group.uuid g)
161 
    let extract_vals g = (printf "GROUP_UUID_%d" $ Group.idx g :: String,
162 
                          Group.uuid g)
163 163 
        printpairs = map extract_vals (Container.elems gl)
164 164 
    printKeysHTC printpairs
165 165 

  		












Also available in:
  Unified diff