pprCtO MCompOrigin           = ptext (sLit "a statement in a monad comprehension")
pprCtO MCompOrigin           = ptext (sLit "a statement in a monad comprehension")
pprCtO MCompOrigin           = ptext (sLit "a statement in a monad comprehension")