@@ -784,12 +784,6 @@ let_ syn = try (do reserved "let"
784 ls <- indentedBlock (let_binding syn)
784 ls <- indentedBlock (let_binding syn)
785 reserved "in"; sc <- expr syn
785 reserved "in"; sc <- expr syn
786 return (buildLets ls sc))
786 return (buildLets ls sc))
787−-- <|> (do reserved "let"; fc <- getFC; pat <- expr' (syn { inPattern = True } )
788−-- symbol "="; v <- expr syn
789−-- ts <- option [] (do lchar '|'
790−-- sepBy1 (do_alt syn) (lchar '|'))
791−-- reserved "in"; sc <- expr syn
792−-- return (PCase fc v ((pat, sc) : ts)))
793 <?> "let binding"
787 <?> "let binding"
794 where buildLets [] sc = sc
788 where buildLets [] sc = sc
795 buildLets ((fc,PRef _ n,ty,v,[]):ls) sc
789 buildLets ((fc,PRef _ n,ty,v,[]):ls) sc