Add a DbImport class implementing the import interface.

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

diff --git a/src/TSN/Injuries.hs b/src/TSN/Injuries.hs
index 0b19c792b0b89abcffb120e2855a929ce714daf4..8c2de14b04006e0a954fd156505ec8dc5fa8ae2c 100644 (file)
--- a/src/TSN/Injuries.hs
+++ b/src/TSN/Injuries.hs
@@ -21,7 +21,10 @@ where
 
 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 (
@@ -36,6 +39,7 @@ import Text.XML.HXT.Core (
   xpWrap )
 
 
+import TSN.DbImport ( DbImport(..), import_generic )
 import Xml ( pickle_unpickle )
 
 
@@ -104,6 +108,9 @@ instance XmlPickler Message where
 
 
 
+instance DbImport Listing where
+  dbimport = import_generic listings
+
 -- * Tasty Tests
 injuries_tests :: TestTree
 injuries_tests =