Fix Semigroup.lua/concatArray failing at runtime

CHANGELOG.md

@@ -9,6 +9,7 @@ Breaking changes:
 New features:
 
 Bugfixes:
+- Fixed `Semigroup.append` broken for `Array` (#4 by @Renegatto)
 
 Other improvements:
 

src/Data/Semigroup.lua

@@ -4,7 +4,15 @@ return {
     return function(ys)
       if #xs == 0 then return ys end
       if #ys == 0 then return xs end
-      return table.concat(xs, ys)
+      local result = {}
+      for index, value in ipairs(xs) do
+        result[index] = value
+      end
+      local offset = #result
+      for index, value in ipairs(ys) do
+        result[index + offset] = value
+      end
+      return result
     end
   end)
 }