on master help sign in
Make the ambiguous messages a little calmer.
commitca5687d761d08ce6ca2953604e26114d00de9dbc authorRichard Feldman <richard.t.feldman@gmail.com> dateMon 1 Jun 2015, 01:19 (11 years ago) parent427586a
1 file changed+3−3
src/Reporting/Error/Syntax.hs+3−3
src/Reporting/Error/Syntax.hs+3−3
@@ -79,7 +79,7 @@ toReport dealiaser err =
7979 Report.simple
8080 "DUPLICATE DEFINITION"
8181 ("Naming multiple top-level values '" ++ name ++ "' makes things\n"
82− ++ "ambiguous. When you say '" ++ name ++ "' which one do you want?!"
82+ ++ "ambiguous. When you say '" ++ name ++ "' which one do you want?"
8383 )
8484 ("Find all the top-level values named '" ++ name ++ "' and\n"
8585 ++ "do some renaming. Make sure the names are distinct!"
@@ -89,7 +89,7 @@ toReport dealiaser err =
8989 Report.simple
9090 "DUPLICATE DEFINITION"
9191 ("Naming multiple types '" ++ name ++ "' makes things ambiguous\n"
92− ++ "When you say '" ++ name ++ "' which one do you want?!"
92+ ++ "When you say '" ++ name ++ "' which one do you want?"
9393 )
9494 ("Find all the types named '" ++ name ++ "' and\n"
9595 ++ "do some renaming. Make sure the names are distinct!"
@@ -99,7 +99,7 @@ toReport dealiaser err =
9999 Report.simple
100100 "DUPLICATE DEFINITION"
101101 ("Naming multiple values '" ++ name ++ "' in a single let-expression makes\n"
102− ++ "things ambiguous. When you say '" ++ name ++ "' which one do you want?!"
102+ ++ "things ambiguous. When you say '" ++ name ++ "' which one do you want?"
103103 )
104104 ("Find all the values named '" ++ name ++ "' in this let-expression and\n"
105105 ++ "do some renaming. Make sure the names are distinct!"