@@ -608,6 +608,7 @@ addMetadataFromElement e = do
608 addMetaField "author" e
608 addMetaField "author" e
609 addMetaField "date" e
609 addMetaField "date" e
610 addMetaField "release" e
610 addMetaField "release" e
611+ addMetaField "releaseinfo" e
611 return mempty
612 return mempty
612 where addMetaField fieldname elt =
613 where addMetaField fieldname elt =
613 case filterChildren (named fieldname) elt of
614 case filterChildren (named fieldname) elt of