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 ]