on master help sign in
Merge pull request #1174 from elm-lang/dev
433e20cEvan Czaplicki
src/Reporting/Error/Syntax.hs+3−3
@@ -166,7 +166,7 @@ toReport _localizer err =
166 ( Help.stack
166 ( Help.stack
167 [ text "You probably need to change the declaration like this:"
167 [ text "You probably need to change the declaration like this:"
168 , dullyellow $ hsep $
168 , dullyellow $ hsep $
169− map text ("type" : "alias" : typeName : filter (`notElem` unused) givenVars ++ ["=", "…"])
169+ map text ("type" : "alias" : typeName : filter (`notElem` unused) givenVars ++ ["=", "..."])
170 ]
170 ]
171 )
171 )
172
172
@@ -185,7 +185,7 @@ toReport _localizer err =
185 ++ ") that do not appear in the declaration."
185 ++ ") that do not appear in the declaration."
186 , text "You probably need to change the declaration like this:"
186 , text "You probably need to change the declaration like this:"
187 , dullyellow $ hsep $
187 , dullyellow $ hsep $
188− map text ("type" : "alias" : typeName : filter (`notElem` unused) givenVars ++ unbound ++ ["=", "…"])
188+ map text ("type" : "alias" : typeName : filter (`notElem` unused) givenVars ++ unbound ++ ["=", "..."])
189 ]
189 ]
190 )
190 )
191
191
@@ -203,7 +203,7 @@ unboundTypeVars declKind typeName givenVars unboundVars@(tvar:_) =
203 , hsep $
203 , hsep $
204 map text (declKind : typeName : givenVars)
204 map text (declKind : typeName : givenVars)
205 ++ map (dullyellow . text) unboundVars
205 ++ map (dullyellow . text) unboundVars
206− ++ map text ["=", "…"]
206+ ++ map text ["=", "..."]
207 , Help.reflowParagraph $
207 , Help.reflowParagraph $
208 "Here's why. Imagine one `" ++ typeName ++ "` where `" ++ tvar ++ "` is an Int and\
208 "Here's why. Imagine one `" ++ typeName ++ "` where `" ++ tvar ++ "` is an Int and\
209 \ another where it is a Bool. When we explicitly list the type variables, type\
209 \ 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 =
307 Help.findPotentialTypos leftOnly rightOnly
307 Help.findPotentialTypos leftOnly rightOnly
308
308
309 mkField func name =
309 mkField func name =
310− ( func (text name), text "…" )
310+ ( func (text name), text "..." )
311
311
312 mkFieldWith counts name =
312 mkFieldWith counts name =
313 mkField (if Set.member name counts then dullyellow else id) name
313 mkField (if Set.member name counts then dullyellow else id) name
@@ -477,7 +477,7 @@ docRecord style fields maybeExt =
477 []
477 []
478
478
479 Elide ->
479 Elide ->
480− [ text "…" ]
480+ [ text "..." ]
481
481
482 fieldDocs =
482 fieldDocs =
483 elision ++ map docField fields
483 elision ++ map docField fields