diff options
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Main.hs b/app/Main.hs index f20bc59..af6e568 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -206,7 +206,7 @@ handleOpts (Fuzz out configF force keep) = do S.mkdir_p $ S.fromText out vars <- sequence - $ (\x -> myForkIO $ V.runEquivalence (V.procedural config) + $ (\x -> myForkIO $ V.runEquivalence (V.procedural "top" config) ("test_" <> T.pack (show x)) out keep @@ -216,7 +216,7 @@ handleOpts (Fuzz out configF force keep) = do sequence_ $ takeMVar <$> vars handleOpts (Generate f c) = do config <- getConfig c - source <- V.proceduralIO config + source <- V.proceduralIO "top" config maybe (T.putStrLn $ V.genSource source) (flip T.writeFile (V.genSource source)) f |