diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 5f73786..a37765f 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -1139,7 +1139,7 @@ scanZcash config pipe = do -- | Function to filter transactions isRelevant :: Text.Regex.Regex -> ZcashTx -> Bool isRelevant re t - | zconfirmations t < 10 && (matchTest re . T.unpack . zmemo) t = True + | zconfirmations t < 100 && (matchTest re . T.unpack . zmemo) t = True | otherwise = False -- | Function to scan loaded viewing keys for payments diff --git a/test/Spec.hs b/test/Spec.hs index 4255bd8..b549218 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -473,7 +473,7 @@ main = do let s = parseZGoTxBson =<< t let conf = maybe 0 confirmations s conf `shouldSatisfy` (> 0) - xit "payments are added to db" $ \p -> do + it "payments are added to db" $ \p -> do _ <- access p