@@ -757,7 +757,7 @@ lambda syn = do lchar '\\' <?> "lambda expression"
757 sc <- expr syn
757 sc <- expr syn
758 return (bindList (PLam fc) xt sc)) <|> do
758 return (bindList (PLam fc) xt sc)) <|> do
759 ps <- sepBy (do fc <- getFC
759 ps <- sepBy (do fc <- getFC
760− e <- simpleExpr syn
760+ e <- simpleExpr (syn { inPattern = True })
761 return (fc, e)) (lchar ',')
761 return (fc, e)) (lchar ',')
762 symbol "=>"
762 symbol "=>"
763 sc <- expr syn
763 sc <- expr syn