Add ToSQLValue Number instance

This commit is contained in:
rightfold
2017-03-21 11:00:56 +01:00
parent 57ca84c05b
commit 0566be6dee

View File

@@ -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