Not broken array semigroup

.github/workflows/ci.yml

@@ -1,34 +1,34 @@
 name: CI
-
-on:
-  push:
-    branches: [master]
-  pull_request:
+on: [push]
 
 jobs:
-  build:
+  test:
     runs-on: ubuntu-latest
+
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
 
-      - uses: purescript-contrib/setup-purescript@main
-        with:
-          purescript: "unstable"
+      - name: Install Lua interpreter
+        uses: leafo/gh-actions-lua@v11
 
-      - uses: actions/setup-node@v2
+      - name: Set up Node 20
+        uses: actions/setup-node@v4
         with:
-          node-version: "14.x"
+          node-version: "20.x"
 
-      - name: Install dependencies
+      - name: Set up Purescript and spago-legacy
         run: |
-          npm install -g bower
-          npm install
-          bower install --production
+          npm i -g purescript
+          npm i -g spago-legacy
 
-      - name: Build source
-        run: npm run-script build
+      - name: Download pslua
+        run: wget -c https://github.com/Unisay/purescript-lua/releases/download/0.2/pslua-linux_x86_64.tar.gz -O - | tar -xz
 
-      - name: Run tests
-        run: |
-          bower install
-          npm run-script test --if-present
+      - run: mkdir bin
+      - run: mv pslua bin
+
+      - name: Put pslua on PATH
+        run: realpath bin >> $GITHUB_PATH
+
+      - name: Build and test
+        run: ./test.sh

CHANGELOG.md

@@ -10,8 +10,12 @@ New features:
 
 Bugfixes:
 
+- `Semigroup (Array a)` no longer type errors at runtime
+
 Other improvements:
 
+- Ported tests
+
 ## [v6.0.1](https://github.com/purescript/purescript-prelude/releases/tag/v6.0.1) - 2022-08-18
 
 Other improvements:

LICENSE

@@ -1,4 +1,4 @@
-Copyright 2018 PureScript
+Copyright 2018-2025 PureScript, Unisay, UnrelatedString
 
 Redistribution and use in source and binary forms, with or without modification,
 are permitted provided that the following conditions are met:

README.md

@@ -1,10 +1,11 @@
-# purescript-prelude
+# purescript-lua-prelude
 
-[![Latest release](http://img.shields.io/github/release/purescript/purescript-prelude.svg)](https://github.com/purescript/purescript-prelude/releases)
-[![Build status](https://github.com/purescript/purescript-prelude/workflows/CI/badge.svg?branch=master)](https://github.com/purescript/purescript-prelude/actions?query=workflow%3ACI+branch%3Amaster)
+[![Latest release](http://img.shields.io/github/release/Unisay/purescript-lua-prelude.svg)](https://github.com/Unisay/purescript-lua-prelude/releases)
+[![Build status](https://github.com/Unisay/purescript-lua-prelude/workflows/CI/badge.svg?branch=master)](https://github.com/Unisay/purescript-lua-prelude/actions?query=workflow%3ACI+branch%3Amain)
 [![Pursuit](https://pursuit.purescript.org/packages/purescript-prelude/badge)](https://pursuit.purescript.org/packages/purescript-prelude)
 
-The PureScript prelude.
+The PureScript prelude for Lua.
+
 
 ## Installation
 
@@ -14,4 +15,4 @@ spago install prelude
 
 ## Documentation
 
-Module documentation is [published on Pursuit](http://pursuit.purescript.org/packages/purescript-prelude).
+Module documentation (for the implementation of the same API for the JavaScript backend) is [published on Pursuit](http://pursuit.purescript.org/packages/purescript-prelude).

spago-legacy

@@ -0,0 +1,6 @@
+#!/usr/bin/env sh
+if spago-legacy --version > /dev/null; then
+  spago-legacy "$@"
+else
+  spago "$@"
+fi

spago.dhall

@@ -1,5 +1,6 @@
 { name = "purescript-lua-prelude"
 , dependencies = [ ] : List Text
 , packages = ./packages.dhall
-, sources = [ "src/**/*.purs" ]
+, sources = [ "src/**/*.purs", "test/**/*.purs" ]
+, backend = "pslua --foreign-path . --lua-output-file output/main.lua"
 }

src/Data/Ord.lua

@@ -17,7 +17,23 @@ local unsafeCoerceImpl = function(lt)
 end
 
 return {
-  ordBooleanImpl = (unsafeCoerceImpl),
+  ordBooleanImpl = (function(lt)
+    return function(eq)
+      return function(gt)
+        return function(x)
+          return function(y)
+            if not x and y then
+              return lt
+            elseif x == y then
+              return eq
+            else
+              return gt
+            end
+          end
+        end
+      end
+    end
+  end),
   ordIntImpl = (unsafeCoerceImpl),
   ordNumberImpl = (unsafeCoerceImpl),
   ordStringImpl = (unsafeCoerceImpl),

src/Data/Semigroup.lua

@@ -3,8 +3,14 @@ return {
   concatArray = (function(xs)
     return function(ys)
       if #xs == 0 then return ys end
-      if #ys == 0 then return xs end
-      return table.concat(xs, ys)
+      local r = {}
+      for i, v in pairs(xs) do
+        r[i] = v
+      end
+      for i, v in pairs(ys) do
+        r[#xs+i] = v
+      end
+      return r
     end
   end)
 }