X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FInjuries.hs;h=8c2de14b04006e0a954fd156505ec8dc5fa8ae2c;hb=f8a623928407ceaaa8c28b60316e9123a4f3821b;hp=0b19c792b0b89abcffb120e2855a929ce714daf4;hpb=988f693ce7f1abb6566e75d539ac312b627c31d5;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/Injuries.hs b/src/TSN/Injuries.hs
index 0b19c79..8c2de14 100644
--- 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 =