diff options
| author | Yann Herklotz <git@ymhg.org> | 2019-04-15 20:37:15 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@ymhg.org> | 2019-04-15 20:37:15 +0100 |
| commit | 053be2bd7b06ecb371fa0e163d4d1c3e17fe0df3 (patch) | |
| tree | 682785734f9c8447265ae9b2192d54d7860c5619 /app | |
| parent | 705bdb142b1088676ddc3178d8677bd40ab2b1d6 (diff) | |
| download | verismith-053be2bd7b06ecb371fa0e163d4d1c3e17fe0df3.tar.gz verismith-053be2bd7b06ecb371fa0e163d4d1c3e17fe0df3.zip | |
Move declaration of SourceInfo
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 |