on master help sign in
Stop using … because of dumb British windows

Fix #1171 for the greater good

commitc90c15f6793dba0784686a33c2472cad6e67fc35 authorEvan Czaplicki <info@elm-lang.org> dateTue 17 Nov 2015, 10:36 (11 years ago) parentac6df88
2 files changed+5−5
src/Reporting/Error/Syntax.hs+3−3 src/Reporting/Render/Type.hs+2−2
src/Reporting/Error/Syntax.hs+3−3
@@ -166,7 +166,7 @@ toReport _localizer err =
166166 ( Help.stack
167167 [ text "You probably need to change the declaration like this:"
168168 , dullyellow $ hsep $
169− map text ("type" : "alias" : typeName : filter (`notElem` unused) givenVars ++ ["=", "…"])
169+ map text ("type" : "alias" : typeName : filter (`notElem` unused) givenVars ++ ["=", "..."])
170170 ]
171171 )
172172
@@ -185,7 +185,7 @@ toReport _localizer err =
185185 ++ ") that do not appear in the declaration."
186186 , text "You probably need to change the declaration like this:"
187187 , dullyellow $ hsep $
188− map text ("type" : "alias" : typeName : filter (`notElem` unused) givenVars ++ unbound ++ ["=", "…"])
188+ map text ("type" : "alias" : typeName : filter (`notElem` unused) givenVars ++ unbound ++ ["=", "..."])
189189 ]
190190 )
191191
@@ -203,7 +203,7 @@ unboundTypeVars declKind typeName givenVars unboundVars@(tvar:_) =
203203 , hsep $
204204 map text (declKind : typeName : givenVars)
205205 ++ map (dullyellow . text) unboundVars
206− ++ map text ["=", "…"]
206+ ++ map text ["=", "..."]
207207 , Help.reflowParagraph $
208208 "Here's why. Imagine one `" ++ typeName ++ "` where `" ++ tvar ++ "` is an Int and\
209209 \ another where it is a Bool. When we explicitly list the type variables, type\
src/Reporting/Render/Type.hs+2−2
@@ -307,7 +307,7 @@ analyzeFields leftOnly rightOnly =
307307 Help.findPotentialTypos leftOnly rightOnly
308308
309309 mkField func name =
310− ( func (text name), text "…" )
310+ ( func (text name), text "..." )
311311
312312 mkFieldWith counts name =
313313 mkField (if Set.member name counts then dullyellow else id) name
@@ -477,7 +477,7 @@ docRecord style fields maybeExt =
477477 []
478478
479479 Elide ->
480− [ text "…" ]
480+ [ text "..." ]
481481
482482 fieldDocs =
483483 elision ++ map docField fields