on master help sign in
Merge pull request #1174 from elm-lang/dev

Stop using … because of dumb British windows

commit433e20c47d491b700e8d7c7018bbb3b95abc2086 authorEvan Czaplicki <info@elm-lang.org> dateTue 17 Nov 2015, 11:12 (11 years ago) parentac6df88c90c15f
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