From 21d23c869733745ec2d0533772e881d88c682261 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 19 Aug 2009 17:34:23 +0200 Subject: [PATCH] Add a not in isUserDefined. The meaning of isUserDefined was accidentally reversed. --- "c\316\273ash/CLasH/Normalize/NormalizeTools.hs" | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git "a/c\316\273ash/CLasH/Normalize/NormalizeTools.hs" "b/c\316\273ash/CLasH/Normalize/NormalizeTools.hs" index 3761498..c9e2f80 100644 --- "a/c\316\273ash/CLasH/Normalize/NormalizeTools.hs" +++ "b/c\316\273ash/CLasH/Normalize/NormalizeTools.hs" @@ -201,7 +201,7 @@ isUserDefined :: CoreSyn.CoreBndr -> Bool -- System names are certain to not be user defined isUserDefined bndr | Name.isSystemName (Id.idName bndr) = False -- Check a list of typical compiler-defined names -isUserDefined bndr = str `elem` compiler_names +isUserDefined bndr = not $ str `elem` compiler_names where str = Name.getOccString bndr -- These are names of bindings usually generated by the compiler. For some -- 2.30.2