REF remove dead code
This commit is contained in:
parent
c3ab976407
commit
55487982ec
|
@ -22,13 +22,6 @@ splitHistory = partitionEithers . fmap go
|
||||||
go (HistTransfer x) = Left x
|
go (HistTransfer x) = Left x
|
||||||
go (HistStatement x) = Right 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
|
insertHistTransfer
|
||||||
:: (MonadInsertError m, MonadSqlQuery m, MonadFinance m)
|
:: (MonadInsertError m, MonadSqlQuery m, MonadFinance m)
|
||||||
=> HistTransfer
|
=> HistTransfer
|
||||||
|
@ -62,18 +55,6 @@ insertHistStmt c ks = do
|
||||||
ck <- insert c
|
ck <- insert c
|
||||||
mapM_ (insertTx ck) ks
|
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
|
-- low-level transaction stuff
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue