incoherentDataConName   = thCon (fsLit "Incoherent")   incoherentDataConKey
incoherentDataConName   = thCon (fsLit "Incoherent")   incoherentDataConKey
incoherentDataConName   = thCon (fsLit "Incoherent")   incoherentDataConKey