diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2019-11-24 15:24:13 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2019-11-24 15:24:13 +0000 |
| commit | e79d350b145139128a2aecf32666ee5b1cd05adb (patch) | |
| tree | 448407326637705fc58e49fad27255ea4059c59e | |
| parent | 13daf66fb94e9fc883b83ddbe75d7d554bdd7ff4 (diff) | |
| download | verismith-e79d350b145139128a2aecf32666ee5b1cd05adb.tar.gz verismith-e79d350b145139128a2aecf32666ee5b1cd05adb.zip | |
Fix more changes to for loops
| -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 318e8e6..586e085 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) e (mutExpr f a2) $ mutExpr f s + mutExpr f (ForLoop a1 e a2 s) = ForLoop a1 e a2 $ mutExpr f s instance Mutate Parameter where mutExpr _ = id |