Add Foreign instances

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

View File

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