- (mapconcat 'identity
- '("case" "class" "data" "default" "deriving" "else" "hiding"
- "if" "import" "in" "infix" "infixl" "infixr" "instance"
- "interface" "let" "module" "of" "renaming" "then" "to"
- "type" "where")
- "\\|")
- "\\)\\b")
+ (mapconcat 'identity
+ '("case" "class" "data" "default" "deriving" "else"
+ "hiding" "if" "import" "in" "infix" "infixl"
+ "infixr" "instance" "interface" "let" "module"
+ "of" "renaming" "then" "to" "type" "where")
+ "\\|")
+ "\\)\\b")
+; '("(\\|)\\|\\[\\|\\]\\|,\\|[\\\\!$#^%&*@~?=-+<>.:]+" . font-lock-function-name-face)