diff options
| author | Yann Herklotz <git@ymhg.org> | 2019-05-07 15:12:37 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@ymhg.org> | 2019-05-07 15:12:37 +0100 |
| commit | d52b98fb2672374c48f157aaa68483c39a46363d (patch) | |
| tree | be63ae6594727a7f6a50560cd3056092c1194f27 /src/VeriFuzz/Sim/Icarus.hs | |
| parent | e811ba886d9adaed746abe1c9f37c1a87e58a964 (diff) | |
| download | verismith-d52b98fb2672374c48f157aaa68483c39a46363d.tar.gz verismith-d52b98fb2672374c48f157aaa68483c39a46363d.zip | |
Rename some functions to use nicer names
Diffstat (limited to 'src/VeriFuzz/Sim/Icarus.hs')
| -rw-r--r-- | src/VeriFuzz/Sim/Icarus.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/VeriFuzz/Sim/Icarus.hs b/src/VeriFuzz/Sim/Icarus.hs index ec79340..062a087 100644 --- a/src/VeriFuzz/Sim/Icarus.hs +++ b/src/VeriFuzz/Sim/Icarus.hs @@ -113,10 +113,11 @@ runSimIcarusWithFile :: Icarus -> FilePath -> [ByteString] -> ResultSh ByteString runSimIcarusWithFile sim f _ = annotate SimFail . liftSh $ do dir <- pwd - echoP "Icarus: Compile" - logger_ dir "icarus" $ run (icarusPath sim) ["-o", "main", toTextIgnore f] - echoP "Icarus: Run" - B.take 8 . BA.convert . (hash :: ByteString -> Digest SHA256) <$> logger + logger "Icarus: Compile" + logCommand_ dir "icarus" + $ run (icarusPath sim) ["-o", "main", toTextIgnore f] + logger "Icarus: Run" + B.take 8 . BA.convert . (hash :: ByteString -> Digest SHA256) <$> logCommand dir "vvp" (runFoldLines (mempty :: ByteString) callback (vvpPath sim) ["main"]) |