v0.1.7: fix instances with where on the same line as the heading

clean.js

@@ -286,6 +286,7 @@ var highlightRules = {
 	],
 	contextType: [
 		[/(special)/,    ['keyword'], 'pop:2;special'],
+		[/(where)/,      ['keyword'], 'pop:3'],
 		[/(,)/,          ['punctuation']],
 		[/(&)/,          ['punctuation'], 'pop'],
 		[/(\[)/,         ['punctuation'], 'attrenv'],

package.json

 {
   "name": "clean-highlighter",
-  "version": "0.1.6",
+  "version": "0.1.7",
   "description": "Clean language highlighter",
   "keywords": ["clean","highlighter"],
   "main": "clean.js",

tests/instance-Monad-RWST

+-----
+instance Monad (RWST r w s m) | Monad m & Monoid w where
+  bind m k
+    = RWST (   \r s          -> runRWST m r s
+           >>= \(a, s`, w)   -> runRWST (k a) r s`
+           >>= \(b, s``, w`) -> pure (b, s``, mappend w w`))
+-----
+keyword	instance
+whitespace	 
+classname	Monad
+whitespace	 
+punctuation	(
+type	RWST
+whitespace	 
+typevar	r
+whitespace	 
+typevar	w
+whitespace	 
+typevar	s
+whitespace	 
+typevar	m
+punctuation	)
+whitespace	 
+punctuation	|
+whitespace	 
+classname	Monad
+whitespace	 
+typevar	m
+whitespace	 
+punctuation	&
+whitespace	 
+classname	Monoid
+whitespace	 
+typevar	w
+whitespace	 
+keyword	where
+whitespace	\n  
+funcname	bind
+whitespace	 
+argument	m
+whitespace	 
+argument	k
+whitespace	\n    
+punctuation	=
+whitespace	 
+constructor	RWST
+whitespace	 
+punctuation	(
+whitespace	   
+punctuation	\
+funcname funcname-onlyused	r
+whitespace	 
+funcname funcname-onlyused	s
+whitespace	          
+punctuation	->
+whitespace	 
+funcname funcname-onlyused	runRWST
+whitespace	 
+argumentinrhs	m
+whitespace	 
+funcname funcname-onlyused	r
+whitespace	 
+funcname funcname-onlyused	s
+whitespace	\n           
+punctuation	>>=
+whitespace	 
+punctuation	\(
+funcname funcname-onlyused	a
+punctuation	,
+whitespace	 
+funcname funcname-onlyused	s`
+punctuation	,
+whitespace	 
+funcname funcname-onlyused	w
+punctuation	)
+whitespace	   
+punctuation	->
+whitespace	 
+funcname funcname-onlyused	runRWST
+whitespace	 
+punctuation	(
+argumentinrhs	k
+whitespace	 
+funcname funcname-onlyused	a
+punctuation	)
+whitespace	 
+funcname funcname-onlyused	r
+whitespace	 
+funcname funcname-onlyused	s`
+whitespace	\n           
+punctuation	>>=
+whitespace	 
+punctuation	\(
+funcname funcname-onlyused	b
+punctuation	,
+whitespace	 
+funcname funcname-onlyused	s``
+punctuation	,
+whitespace	 
+funcname funcname-onlyused	w`
+punctuation	)
+whitespace	 
+punctuation	->
+whitespace	 
+funcname funcname-onlyused	pure
+whitespace	 
+punctuation	(
+funcname funcname-onlyused	b
+punctuation	,
+whitespace	 
+funcname funcname-onlyused	s``
+punctuation	,
+whitespace	 
+funcname funcname-onlyused	mappend
+whitespace	 
+funcname funcname-onlyused	w
+whitespace	 
+funcname funcname-onlyused	w`
+punctuation	))