Add a DbImport class implementing the import interface.

[dead/htsn-import.git] / src / TSN / InjuriesDetail.hs

diff --git a/src/TSN/InjuriesDetail.hs b/src/TSN/InjuriesDetail.hs
index fda6cc849e06544d6ceef441556f4cd81809dcc2..a787ad5251b0d553e99804d2f1c1b98593b0883c 100644 (file)
--- a/src/TSN/InjuriesDetail.hs
+++ b/src/TSN/InjuriesDetail.hs
@@ -27,7 +27,10 @@ where
 import Data.Time ( UTCTime )
 import Data.Tuple.Curry ( uncurryN )
 import Database.Groundhog()
-import Database.Groundhog.TH
+import Database.Groundhog.TH (
+  defaultCodegenConfig,
+  groundhog,
+  mkPersist )
 import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
 import Text.XML.HXT.Core (
@@ -43,6 +46,7 @@ import Text.XML.HXT.Core (
   xpText0,
   xpWrap )
 
+import TSN.DbImport ( DbImport(..), import_generic )
 import TSN.Picklers( xp_date, xp_team_id )
 import Xml ( pickle_unpickle )
 
@@ -153,6 +157,9 @@ pickle_message =
 instance XmlPickler Message where
   xpickle = pickle_message
 
+instance DbImport PlayerListing where
+  dbimport = import_generic ( (concatMap player_listings) . listings)
+
 
 -- * Tasty Tests
 injuries_detail_tests :: TestTree