diff options
author | Yann Herklotz <git@ymhg.org> | 2019-04-03 17:30:31 +0100 |
---|---|---|
committer | Yann Herklotz <git@ymhg.org> | 2019-04-03 17:30:31 +0100 |
commit | 9b4ff9bf2a5356b0603fe46cc45f9724bfbef341 (patch) | |
tree | 0cc15fc577768653958757b5fc6326a03402db6a /src/VeriFuzz/Sim/Icarus.hs | |
parent | 72a6f29c7b1357fbeca70097c84138c6cf6d5e2a (diff) | |
download | verismith-9b4ff9bf2a5356b0603fe46cc45f9724bfbef341.tar.gz verismith-9b4ff9bf2a5356b0603fe46cc45f9724bfbef341.zip |
Fix to the logger
Diffstat (limited to 'src/VeriFuzz/Sim/Icarus.hs')
-rw-r--r-- | src/VeriFuzz/Sim/Icarus.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/VeriFuzz/Sim/Icarus.hs b/src/VeriFuzz/Sim/Icarus.hs index 6bf21f4..14023b7 100644 --- a/src/VeriFuzz/Sim/Icarus.hs +++ b/src/VeriFuzz/Sim/Icarus.hs @@ -103,8 +103,7 @@ runSimIcarusWithFile :: Icarus -> FilePath -> [ByteString] -> Sh ByteString runSimIcarusWithFile sim f _ = do dir <- pwd echoP "Icarus: Compile" - _ <- logger dir "icarus" - $ run (icarusPath sim) ["-o", "main", toTextIgnore f] + logger_ dir "icarus" $ run (icarusPath sim) ["-o", "main", toTextIgnore f] echoP "Icarus: Run" B.take 8 . BA.convert . (hash :: ByteString -> Digest SHA256) <$> logger dir |