+
+instance FromXml Listing where
+ -- | The DB analogue of a 'Listing' is... itself!
+ type Db Listing = Listing
+
+ -- | To convert between a 'Listing' and a 'Listing', we do nothing.
+ from_xml = id
+
+-- | This lets us call 'insert_xml' on a 'Listing' without having to
+-- explicitly convert it to its database analogue first.
+--
+instance XmlImport Listing
+
+
+-- | XML representation of an injuriesxml \<message\>. This is only
+-- used for (un)pickling; 'Message's are not saved to the database.
+--