compileQName :: QName -> HsExp
-compileQName (QN prefix local ns)
- = unq "mkQName" $: litStr prefix $: litStr local $: litStr ns
+compileQName qn
+ = let prefix = namePrefix qn
+ local = localPart qn
+ ns = namespaceUri qn
+ in
+ unq "mkQName" $: litStr prefix $: litStr local $: litStr ns