X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FDbImport.hs;h=4f4c8f2db4324743ebfbbc966544026b93372094;hb=2dd451a3963893ab2d5d6c0dd2902502bb93a05a;hp=62cc8a10032eac904742f48d312454001b731209;hpb=e3272460a03b4bdded1902467310a4190feb333f;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/DbImport.hs b/src/TSN/DbImport.hs
index 62cc8a1..4f4c8f2 100644
--- a/src/TSN/DbImport.hs
+++ b/src/TSN/DbImport.hs
@@ -19,20 +19,15 @@
 module TSN.DbImport (
   DbImport(..),
   ImportResult(..),
-  dbimport_generic,
   run_dbmigrate )
 where
 
 -- System imports
 import Control.Monad.IO.Class ( MonadIO )
-import Database.Groundhog (
-  runMigration )
+import Database.Groundhog ( runMigration )
 import Database.Groundhog.Core ( Migration, PersistBackend )
 import Network.Services.TSN.Report ( report_info )
 
--- Local imports
-import TSN.XmlImport ( XmlImport(..) )
-
 
 -- | The type that will be returned from every file import attempt.
 --
@@ -60,15 +55,6 @@ class DbImport a where
   dbmigrate :: (MonadIO m, PersistBackend m) => a -> m ()
 
 
--- | The simplest possible implementation of 'dbimport', for types
---   which happen to be members of the 'XmlImport' typeclass.
---
-dbimport_generic :: (XmlImport a, MonadIO m, PersistBackend m)
-                 => a
-                 -> m ImportResult
-dbimport_generic x = insert_xml x >> return ImportSucceeded
-
-
 -- | A migration runner that will use our normal info reporting
 --   mechanism.
 --