Remove special case support for appending text
commit128138c431fe13135089d465dd2ae74c73118ab4
authorEvan Czaplicki <info@elm-lang.org>
dateFri 19 Feb 2016, 15:08 (11 years ago)
parent3d94566
src/AST/Variable.hs−10
@@ -124,16 +124,6 @@ isTask =
124124 is ["Task"] "Task"
125125
126126
127−isSignal :: Canonical -> Bool
128−isSignal =
129− is ["Signal"] "Signal"
130−
131−
132−isText :: Canonical -> Bool
133−isText =
134− is ["Text"] "Text"
135−
136−
137127isList :: Canonical -> Bool
138128isList v =
139129 v == Canonical BuiltIn "List"
src/Type/Unify.hs+1−1
@@ -353,7 +353,7 @@ atomMatchesSuper super name =
353353 isPrimitiveFrom ["Int", "Float", "Char", "String"] name
354354
355355 Appendable ->
356− Var.isPrim "String" name || Var.isText name
356+ Var.isPrim "String" name
357357
358358 CompAppend ->
359359 Var.isPrim "String" name