emit log message when saving reproducers (#1273)

crytic · Jun 13, 2024 · 1cb47b3 · 1cb47b3
1 parent 9f05340
commit 1cb47b3
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Echidna/Output/Corpus.hs b/lib/Echidna/Output/Corpus.hs
@@ -23,6 +23,7 @@ saveTxs dir = mapM_ saveTxSeq where
   saveTxSeq txSeq = do
     createDirectoryIfMissing True dir
     let file = dir </> (show . abs . hash . show) txSeq <.> "txt"
+    putStrLn ("Saving reproducer to " ++ file)
     unlessM (doesFileExist file) $ encodeFile file (toJSON txSeq)
 
 loadTxs :: FilePath -> IO [(FilePath, [Tx])]