font-lock for certain list comprehensions is broken

[purcell]

The following is wrongly interpreted as a quasi-quote:

module Foo where
process = [k|(k,v) <- M.toAscList counts, odd v]

whereas this is fine:

module Foo where
process = [k |(k,v) <- M.toAscList counts, odd v]

(note the space before the |)

[geraldus]

@purcell hi Steve! This is a known issue, please see details here #1185.

[gracjan]

@purcell: If you have better idea than the one given by bgamari in #1185 (comment) then we can try to implement it.

[purcell]

Cool, I'll close this as a duplicate -- sorry for the noise.