X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=ed28f919b7e349e782b8e62e4cacc7f2ecfa120c;hb=000318e2a4b56772a9ef219a13e960acea6453b6;hp=0a41318c1beb4d267dbb249623d2324e76d27333;hpb=579f3e4c6b01f0e89fa6dc8c41a22330d4cb7b8f;p=dead%2Fhtsn-import.git

diff --git a/src/Main.hs b/src/Main.hs
index 0a41318..ed28f91 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -45,8 +45,8 @@ 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.Odds as Odds ( Message )
+import qualified TSN.XML.News as News ( News )
+import qualified TSN.XML.Odds as Odds ( Odds )
 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