@@ -2240,7 +2240,7 @@ clause syn
2240 return $ PClause fc n capp wargs rs wheres) <|> (do
2240 return $ PClause fc n capp wargs rs wheres) <|> (do
2241 popIndent
2241 popIndent
2242 reserved "with"
2242 reserved "with"
2243− lchar '('
2243+ lchar '(' <?> "parenthesized expression"
2244 wval <- bracketed syn
2244 wval <- bracketed syn
2245 openBlock
2245 openBlock
2246 ds <- some $ fnDecl syn
2246 ds <- some $ fnDecl syn
@@ -2274,7 +2274,7 @@ clause syn
2274 reserved "with"
2274 reserved "with"
2275 ist <- get
2275 ist <- get
2276 put (ist { lastParse = Just n })
2276 put (ist { lastParse = Just n })
2277− lchar '('
2277+ lchar '(' <?> "parenthesized expression"
2278 wval <- bracketed syn
2278 wval <- bracketed syn
2279 openBlock
2279 openBlock
2280 ds <- some $ fnDecl syn
2280 ds <- some $ fnDecl syn