diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-01 14:48:54 +0100 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-01 14:48:54 +0100 |
commit | fd2963cae60c87aa3bcf382829cb7c44e6e0c2ae (patch) | |
tree | fdb170affd1b7f727ca057587f01850729a36fd8 /src/Test/VeriFuzz/Verilog/AST.hs | |
parent | 99d2932e1b4357f4e0aa303a29d08bfd81977a9e (diff) | |
download | verismith-fd2963cae60c87aa3bcf382829cb7c44e6e0c2ae.tar.gz verismith-fd2963cae60c87aa3bcf382829cb7c44e6e0c2ae.zip |
Fix linting warnings
Diffstat (limited to 'src/Test/VeriFuzz/Verilog/AST.hs')
-rw-r--r-- | src/Test/VeriFuzz/Verilog/AST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Test/VeriFuzz/Verilog/AST.hs b/src/Test/VeriFuzz/Verilog/AST.hs index 6f6e930..515987a 100644 --- a/src/Test/VeriFuzz/Verilog/AST.hs +++ b/src/Test/VeriFuzz/Verilog/AST.hs @@ -273,7 +273,7 @@ instance Monoid VerilogSrc where traverseExpr :: Traversal' Expr Expr traverseExpr _ (Number s v) = pure $ Number s v traverseExpr _ (Id id) = pure $ Id id -traverseExpr f (Concat e) = Concat <$> (sequenceA $ f <$> e) +traverseExpr f (Concat e) = Concat <$> sequenceA (f <$> e) traverseExpr f (UnOp un e) = UnOp un <$> f e traverseExpr f (BinOp l op r) = BinOp <$> f l <*> pure op <*> f r traverseExpr f (Cond c l r) = Cond <$> f c <*> f l <*> f r |