feat: use uncurried functions, add gitlab-ci

Author: srghma

.github/ISSUE_TEMPLATE/bug-report.md

@@ -0,0 +1,19 @@
+---
+name: Bug report
+about: Report an issue
+title: ""
+labels: bug
+assignees: ""
+---
+
+**Describe the bug**
+A clear and concise description of the bug.
+
+**To Reproduce**
+A minimal code example (preferably a runnable example on [Try PureScript](https://try.purescript.org)!) or steps to reproduce the issue.
+
+**Expected behavior**
+A clear and concise description of what you expected to happen.
+
+**Additional context**
+Add any other context about the problem here.

.github/ISSUE_TEMPLATE/change-request.md

@@ -0,0 +1,21 @@
+---
+name: Change request
+about: Propose an improvement to this library
+title: ""
+labels: ""
+assignees: ""
+---
+
+**Is your change request related to a problem? Please describe.**
+A clear and concise description of the problem.
+
+Examples:
+
+- It's frustrating to have to [...]
+- I was looking for a function to [...]
+
+**Describe the solution you'd like**
+A clear and concise description of what a good solution to you looks like, including any solutions you've already considered.
+
+**Additional context**
+Add any other context about the change request here.

.github/ISSUE_TEMPLATE/config.yml

@@ -0,0 +1,8 @@
+blank_issues_enabled: false
+contact_links:
+  - name: PureScript Discourse
+    url: https://discourse.purescript.org/
+    about: Ask and answer questions on the PureScript discussion forum.
+  - name: PureScript Discord
+    url: https://purescript.org/chat
+    about: Ask and answer questions on the PureScript chat.

.github/PULL_REQUEST_TEMPLATE.md

@@ -0,0 +1,11 @@
+**Description of the change**
+Clearly and concisely describe the purpose of the pull request. If this PR relates to an existing issue or change proposal, please link to it. Include any other background context that would help reviewers understand the motivation for this PR.
+
+---
+
+**Checklist:**
+
+- [ ] Added the change to the changelog's "Unreleased" section with a link to this PR and your username
+- [ ] Linked any existing issues or proposals that this pull request should close
+- [ ] Updated or added relevant documentation in the README and/or documentation directory
+- [ ] Added a test for the contribution (if applicable)

.github/workflows/ci.yml

@@ -2,55 +2,36 @@ name: CI
 
 on:
   push:
-    branches: [main]
+    branches: [master, main]
   pull_request:
-    branches: [main]
+    branches: [master, main]
 
 jobs:
   build:
     runs-on: ubuntu-latest
-
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
 
-      - name: Set up PureScript toolchain
+      - name: Set up a PureScript toolchain
         uses: purescript-contrib/setup-purescript@main
         with:
-          purescript: "0.15.0"
+          purescript: "latest"
+          purs-tidy: "latest"
+          spago: "unstable"
 
       - name: Cache PureScript dependencies
-        uses: actions/cache@v2
+        uses: actions/cache@v4
         with:
-          key: ${{ runner.os }}-spago-${{ hashFiles('**/*.dhall') }}
+          key: ${{ runner.os }}-spago-${{ hashFiles('**/spago.lock') }}
           path: |
             .spago
             output
 
-      - name: Set up Node toolchain
-        uses: actions/setup-node@v2
-        with:
-          node-version: "14.x"
-
-      - name: Cache NPM dependencies
-        uses: actions/cache@v2
-        env:
-          cache-name: cache-node-modules
-        with:
-          path: ~/.npm
-          key: ${{ runner.os }}-build-${{ env.cache-name }}-${{ hashFiles('**/package.json') }}
-          restore-keys: |
-            ${{ runner.os }}-build-${{ env.cache-name }}-
-            ${{ runner.os }}-build-
-            ${{ runner.os }}-
-
-      - name: Install NPM dependencies
-        run: npm install
-
-      - name: Install spago deps
-        run: npm run deps
+      - name: Build source
+        run: spago build --censor-stats --strict --ensure-ranges --pedantic-packages
 
-      - name: Build the project
-        run: npm run build
+      - name: Run tests
+        run: spago test --offline --censor-stats --strict --pedantic-packages
 
-      - name: Test the project
-        run: npm run test
+      - name: Verify formatting
+        run: purs-tidy check src test

spago.lock

@@ -64,7 +64,7 @@
             "foldable-traversable",
             "foreign",
             "foreign-object",
-            "function s",
+            "functions",
             "functors",
             "gen",
             "identity",
@@ -139,7 +139,7 @@
             "foreign-object",
             "fork",
             "free",
-            "function s",
+            "functions",
             "functors",
             "gen",
             "identity",
@@ -341,7 +341,7 @@
         "freeap": "7.0.0",
         "freer-free": "0.0.1",
         "freet": "7.0.0",
-        "function s": "6.0.0",
+        "functions": "6.0.0",
         "functor1": "3.0.0",
         "functors": "5.0.0",
         "fuzzy": "0.4.0",
@@ -733,7 +733,7 @@
         "either",
         "exceptions",
         "foldable-traversable",
-        "function s",
+        "functions",
         "maybe",
         "newtype",
         "parallel",
@@ -781,7 +781,7 @@
         "control",
         "either",
         "foreign-object",
-        "function s",
+        "functions",
         "gen",
         "maybe",
         "nonempty",
@@ -804,7 +804,7 @@
         "bifunctors",
         "control",
         "foldable-traversable",
-        "function s",
+        "functions",
         "maybe",
         "nonempty",
         "partial",
@@ -826,7 +826,7 @@
         "effect",
         "either",
         "exceptions",
-        "function s",
+        "functions",
         "maybe"
       ]
     },
@@ -906,7 +906,7 @@
         "either",
         "enums",
         "foldable-traversable",
-        "function s",
+        "functions",
         "gen",
         "integers",
         "lists",
@@ -1018,7 +1018,7 @@
       "integrity": "sha256-1ORiqoS3HW+qfwSZAppHPWy4/6AQysxZ2t29jcdUMNA=",
       "dependencies": [
         "either",
-        "function s",
+        "functions",
         "identity",
         "integers",
         "lists",
@@ -1035,7 +1035,7 @@
       "dependencies": [
         "arrays",
         "foldable-traversable",
-        "function s",
+        "functions",
         "gen",
         "lists",
         "maybe",
@@ -1076,7 +1076,7 @@
         "unsafe-coerce"
       ]
     },
-    "function s": {
+    "functions": {
       "type": "registry",
       "version": "6.0.0",
       "integrity": "sha256-adMyJNEnhGde2unHHAP79gPtlNjNqzgLB8arEOn9hLI=",
@@ -1253,7 +1253,7 @@
       "dependencies": [
         "effect",
         "either",
-        "function s",
+        "functions",
         "maybe",
         "nullable",
         "prelude",
@@ -1270,7 +1270,7 @@
         "either",
         "enums",
         "exceptions",
-        "function s",
+        "functions",
         "integers",
         "js-date",
         "maybe",
@@ -1357,7 +1357,7 @@
       "integrity": "sha256-yiGBVl3AD+Guy4kNWWeN+zl1gCiJK+oeIFtZtPCw4+o=",
       "dependencies": [
         "effect",
-        "function s",
+        "functions",
         "maybe"
       ]
     },
@@ -1366,7 +1366,7 @@
       "version": "9.0.1",
       "integrity": "sha256-/9M6aeMDBdB4cwYDeJvLFprAHZ49EbtKQLIJsneXLIk=",
       "dependencies": [
-        "function s",
+        "functions",
         "maybe"
       ]
     },
@@ -1533,7 +1533,7 @@
       "version": "4.0.0",
       "integrity": "sha256-Za5U85bTRJEfGK5Sk4hM41oXy84YQI0I8TL3WUn1Qzg=",
       "dependencies": [
-        "function s",
+        "functions",
         "prelude",
         "unsafe-coerce"
       ]

spago.yaml

@@ -31,4 +31,4 @@ package:
 workspace:
   extraPackages: {}
   packageSet:
-    registry: 63.6.0
+    registry: 63.6.0

src/React/Basic/DOM.js

@@ -1,23 +1,10 @@
-import * as ReactDOM from 'react-dom';
-
-export function renderThen(jsx) {
-  return (node) => (callback) => () =>
-    ReactDOM.render(jsx, node, callback);
-}
-
-export function hydrateThen(jsx) {
-  return (node) => (callback) => () =>
-    ReactDOM.hydrate(jsx, node, callback);
-}
-
-export function unmount(node) {
-  return () => ReactDOM.unmountComponentAtNode(node);
-}
-
-export function createPortal(jsx) {
-  return (node) => ReactDOM.createPortal(jsx, node);
-}
-
-export function flushSync(callback) {
-  return () => ReactDOM.flushSync(callback);
-}
+import ReactDOM from "react-dom";
+
+// eslint-disable-next-line react/no-deprecated
+export const renderThenFn = ReactDOM.render;
+// eslint-disable-next-line react/no-deprecated
+export const hydrateThenFn = ReactDOM.hydrate;
+// eslint-disable-next-line react/no-deprecated
+export const unmountComponentAtNode = ReactDOM.unmountComponentAtNode;
+export const createPortalFn = ReactDOM.createPortal;
+export const flushSyncFn = ReactDOM.flushSync;

src/React/Basic/DOM.purs

@@ -19,7 +19,9 @@ module React.Basic.DOM
 
 import Prelude
 
+import Data.Function.Uncurried (Fn2, runFn2)
 import Effect (Effect)
+import Effect.Uncurried (EffectFn1, runEffectFn1, EffectFn3, runEffectFn3)
 import Prim.TypeError (class Warn, Text)
 import React.Basic (JSX)
 import React.Basic.DOM.Generated (Props_a, Props_abbr, Props_address, Props_area, Props_article, Props_aside, Props_audio, Props_b, Props_base, Props_bdi, Props_bdo, Props_blockquote, Props_body, Props_br, Props_button, Props_canvas, Props_caption, Props_cite, Props_code, Props_col, Props_colgroup, Props_data, Props_datalist, Props_dd, Props_del, Props_details, Props_dfn, Props_dialog, Props_div, Props_dl, Props_dt, Props_em, Props_embed, Props_fieldset, Props_figcaption, Props_figure, Props_footer, Props_form, Props_h1, Props_h2, Props_h3, Props_h4, Props_h5, Props_h6, Props_head, Props_header, Props_hgroup, Props_hr, Props_html, Props_i, Props_iframe, Props_img, Props_input, Props_ins, Props_kbd, Props_keygen, Props_label, Props_legend, Props_li, Props_link, Props_main, Props_map, Props_mark, Props_math, Props_menu, Props_menuitem, Props_meta, Props_meter, Props_nav, Props_noscript, Props_object, Props_ol, Props_optgroup, Props_option, Props_output, Props_p, Props_param, Props_picture, Props_pre, Props_progress, Props_q, Props_rb, Props_rp, Props_rt, Props_rtc, Props_ruby, Props_s, Props_samp, Props_script, Props_section, Props_select, Props_slot, Props_small, Props_source, Props_span, Props_strong, Props_style, Props_sub, Props_summary, Props_sup, Props_table, Props_tbody, Props_td, Props_template, Props_textarea, Props_tfoot, Props_th, Props_thead, Props_time, Props_title, Props_tr, Props_track, Props_u, Props_ul, Props_var, Props_video, Props_wbr, a, a', a_, abbr, abbr', abbr_, address, address', address_, area, area', article, article', article_, aside, aside', aside_, audio, audio', audio_, b, b', b_, base, base', bdi, bdi', bdi_, bdo, bdo', bdo_, blockquote, blockquote', blockquote_, body, body', body_, br, br', button, button', button_, canvas, canvas', canvas_, caption, caption', caption_, cite, cite', cite_, code, code', code_, col, col', colgroup, colgroup', colgroup_, data', data'', data_, datalist, datalist', datalist_, dd, dd', dd_, del, del', del_, details, details', details_, dfn, dfn', dfn_, dialog, dialog', dialog_, div, div', div_, dl, dl', dl_, dt, dt', dt_, em, em', em_, embed, embed', fieldset, fieldset', fieldset_, figcaption, figcaption', figcaption_, figure, figure', figure_, footer, footer', footer_, form, form', form_, h1, h1', h1_, h2, h2', h2_, h3, h3', h3_, h4, h4', h4_, h5, h5', h5_, h6, h6', h6_, head, head', head_, header, header', header_, hgroup, hgroup', hgroup_, hr, hr', html, html', html_, i, i', i_, iframe, iframe', iframe_, img, img', input, input', ins, ins', ins_, kbd, kbd', kbd_, keygen, keygen', keygen_, label, label', label_, legend, legend', legend_, li, li', li_, link, link', main, main', main_, map, map', map_, mark, mark', mark_, math, math', math_, menu, menu', menu_, menuitem, menuitem', menuitem_, meta, meta', meter, meter', meter_, nav, nav', nav_, noscript, noscript', noscript_, object, object', object_, ol, ol', ol_, optgroup, optgroup', optgroup_, option, option', option_, output, output', output_, p, p', p_, param, param', picture, picture', picture_, pre, pre', pre_, progress, progress', progress_, q, q', q_, rb, rb', rb_, rp, rp', rp_, rt, rt', rt_, rtc, rtc', rtc_, ruby, ruby', ruby_, s, s', s_, samp, samp', samp_, script, script', script_, section, section', section_, select, select', select_, slot, slot', slot_, small, small', small_, source, source', span, span', span_, strong, strong', strong_, style, style', style_, sub, sub', sub_, summary, summary', summary_, sup, sup', sup_, table, table', table_, tbody, tbody', tbody_, td, td', td_, template, template', template_, textarea, textarea', textarea_, tfoot, tfoot', tfoot_, th, th', th_, thead, thead', thead_, time, time', time_, title, title', title_, tr, tr', tr_, track, track', u, u', u_, ul, ul', ul_, var, var', var_, video, video', video_, wbr, wbr') as Generated
@@ -50,9 +52,9 @@ render'
   -> Element
   -> Effect Unit
   -> Effect Unit
-render' = renderThen
+render' = runEffectFn3 renderThenFn
 
-foreign import renderThen :: JSX -> Element -> Effect Unit -> Effect Unit
+foreign import renderThenFn :: EffectFn3 JSX Element (Effect Unit) Unit
 
 -- | Render or update/re-render a component tree into
 -- | a DOM element, attempting to reuse the existing
@@ -82,22 +84,28 @@ hydrate'
   -> Element
   -> Effect Unit
   -> Effect Unit
-hydrate' = hydrateThen
+hydrate' = runEffectFn3 hydrateThenFn
 
-foreign import hydrateThen :: JSX -> Element -> Effect Unit -> Effect Unit
+foreign import hydrateThenFn :: EffectFn3 JSX Element (Effect Unit) Unit
 
 -- | Attempt to unmount and clean up the React app
 -- | rendered into the given element. Returns `true`
 -- | if an app existed and was unmounted successfully.
 -- |
 -- | __*Note:* Relies on `ReactDOM.unmountComponentAtNode`__
 -- | __*Note:* `unmount` has been replaced with `Client.unmountRoot` in React 18
-foreign import unmount :: Element -> Effect Boolean
+unmount :: Element -> Effect Boolean
+unmount = runEffectFn1 unmountComponentAtNode
+
+foreign import unmountComponentAtNode :: EffectFn1 Element Boolean
 
 -- | Divert a render tree into a separate DOM node. The node's
 -- | content will be overwritten and managed by React, similar
 -- | to `render` and `hydrate`.
-foreign import createPortal :: JSX -> Element -> JSX
+createPortal :: JSX -> Element -> JSX
+createPortal = runFn2 createPortalFn
+
+foreign import createPortalFn :: Fn2 JSX Element JSX
 
 -- | Create a text node.
 text :: String -> JSX
@@ -112,4 +120,7 @@ text = unsafeCoerce
 -- |     flushSync (setMessages (_ <> [msg]))
 -- |     scrollToLastMessage
 -- | ```
-foreign import flushSync :: forall a. Effect a -> Effect a
+flushSync :: forall a. Effect a -> Effect a
+flushSync = runEffectFn1 flushSyncFn
+
+foreign import flushSyncFn :: forall a. EffectFn1 (Effect a) a