X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FDbImport.hs;h=c584a9a0a88847dd75bcaaea812b331f9c02012a;hb=170f8986a6466fc9dc803c7b60f3c716f21be053;hp=62cc8a10032eac904742f48d312454001b731209;hpb=9518beb285e48c13863e1a91d33af56406d2ec3c;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/DbImport.hs b/src/TSN/DbImport.hs
index 62cc8a1..c584a9a 100644
--- a/src/TSN/DbImport.hs
+++ b/src/TSN/DbImport.hs
@@ -19,14 +19,12 @@
 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 )
 
@@ -60,15 +58,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.
 --