From 4a914a497a25aeec61a3c27c7953199e5408f2cb Mon Sep 17 00:00:00 2001
From: Evan Czaplicki <info@elm-lang.org>
Date: Thu, 10 Oct 2013 14:25:49 -0700
Subject: [PATCH] Fix append on text

string literals have type string, whereas string objects are instances
of String
---
 libraries/Native/List.js | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/libraries/Native/List.js b/libraries/Native/List.js
index 086b2c5..30c1e56 100644
--- a/libraries/Native/List.js
+++ b/libraries/Native/List.js
@@ -53,10 +53,8 @@ Elm.Native.List.make = function(elm) {
     }
 
     function append(xs,ys) {
-        if (typeof xs === "string") {
-            if (xs.isText) return Utils.txt(xs.concat(ys));
-            return xs.concat(ys);
-        }
+        if (xs.isText) return Utils.txt(xs.concat(ys));
+        if (typeof xs === "string") return xs.concat(ys);
         if (xs.ctor === '[]') { return ys; }
         var root = Cons(xs._0, Nil);
         var curr = root;