@@ -1152,9 +1152,9 @@ constraintList1 syn = try (do lchar '('
11521152 return [(defname, NoFC, t)])
11531153 <?> "type constraint list"
11541154 where nexpr = try (do (n, fc) <- name; lchar ':'
1155− e <- expr syn
1155+ e <- expr (disallowImp syn)
11561156 return (n, fc, e))
1157− <|> do e <- expr syn
1157+ <|> do e <- expr (disallowImp syn)
11581158 return (defname, NoFC, e)
11591159 defname = sMN 0 "constraint"
11601160