diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-04-06 23:03:46 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-04-06 23:03:46 +0100 |
commit | 2b00c249a29236af734c1e5b717b859a2a54a5dc (patch) | |
tree | 070cf697a962f3b09e673b2fee9be541e3e90788 /src/Verismith/Verilog/Quote.hs | |
parent | d31472164e711a330e9f0a5b0a486b12abb69daf (diff) | |
parent | 472aedf5daeb1cb0d095a63eacf259b798f56586 (diff) | |
download | verismith-2b00c249a29236af734c1e5b717b859a2a54a5dc.tar.gz verismith-2b00c249a29236af734c1e5b717b859a2a54a5dc.zip |
Merge branch 'develop' of github.com:ymherklotz/verismith into develop
Diffstat (limited to 'src/Verismith/Verilog/Quote.hs')
-rw-r--r-- | src/Verismith/Verilog/Quote.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 ()) |