From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 22 Jan 2014 04:20:43 +0000 (-0500)
Subject: Remove unused dbimport_generic function.
X-Git-Tag: 0.0.2~10
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=170f8986a6466fc9dc803c7b60f3c716f21be053;p=dead%2Fhtsn-import.git

Remove unused dbimport_generic function.
---

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.
 --