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 /src/Verismith/Verilog/Mutate.hs | |
parent | 13daf66fb94e9fc883b83ddbe75d7d554bdd7ff4 (diff) | |
download | verismith-e79d350b145139128a2aecf32666ee5b1cd05adb.tar.gz verismith-e79d350b145139128a2aecf32666ee5b1cd05adb.zip |
Fix more changes to for loops
Diffstat (limited to 'src/Verismith/Verilog/Mutate.hs')
-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 |