diff options
author | Yann Herklotz <git@ymhg.org> | 2019-05-13 20:50:01 +0100 |
---|---|---|
committer | Yann Herklotz <git@ymhg.org> | 2019-05-13 20:50:01 +0100 |
commit | 76e9b994258d9af87868ba9f420db4ee1c29de67 (patch) | |
tree | f11b3729582a21ea31555a9106d2190e180e2ce9 /src/VeriFuzz/Verilog/Quote.hs | |
parent | 3ddfc0111566113b3ec15725cb5ced6dea531a3a (diff) | |
download | verismith-76e9b994258d9af87868ba9f420db4ee1c29de67.tar.gz verismith-76e9b994258d9af87868ba9f420db4ee1c29de67.zip |
Format with brittany
Diffstat (limited to 'src/VeriFuzz/Verilog/Quote.hs')
-rw-r--r-- | src/VeriFuzz/Verilog/Quote.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/VeriFuzz/Verilog/Quote.hs b/src/VeriFuzz/Verilog/Quote.hs index b252af2..362cf06 100644 --- a/src/VeriFuzz/Verilog/Quote.hs +++ b/src/VeriFuzz/Verilog/Quote.hs @@ -33,11 +33,12 @@ liftText txt = AppE (VarE 'T.pack) <$> lift (T.unpack txt) -- | Quasiquoter for verilog, so that verilog can be written inline and be -- parsed to an AST at compile time. verilog :: QuasiQuoter -verilog = QuasiQuoter { quoteExp = quoteVerilog - , quotePat = undefined - , quoteType = undefined - , quoteDec = undefined - } +verilog = QuasiQuoter + { quoteExp = quoteVerilog + , quotePat = undefined + , quoteType = undefined + , quoteDec = undefined + } quoteVerilog :: String -> TH.Q TH.Exp quoteVerilog s = do @@ -45,5 +46,5 @@ quoteVerilog s = do let pos = T.pack $ TH.loc_filename loc v <- case parseVerilog pos (T.pack s) of Right e -> return e - Left e -> fail $ show e + Left e -> fail $ show e liftDataWithText v |