diff options
author | Yann Herklotz <git@ymhg.org> | 2019-04-10 23:42:58 +0100 |
---|---|---|
committer | Yann Herklotz <git@ymhg.org> | 2019-04-10 23:42:58 +0100 |
commit | 186bb5f37770c150bd8e601e9761211af6a9c277 (patch) | |
tree | 33ccc13403d1c9a168909b1e9987f29028834396 /src/VeriFuzz/Sim/Reduce.hs | |
parent | aefb46596f3f2302540a83b2be8b042232822a2f (diff) | |
download | verismith-186bb5f37770c150bd8e601e9761211af6a9c277.tar.gz verismith-186bb5f37770c150bd8e601e9761211af6a9c277.zip |
Fix the generation of modules and add initialisation
Diffstat (limited to 'src/VeriFuzz/Sim/Reduce.hs')
-rw-r--r-- | src/VeriFuzz/Sim/Reduce.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/VeriFuzz/Sim/Reduce.hs b/src/VeriFuzz/Sim/Reduce.hs index 5684ed5..381a84c 100644 --- a/src/VeriFuzz/Sim/Reduce.hs +++ b/src/VeriFuzz/Sim/Reduce.hs @@ -67,8 +67,8 @@ filterExpr ids (Id i) = if i `notElem` ids then Number 1 0 else Id i filterExpr _ e = e filterDecl :: [Identifier] -> ModItem -> Bool -filterDecl ids (Decl Nothing (Port _ _ _ i)) = i `elem` ids -filterDecl _ _ = True +filterDecl ids (Decl Nothing (Port _ _ _ i) _) = i `elem` ids +filterDecl _ _ = True filterAssigns :: [Port] -> ModItem -> Bool filterAssigns out (ModCA (ContAssign i _)) = |