@@ -79,7 +79,7 @@ toReport dealiaser err =
79 Report.simple
79 Report.simple
80 "DUPLICATE DEFINITION"
80 "DUPLICATE DEFINITION"
81 ("Naming multiple top-level values '" ++ name ++ "' makes things\n"
81 ("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?"
84 ("Find all the top-level values named '" ++ name ++ "' and\n"
84 ("Find all the top-level values named '" ++ name ++ "' and\n"
85 ++ "do some renaming. Make sure the names are distinct!"
85 ++ "do some renaming. Make sure the names are distinct!"
@@ -89,7 +89,7 @@ toReport dealiaser err =
89 Report.simple
89 Report.simple
90 "DUPLICATE DEFINITION"
90 "DUPLICATE DEFINITION"
91 ("Naming multiple types '" ++ name ++ "' makes things ambiguous\n"
91 ("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?"
94 ("Find all the types named '" ++ name ++ "' and\n"
94 ("Find all the types named '" ++ name ++ "' and\n"
95 ++ "do some renaming. Make sure the names are distinct!"
95 ++ "do some renaming. Make sure the names are distinct!"
@@ -99,7 +99,7 @@ toReport dealiaser err =
99 Report.simple
99 Report.simple
100 "DUPLICATE DEFINITION"
100 "DUPLICATE DEFINITION"
101 ("Naming multiple values '" ++ name ++ "' in a single let-expression makes\n"
101 ("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?"
104 ("Find all the values named '" ++ name ++ "' in this let-expression and\n"
104 ("Find all the values named '" ++ name ++ "' in this let-expression and\n"
105 ++ "do some renaming. Make sure the names are distinct!"
105 ++ "do some renaming. Make sure the names are distinct!"