diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2019-10-18 15:13:25 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2019-10-18 15:13:25 +0100 |
| commit | 85a017f3d4c8cc3efb876e0864da8d6a033f88dc (patch) | |
| tree | 566d66cefa0b4e5b2f0542d7e96d9e71a5fd3139 /src/Verismith/Fuzz.hs | |
| parent | 945c7435a41b93ff243b69f18a9c0216a7b70e24 (diff) | |
| download | verismith-85a017f3d4c8cc3efb876e0864da8d6a033f88dc.tar.gz verismith-85a017f3d4c8cc3efb876e0864da8d6a033f88dc.zip | |
Change location of the html reports
Diffstat (limited to 'src/Verismith/Fuzz.hs')
| -rw-r--r-- | src/Verismith/Fuzz.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Verismith/Fuzz.hs b/src/Verismith/Fuzz.hs index f26630a..a4b74b1 100644 --- a/src/Verismith/Fuzz.hs +++ b/src/Verismith/Fuzz.hs @@ -377,11 +377,9 @@ fuzz gen conf = do tsynth tequiv (getTime redResult) - liftSh . writefile "index.html" $ printResultReport (bname currdir) report return report where seed = conf ^. configProperty . propSeed - bname = T.pack . takeBaseName . T.unpack . toTextIgnore genMethod = case T.toLower $ conf ^. configProperty . propSampleMethod of "hat" -> do logT "Using the hat function" @@ -427,8 +425,12 @@ fuzzInDir fuzzInDir k fp src conf = do make fp res <- pop fp $ fuzz src conf - liftSh . when (passedFuzz res && not k) $ rm_rf fp + liftSh $ do + writefile (fp <.> "html") $ printResultReport (bname fp) res + when (passedFuzz res && not k) $ rm_rf fp relativeFuzzReport res + where + bname = T.pack . takeBaseName . T.unpack . toTextIgnore fuzzMultiple :: MonadFuzz m |