From 2b3714df858c58c642c120842c17a3f206f0f08f Mon Sep 17 00:00:00 2001 From: Adam Procter Date: Mon, 9 May 2016 16:33:45 -0500 Subject: [PATCH] Fix code duplication bug in codegen --- ReWire/Core/Transformations/ToPreHDL.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ReWire/Core/Transformations/ToPreHDL.hs b/ReWire/Core/Transformations/ToPreHDL.hs index 707ecef..5d580bf 100644 --- a/ReWire/Core/Transformations/ToPreHDL.hs +++ b/ReWire/Core/Transformations/ToPreHDL.hs @@ -886,7 +886,7 @@ funExpr e = case ef of then return (c_scr `mkSeq` e1' `mkSeq` CaseIf [(BoolVar e1'l,e1'c)],r_res) else do (e2',e2'l) <- funExpr e2 let cases = [(BoolVar e1'l,e1'c),(BoolVar e2'l,e2')] - return (c_scr `mkSeq` e1' `mkSeq` e2' `mkSeq` CaseIf cases,r_res) + return (c_scr `mkSeq` e1' {-`mkSeq` e2'-} `mkSeq` CaseIf cases,r_res) _ -> fail "funExpr: encountered case expression in function position" where (ef:eargs) = flattenApp e