import qualified TSN.XML.InjuriesDetail as InjuriesDetail ( pickle_message )
import qualified TSN.XML.News as News ( pickle_message )
import qualified TSN.XML.Odds as Odds ( pickle_message )
+import qualified TSN.XML.Weather as Weather ( pickle_message )
import Xml ( DtdName(..), parse_opts )
let errmsg = "Could not unpickle Odds_XML."
maybe (return $ ImportFailed errmsg) migrate_and_import m
+ | dtd == "weatherxml.dtd" = do
+ let m = unpickleDoc Weather.pickle_message xml
+ let errmsg = "Could not unpickle weatherxml."
+ maybe (return $ ImportFailed errmsg) migrate_and_import m
+
| otherwise = do
let infomsg =
"Unrecognized DTD in " ++ path ++ ": " ++ dtd ++ "."