+ | dtd == "injuriesxml.dtd" = do
+ let m = unpickleDoc xpickle xml :: Maybe Injuries.Message
+ let errmsg = "Could not unpickle injuriesxml."
+ maybe (return $ ImportFailed errmsg) migrate_and_import m
+
+ | dtd == "Injuries_Detail_XML.dtd" = do
+ let m = unpickleDoc xpickle xml :: Maybe InjuriesDetail.Message
+ let errmsg = "Could not unpickle Injuries_Detail_XML."
+ maybe (return $ ImportFailed errmsg) migrate_and_import m