From 6148009a0b28b3d59c426f1701152a3e3784eb5b Mon Sep 17 00:00:00 2001
From: Orion Kindel <orionkindel@gmail.com>
Date: Sat, 16 Dec 2023 15:02:17 -0600
Subject: [PATCH] fix: migrate fork to spago@next, bun

---
 spago.yaml                       | 99 ++++++++++++++++++++++++++++++++
 src/Database/PostgreSQL/Row.purs |  2 +-
 2 files changed, 100 insertions(+), 1 deletion(-)
 create mode 100644 spago.yaml

diff --git a/spago.yaml b/spago.yaml
new file mode 100644
index 0000000..e99bca0
--- /dev/null
+++ b/spago.yaml
@@ -0,0 +1,99 @@
+package:
+  build:
+    strict: true
+    pedantic_packages: true
+  dependencies:
+    - "aff"
+    - "argonaut"
+    - "arrays"
+    - "bifunctors"
+    - "bytestrings"
+    - "datetime"
+    - "decimals"
+    - "effect"
+    - "either"
+    - "enums"
+    - "exceptions"
+    - "foldable-traversable"
+    - "foreign"
+    - "foreign-generic"
+    - "foreign-object"
+    - "identity"
+    - "integers"
+    - "js-date"
+    - "lists"
+    - "maybe"
+    - "newtype"
+    - "nullable"
+    - "prelude"
+    - "profunctor"
+    - "record"
+    - "string-parsers"
+    - "strings"
+    - "transformers"
+    - "tuples"
+    - "unsafe-coerce"
+  name: postgresql-client
+workspace:
+  extra_packages:
+    bytestrings:
+      dependencies:
+        [
+          "arrays",
+          "console",
+          "effect",
+          "exceptions",
+          "foldable-traversable",
+          "integers",
+          "leibniz",
+          "maybe",
+          "newtype",
+          "node-buffer",
+          "partial",
+          "prelude",
+          "quickcheck",
+          "quickcheck-laws",
+          "quotient",
+          "unsafe-coerce"
+        ]
+      git: "https://github.com/martyall/purescript-bytestrings.git"
+      ref: "e51cf868a4137c1c48c98d32115bb2014c9f7624"
+    quotient:
+      dependencies: [ "prelude", "quickcheck" ]
+      git: "https://github.com/rightfold/purescript-quotient.git"
+      ref: "v3.0.0"
+    foreign-generic:
+      dependencies:
+        [
+          "arrays",
+          "assert",
+          "bifunctors",
+          "console",
+          "control",
+          "effect",
+          "either",
+          "exceptions",
+          "foldable-traversable",
+          "foreign",
+          "foreign-object",
+          "identity",
+          "lists",
+          "maybe",
+          "newtype",
+          "partial",
+          "prelude",
+          "record",
+          "strings",
+          "transformers",
+          "tuples",
+          "unsafe-coerce"
+        ]
+      git: "https://github.com/paluh/purescript-foreign-generic.git"
+      ref: "a5c23d29e72619624978446293ac9bb45ccd2fde"
+    js-unsafe-stringify:
+      dependencies: []
+      git: "https://github.com/paluh/purescript-js-unsafe-stringify.git"
+      ref: "master"
+  package_set:
+    url: https://raw.githubusercontent.com/purescript/package-sets/psc-0.15.10-20230930/packages.json
+    hash: sha256-hp58GPoH+qX3eUsk2ecoHBZpQ50rFeZCCMTdKkYTr/Y=
diff --git a/src/Database/PostgreSQL/Row.purs b/src/Database/PostgreSQL/Row.purs
index f21dd59..e47753c 100644
--- a/src/Database/PostgreSQL/Row.purs
+++ b/src/Database/PostgreSQL/Row.purs
@@ -25,7 +25,7 @@ instance toSQLRowTupleOfTuples :: (ToSQLRow (Tuple a ta), ToSQLRow (Tuple b t))
 else instance toSQLRowTuple :: (ToSQLValue a, ToSQLRow (Tuple b t)) => ToSQLRow (Tuple a (Tuple b t)) where
   toSQLRow (Tuple a t) = toSQLValue a : toSQLRow t
 else instance toSQLRowTupleOne :: ToSQLValue a => ToSQLRow (Tuple a Unit) where
-  toSQLRow (Tuple a unit) = [ toSQLValue a ]
+  toSQLRow (Tuple a _) = [ toSQLValue a ]
 else instance toSQLRowTupleTwo :: (ToSQLValue a, ToSQLValue b) => ToSQLRow (Tuple a b) where
   toSQLRow (Tuple a b) = [ toSQLValue a, toSQLValue b ]