findInstanceLoad :: String -> AllReports -> Maybe Double
findInstanceLoad  name r | MonD.InstanceCpuReport m <- rIndividual r =
  Map.lookup name m
findInstanceLoad :: String -> AllReports -> Maybe Double
findInstanceLoad  name r | MonD.InstanceCpuReport m <- rIndividual r =
  Map.lookup name m
findInstanceLoad  name r | MonD.InstanceCpuReport m <- rIndividual r =
  Map.lookup name m