summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
8963597)
The meaning of isUserDefined was accidentally reversed.
-- 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
-- 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
where
str = Name.getOccString bndr
-- These are names of bindings usually generated by the compiler. For some