From ec581a9ef10e68ca355d3c322802f08b6c880ce1 Mon Sep 17 00:00:00 2001
From: Evan Czaplicki <info@elm-lang.org>
Date: Thu, 10 Oct 2013 14:29:47 -0700
Subject: [PATCH] Properly join Text

---
 libraries/Native/List.js | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libraries/Native/List.js b/libraries/Native/List.js
index 30c1e56..b632a37 100644
--- a/libraries/Native/List.js
+++ b/libraries/Native/List.js
@@ -253,6 +253,7 @@ Elm.Native.List.make = function(elm) {
     }
 
     function join(sep, xss) {
+        if (sep.isText) return Utils.txt(toArray(xss).join(sep));
         if (typeof sep === 'string') return toArray(xss).join(sep);
         if (xss.ctor === '[]') return Nil;
         var s = toArray(sep);