Treat ids with double primes correctly (fixes #11)

src/lang/sunlight.haskell.js

@@ -20,7 +20,7 @@
 					line = context.reader.getLine(), 
 					column = context.reader.getColumn();
 
-				if (context.reader.current() !== "'" && peek !== "'") {
+				if (context.reader.current() !== "'") {
 					return null;
 				}
 

tests/test-haskell.html

@@ -1000,6 +1000,19 @@
    (TextDetails_Chr 'a') 1 Doc_Empty))))))))))) (Doc_NilAbove (Doc_Nest
 -}
 
+-- Extra code to test identifiers with single quotes in them.
+-- Only 'c' should be highlighted as a character literal,
+-- the rest are legal identifiers.
+
+c :: Char
+c = c'
+  where c' = c''
+        c'' = c'''
+        c''' = c'c'
+        c'c' = c'c''
+        c'c'' = c''c''
+        c''c'' = 'c'
+
 </pre>
 	</body>
 
@@ -1008,4 +1021,4 @@
 		//assertExists("rule", "@import", "css rule declaration");
 
 	//]]></script>
-</html>
+</html>