Fix #8: remove special case for newline in types

clean.js

@@ -207,6 +207,7 @@ function highlightClean(func, callback, start) {
 			                  'keyword', 'whitespace', 'keyword', 'whitespace',
 			                  'punctuation']
 			                 , 'type'],
+			[/(\()(\S+)(\))/,['punctuation', 'funcname', 'punctuation'], 'funcargs'],
 			[/(infix[rl]?)(\s+)(\d*)/,
 			                 ['keyword', 'whitespace', 'keyword']],
 			[/(foreign export(?: (?:c|std)call)?)/,
@@ -259,7 +260,6 @@ function highlightClean(func, callback, start) {
 			[/(\|})/,        ['punctuation'], 'jump:funcargs'],
 		],
 		type: [
-			[/(\n)/,         ['whitespace'], 'pop'],
 			[/(where)/,      ['keyword'], 'pop'],
 			[/(of)/,         ['keyword'], 'typeOfPattern'],
 			[/([a-z][\w`]*)/, ['typevar']],
@@ -303,7 +303,6 @@ function highlightClean(func, callback, start) {
 			[/([*>-]+\|\})/, ['punctuation'], 'jump:contextType']
 		],
 		contextType: [
-			[/(\n)/,         ['whitespace'], 'pop:2;macro'],
 			[/(special)/,    ['keyword'], 'pop:2;special'],
 			[/(,)/,          ['punctuation']],
 			[/(&)/,          ['punctuation'], 'pop'],

tests/instances-Applicative

+-----
+instance Functor (Const m)
+instance Functor (WrappedMonad m) | Monad m
+instance Applicative (Const m) | Monoid m
+instance Applicative (WrappedMonad m) | Monad m
+instance Monad (WrappedMonad m) | Monad m
+-----
+keyword	instance
+whitespace	 
+classname	Functor
+whitespace	 
+punctuation	(
+type	Const
+whitespace	 
+typevar	m
+punctuation	)
+whitespace	\n
+keyword	instance
+whitespace	 
+classname	Functor
+whitespace	 
+punctuation	(
+type	WrappedMonad
+whitespace	 
+typevar	m
+punctuation	)
+whitespace	 
+punctuation	|
+whitespace	 
+classname	Monad
+whitespace	 
+typevar	m
+whitespace	\n
+keyword	instance
+whitespace	 
+classname	Applicative
+whitespace	 
+punctuation	(
+type	Const
+whitespace	 
+typevar	m
+punctuation	)
+whitespace	 
+punctuation	|
+whitespace	 
+classname	Monoid
+whitespace	 
+typevar	m
+whitespace	\n
+keyword	instance
+whitespace	 
+classname	Applicative
+whitespace	 
+punctuation	(
+type	WrappedMonad
+whitespace	 
+typevar	m
+punctuation	)
+whitespace	 
+punctuation	|
+whitespace	 
+classname	Monad
+whitespace	 
+typevar	m
+whitespace	\n
+keyword	instance
+whitespace	 
+classname	Monad
+whitespace	 
+punctuation	(
+type	WrappedMonad
+whitespace	 
+typevar	m
+punctuation	)
+whitespace	 
+punctuation	|
+whitespace	 
+classname	Monad
+whitespace	 
+typevar	m