thunderstrike/purescript-postgresql-client
thunderstrike/purescript-postgresql-client
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add Foreign instances

Browse Source
This commit is contained in:
rightfold 2017-06-08 13:56:21 +02:00
parent 9cb40b5112
commit 35f9da6f50
No known key found for this signature in database
GPG Key ID: 199D0373AC917A8F
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Database/PostgreSQL/Value.purs
View File

@ -77,6 +77,12 @@ instance fromSQLValueMaybe :: (FromSQLValue a) => FromSQLValue (Maybe a) where
fromSQLValue x | isNull x = pure Nothing fromSQLValue x | isNull x = pure Nothing
| otherwise = Just <$> fromSQLValue x | otherwise = Just <$> fromSQLValue x
instance toSQLValueForeign :: ToSQLValue Foreign where
toSQLValue = id
instance fromSQLValueForeign :: FromSQLValue Foreign where
fromSQLValue = pure
foreign import null :: Foreign foreign import null :: Foreign
foreign import instantToString :: Instant -> Foreign foreign import instantToString :: Instant -> Foreign
foreign import unsafeIsBuffer :: ∀ a. a -> Boolean foreign import unsafeIsBuffer :: ∀ a. a -> Boolean