From 55487982ec7809910e90c5895550c09b6608b97a Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Mon, 29 May 2023 17:16:13 -0400
Subject: [PATCH] REF remove dead code

---
 lib/Internal/History.hs | 19 -------------------
 1 file changed, 19 deletions(-)

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