From 0566be6dee7fdfd823ff83caa24fe9b9e7114a91 Mon Sep 17 00:00:00 2001 From: rightfold Date: Tue, 21 Mar 2017 11:00:56 +0100 Subject: [PATCH] Add ToSQLValue Number instance --- src/Database/PostgreSQL.purs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Database/PostgreSQL.purs b/src/Database/PostgreSQL.purs index 0bd7bb2..3f1c642 100644 --- a/src/Database/PostgreSQL.purs +++ b/src/Database/PostgreSQL.purs @@ -124,6 +124,9 @@ instance toSQLValueInt :: ToSQLValue Int where instance fromSQLValueInt :: FromSQLValue Int where fromSQLValue = fromRight <<< runExcept <<< readInt +instance toSQLValueNumber :: ToSQLValue Number where + toSQLValue = toForeign + instance toSQLValueString :: ToSQLValue String where toSQLValue = toForeign