addLocationPrefix :: LabelPrefix -> Set Id -> [Element] -> [Element]
addLocationPrefix lp targets elems = elems'
    where
      elems' = map (substituteElement sub) elems
      sub = M.fromSet (Identifier . (labelPrefixToString lp ++)) targets
addLocationPrefix :: LabelPrefix -> Set Id -> [Element] -> [Element]
addLocationPrefix lp targets elems = elems'
    where
      elems' = map (substituteElement sub) elems
      sub = M.fromSet (Identifier . (labelPrefixToString lp ++)) targets
addLocationPrefix lp targets elems = elems'
    where
      elems' = map (substituteElement sub) elems
      sub = M.fromSet (Identifier . (labelPrefixToString lp ++)) targets