Do not send event when saving was skipped

Author: elopez

lib/Echidna/Output/Corpus.hs

@@ -24,8 +24,9 @@ saveTxs env dir = mapM_ saveTxSeq where
   saveTxSeq txSeq = do
     createDirectoryIfMissing True dir
     let file = dir </> (show . abs . hash) txSeq <.> "txt"
-    unlessM (doesFileExist file) $ encodeFile file (toJSON txSeq)
-    pushCampaignEvent env (ReproducerSaved file)
+    unlessM (doesFileExist file) $ do
+      encodeFile file (toJSON txSeq)
+      pushCampaignEvent env (ReproducerSaved file)
 
 loadTxs :: FilePath -> IO [(FilePath, [Tx])]
 loadTxs dir = do