From b833727dfe4afa50d3f8cbd56319eaebb67aa8f9 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 16 Jun 2010 11:18:15 +0200 Subject: [PATCH] Don't mix up the i and dc_i variables. --- clash/CLasH/Utils/Core/CoreTools.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/clash/CLasH/Utils/Core/CoreTools.hs b/clash/CLasH/Utils/Core/CoreTools.hs index a88bf47..c7bce65 100644 --- a/clash/CLasH/Utils/Core/CoreTools.hs +++ b/clash/CLasH/Utils/Core/CoreTools.hs @@ -464,7 +464,7 @@ mkSelCase scrut dc_i i = do Just (tycon, tyargs) -> case TyCon.tyConDataCons_maybe tycon of -- The scrutinee type should have a single dataconstructor, -- otherwise we can't construct a valid selector case. - Just dcs | i < 0 || i >= length dcs -> error $ "\nCoreTools.mkSelCase: Creating extractor case, but datacon index is invalid." ++ error_msg + Just dcs | dc_i < 0 || dc_i >= length dcs -> error $ "\nCoreTools.mkSelCase: Creating extractor case, but datacon index is invalid." ++ error_msg | otherwise -> do let datacon = (dcs!!dc_i) let field_tys = DataCon.dataConInstOrigArgTys datacon tyargs -- 2.30.2