deriveXmlParsable :: Options -> Name -> Q [Dec]
deriveXmlParsable opts name =
  [d|
   instance XmlParsable $(conT name) where
     xmlParsableName _ = $(litE $ stringL $ typeTagModifier opts $ showName name)
     xmlNamespaceLevel = const $(lift $ namespaceLevel opts)
  |]
deriveXmlParsable :: Options -> Name -> Q [Dec]
deriveXmlParsable opts name =
  [d|
   instance XmlParsable $(conT name) where
     xmlParsableName _ = $(litE $ stringL $ typeTagModifier opts $ showName name)
     xmlNamespaceLevel = const $(lift $ namespaceLevel opts)
  |]
deriveXmlParsable opts name =
  [d|
   instance XmlParsable $(conT name) where
     xmlParsableName _ = $(litE $ stringL $ typeTagModifier opts $ showName name)
     xmlNamespaceLevel = const $(lift $ namespaceLevel opts)
  |]