Make NewsTeams and NewsLocations unique.

[dead/htsn-import.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 0a41318c1beb4d267dbb249623d2324e76d27333..74f52599629cc453517929e9b21fad3ea0cdde8b 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -45,7 +45,7 @@ import TSN.DbImport ( DbImport(..), ImportResult(..) )
 import qualified TSN.XML.Heartbeat as Heartbeat ( verify )
 import qualified TSN.XML.Injuries as Injuries ( Listing )
 import qualified TSN.XML.InjuriesDetail as InjuriesDetail ( PlayerListing )
-import qualified TSN.XML.News as News ( Message )
+import qualified TSN.XML.News as News ( News )
 import qualified TSN.XML.Odds as Odds ( Message )
 import Xml ( DtdName(..), parse_opts )
 
@@ -153,7 +153,7 @@ import_file cfg path = do
                 dbimport (undefined :: InjuriesDetail.PlayerListing)
 
             | dtd == "newsxml.dtd" =
-                dbimport (undefined :: News.Message)
+                dbimport (undefined :: News.News)
 
             | dtd == "Odds_XML.dtd" = undefined