From: Matthijs Kooijman Date: Wed, 19 Aug 2009 15:34:23 +0000 (+0200) Subject: Add a not in isUserDefined. X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=21d23c869733745ec2d0533772e881d88c682261;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git Add a not in isUserDefined. The meaning of isUserDefined was accidentally reversed. --- 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