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