Change the Odds database type to 'Odds' in Main.hs.

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

diff --git a/src/Main.hs b/src/Main.hs
index 0a41318c1beb4d267dbb249623d2324e76d27333..ed28f919b7e349e782b8e62e4cacc7f2ecfa120c 100644 (file)
--- 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