diff --git a/lib/Internal/History.hs b/lib/Internal/History.hs
index 72d50a4..b4d58c2 100644
--- a/lib/Internal/History.hs
+++ b/lib/Internal/History.hs
@@ -22,13 +22,6 @@ splitHistory = partitionEithers . fmap go
     go (HistTransfer x) = Left x
     go (HistStatement x) = Right x
 
--- insertStatement
---   :: (MonadUnliftIO m, MonadSqlQuery m, MonadFinance m)
---   => History
---   -> m ()
--- insertStatement (HistTransfer m) = liftIOExceptT $ insertManual m
--- insertStatement (HistStatement i) = insertImport i
-
 insertHistTransfer
   :: (MonadInsertError m, MonadSqlQuery m, MonadFinance m)
   => HistTransfer
@@ -62,18 +55,6 @@ insertHistStmt c ks = do
   ck <- insert c
   mapM_ (insertTx ck) ks
 
--- insertImport
---   :: (MonadUnliftIO m, MonadSqlQuery m, MonadFinance m)
---   => Statement
---   -> m ()
--- insertImport i = whenHash CTImport i () $ \c -> do
---   -- TODO this isn't efficient, the whole file will be read and maybe no
---   -- transactions will be desired
---   bs <- readImport i
---   bounds <- expandBounds <$> askDBState kmStatementInterval
---   keys <- liftIOExceptT $ mapErrors resolveTx $ filter (inBounds bounds . txDate) bs
---   mapM_ (insertTx c) keys
-
 --------------------------------------------------------------------------------
 -- low-level transaction stuff