+
+instance FromXml NewsLocationXml where
+ -- | To convert from the XML representation to the database one, we
+ -- don't have to do anything. Just copy the fields.
+ --
+ from_xml NewsLocationXml{..} =
+ Location xml_city xml_state xml_country
+
+
+-- | Allow us to import the XML representation directly into the
+-- database, without having to perform the conversion manually first.
+--
+instance XmlImport NewsLocationXml
+
+
+-- * News_Location
+
+-- | Mapping between 'News' records and 'Location' records in the