@@ -680,13 +680,12 @@ app syn = do f <- simpleExpr syn
680 (PMatchApp fc ff)
680 (PMatchApp fc ff)
681 (PRef fc [] (sMN 0 "match")))
681 (PRef fc [] (sMN 0 "match")))
682 <?> "matching application expression") <|>
682 <?> "matching application expression") <|>
684− fc <- getFC
683+ (do fc <- getFC
686 args <- many (do notEndApp; arg syn)
685 args <- many (do notEndApp; arg syn)
687 wargs <- if withAppAllowed syn && not (inPattern syn)
686 wargs <- if withAppAllowed syn && not (inPattern syn)
688− then many (do notEndApp; reservedOp "|"; expr' syn)
687+ then many (do notEndApp; reservedOp "|"; expr' syn)
689− else return []
688+ else return []
690 case args of
689 case args of
691 [] -> return f
690 [] -> return f
692 _ -> return (withApp fc (flattenFromInt fc f args) wargs))
691 _ -> return (withApp fc (flattenFromInt fc f args) wargs))