X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=448577773dd8af187611d521f1db444916f532f3;hb=04f468994697d4d983a09a8e612948b23a973848;hp=9730f5e33fd9caf28fd69f2013a32cc7e74f3a1c;hpb=3835f96aea2f383501071106be0a69abd1ef89d1;p=dead%2Fhtsn-import.git

diff --git a/src/Main.hs b/src/Main.hs
index 9730f5e..4485777 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -54,7 +54,7 @@ import qualified TSN.InjuriesDetail as InjuriesDetail (
   Listing ( player_listings ),
   Message ( listings ),
   PlayerListing )
-import qualified TSN.News as News
+import qualified TSN.News as News ( Message )
 import Xml ( parse_opts )
 
 
@@ -94,7 +94,10 @@ import_generic dummy g cfg xml
 
 -- | Import TSN.News from an 'XmlTree'.
 import_news :: Configuration -> XmlTree -> IO (Maybe Int)
-import_news = undefined
+import_news =
+  import_generic
+    (undefined :: News.Message)
+    id
 
 -- | Import TSN.Injuries from an 'XmlTree'.
 import_injuries :: Configuration -> XmlTree -> IO (Maybe Int)