diff options
author | Yann Herklotz <git@yannherklotz.com> | 2019-06-29 20:21:43 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2019-06-29 20:21:43 +0100 |
commit | bb697f8bc7b593e5aabb43505f686e6503b7726f (patch) | |
tree | e25f874fa5b68224337b016e1d17ef45204e45c0 /src/VeriFuzz/Report.hs | |
parent | 8734d40f4842065ce5a579eb0cc77171bbd436b0 (diff) | |
download | verismith-bb697f8bc7b593e5aabb43505f686e6503b7726f.tar.gz verismith-bb697f8bc7b593e5aabb43505f686e6503b7726f.zip |
Fix pedantic warnings
Diffstat (limited to 'src/VeriFuzz/Report.hs')
-rw-r--r-- | src/VeriFuzz/Report.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/VeriFuzz/Report.hs b/src/VeriFuzz/Report.hs index fb66275..a3c4ebd 100644 --- a/src/VeriFuzz/Report.hs +++ b/src/VeriFuzz/Report.hs @@ -48,6 +48,7 @@ import Data.ByteString (ByteString) import Data.Maybe (fromMaybe) import Data.Monoid (Endo) import Data.Text (Text) +import qualified Data.Text as T import Data.Text.Lazy (toStrict) import Data.Time import Data.Vector (fromList) @@ -158,7 +159,7 @@ data SimResult = SimResult !SynthTool !SimTool !BResult !NominalDiffTime deriving (Eq) instance Show SimResult where - show (SimResult synth sim r d) = show synth <> ", " <> show sim <> ": " <> show r <> " (" <> show d <> ")" + show (SimResult synth sim r d) = show synth <> ", " <> show sim <> ": " <> show (bimap show (T.unpack . showBS) r) <> " (" <> show d <> ")" getSimResult :: SimResult -> UResult getSimResult (SimResult _ _ (Pass _) _) = Pass () |