on master help sign in
Stop saying "here" in parse error messages
2bc07b6Evan Czaplicki
compiler/src/Reporting/Error/Syntax.hs+4−4
@@ -1461,7 +1461,7 @@ toFuncReport source name func startRow startCol =
1461 Report.toCodeSnippet source surroundings (Just region)
1461 Report.toCodeSnippet source surroundings (Just region)
1462 (
1462 (
1463 D.reflow $
1463 D.reflow $
1464− "I was expecting to see an arrow here:"
1464+ "I just saw the beginning of an anonymous function, so I was expecting to see an arrow next:"
1465 ,
1465 ,
1466 D.fillSep $
1466 D.fillSep $
1467 ["The","syntax","for","anonymous","functions","is"
1467 ["The","syntax","for","anonymous","functions","is"
@@ -1479,7 +1479,7 @@ toFuncReport source name func startRow startCol =
1479 Report.toCodeSnippet source surroundings (Just region)
1479 Report.toCodeSnippet source surroundings (Just region)
1480 (
1480 (
1481 D.reflow $
1481 D.reflow $
1482− "I just saw the start of an anonymous function, so I was expecting to see an argument here:"
1482+ "I just saw the beginning of an anonymous function, so I was expecting to see an argument next:"
1483 ,
1483 ,
1484 D.stack
1484 D.stack
1485 [ D.fillSep
1485 [ D.fillSep
@@ -1502,7 +1502,7 @@ toFuncReport source name func startRow startCol =
1502 Report.toCodeSnippet source surroundings (Just region)
1502 Report.toCodeSnippet source surroundings (Just region)
1503 (
1503 (
1504 D.reflow $
1504 D.reflow $
1505− "I was expecting to see an arrow here:"
1505+ "I just saw the beginning of an anonymous function, so I was expecting to see an arrow next:"
1506 ,
1506 ,
1507 D.stack
1507 D.stack
1508 [ D.fillSep $
1508 [ D.fillSep $
@@ -1527,7 +1527,7 @@ toFuncReport source name func startRow startCol =
1527 Report.toCodeSnippet source surroundings (Just region)
1527 Report.toCodeSnippet source surroundings (Just region)
1528 (
1528 (
1529 D.reflow $
1529 D.reflow $
1530− "I was expecting to see the body of your anonymous function here:"
1530+ "I was expecting to see the body of your anonymous function next:"
1531 ,
1531 ,
1532 D.stack
1532 D.stack
1533 [ D.fillSep $
1533 [ D.fillSep $