X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FInjuriesDetail.hs;h=a787ad5251b0d553e99804d2f1c1b98593b0883c;hb=e46de7e95112d4e35219b74c0b3efffe99c69c6a;hp=fda6cc849e06544d6ceef441556f4cd81809dcc2;hpb=9cf45320c04c72472be8148819753e41d6535f65;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/InjuriesDetail.hs b/src/TSN/InjuriesDetail.hs
index fda6cc8..a787ad5 100644
--- 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