Get pickling (but not insertion) working for TSN.News.

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

diff --git a/src/Main.hs b/src/Main.hs
index 9730f5e33fd9caf28fd69f2013a32cc7e74f3a1c..448577773dd8af187611d521f1db444916f532f3 100644 (file)
--- 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)