From 472aedf5daeb1cb0d095a63eacf259b798f56586 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Mon, 16 Mar 2020 13:12:30 +0000 Subject: WIP changes to the AST types --- src/Verismith/Verilog/Quote.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Verismith/Verilog/Quote.hs') diff --git a/src/Verismith/Verilog/Quote.hs b/src/Verismith/Verilog/Quote.hs index 879b8fd..5e1e5dc 100644 --- a/src/Verismith/Verilog/Quote.hs +++ b/src/Verismith/Verilog/Quote.hs @@ -23,6 +23,7 @@ import qualified Language.Haskell.TH as TH import Language.Haskell.TH.Quote import Language.Haskell.TH.Syntax import Verismith.Verilog.Parser +import Verismith.Verilog.AST (Verilog) liftDataWithText :: Data a => a -> Q Exp liftDataWithText = dataToExpQ $ fmap liftText . cast @@ -47,4 +48,4 @@ quoteVerilog s = do v <- case parseVerilog pos (T.pack s) of Right e -> return e Left e -> fail $ show e - liftDataWithText v + liftDataWithText (v :: Verilog ()) -- cgit