-setRdrNameSpace (Unqual occ) ns = Unqual (setOccNameSpace occ ns)
-setRdrNameSpace (Qual m occ) ns = Qual m (setOccNameSpace occ ns)
-setRdrNameSpace (Orig m occ) ns = Orig m (setOccNameSpace occ ns)
-setRdrNameSpace (Exact n) ns = Unqual (setOccNameSpace (nameOccName n) ns)
+setRdrNameSpace (Unqual occ) ns = Unqual (setOccNameSpace ns occ)
+setRdrNameSpace (Qual m occ) ns = Qual m (setOccNameSpace ns occ)
+setRdrNameSpace (Orig m occ) ns = Orig m (setOccNameSpace ns occ)
+setRdrNameSpace (Exact n) ns = Unqual (setOccNameSpace ns (nameOccName n))