diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2019-11-24 15:11:41 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2019-11-24 15:11:41 +0000 |
| commit | 13daf66fb94e9fc883b83ddbe75d7d554bdd7ff4 (patch) | |
| tree | c3b64d502675cb551ec82b653bb92a0c826f729e | |
| parent | be42dec0eb15f2d276c0614d539932da6b891098 (diff) | |
| download | verismith-13daf66fb94e9fc883b83ddbe75d7d554bdd7ff4.tar.gz verismith-13daf66fb94e9fc883b83ddbe75d7d554bdd7ff4.zip | |
Do not mutate the expression in the for loop
| -rw-r--r-- | src/Verismith/Verilog/Mutate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Verismith/Verilog/Mutate.hs b/src/Verismith/Verilog/Mutate.hs index 2f17de5..318e8e6 100644 --- a/src/Verismith/Verilog/Mutate.hs +++ b/src/Verismith/Verilog/Mutate.hs @@ -115,7 +115,7 @@ instance Mutate Statement where mutExpr f (TaskEnable a) = TaskEnable $ mutExpr f a mutExpr f (SysTaskEnable a) = SysTaskEnable $ mutExpr f a mutExpr f (CondStmnt a b c) = CondStmnt (f a) (mutExpr f <$> b) $ mutExpr f <$> c - mutExpr f (ForLoop a1 e a2 s) = ForLoop (mutExpr f a1) (f e) (mutExpr f a2) $ mutExpr f s + mutExpr f (ForLoop a1 e a2 s) = ForLoop (mutExpr f a1) e (mutExpr f a2) $ mutExpr f s instance Mutate Parameter where mutExpr _ = id |