type Db Message = Score
instance FromXml Message where
+ -- | When converting from the XML representation to the database
+ -- one, we drop the list of locations which will be foreign-keyed to
+ -- us instead.
from_xml Message{..} =
Score {
db_xml_file_id = xml_xml_file_id,