createLoads :: X.Element -> LoadMap 
createLoads doc = Map.fromList loadDefs
    where xmlloads = XC.xmlElements "load" doc
          loadDefs = map loadDef xmlloads
createLoads :: X.Element -> LoadMap
createLoads doc = Map.fromList loadDefs
    where xmlloads = XC.xmlElements "load" doc
          loadDefs = map loadDef xmlloads
createLoads doc = Map.fromList loadDefs
    where xmlloads = XC.xmlElements "load" doc
          loadDefs = map loadDef xmlloads