From 170f8986a6466fc9dc803c7b60f3c716f21be053 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Tue, 21 Jan 2014 23:20:43 -0500 Subject: [PATCH] Remove unused dbimport_generic function. --- src/TSN/DbImport.hs | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) 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. -- -- 2.44.2