From 426f0d71eca2dc578e4258df05be296003c3e4cb Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Mon, 13 May 2019 14:58:15 +0100 Subject: Change the arguments to Text in the Parser --- test/Parser.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'test') diff --git a/test/Parser.hs b/test/Parser.hs index d473e05..40a8f30 100644 --- a/test/Parser.hs +++ b/test/Parser.hs @@ -26,6 +26,7 @@ import Test.Tasty.Hedgehog import Test.Tasty.HUnit import Text.Parsec import VeriFuzz +import VeriFuzz.Internal import VeriFuzz.Verilog.Lex import VeriFuzz.Verilog.Parser @@ -69,9 +70,9 @@ parserIdempotent = Hog.property $ do let sv = vshow v p sv === (p . p) sv where - vshow = show . GenVerilog + vshow = showT . GenVerilog p sv = - either (\x -> show x <> "\n" <> sv) vshow $ parseVerilog "idempotent_test" sv + either (\x -> showT x <> "\n" <> sv) vshow $ parseVerilog "idempotent_test" sv parserTests :: TestTree parserTests = testGroup "Parser properties" -- cgit