add IDBKey instance for numbers

This commit is contained in:
KtorZ 2017-06-29 17:05:53 +02:00
parent a955d2cfb2
commit 3004733e9e
No known key found for this signature in database
GPG Key ID: 3F72E8BC2894C015

View File

@ -63,6 +63,12 @@ instance idbKeyInt :: IDBKey Int where
unsafeFromKey (Key f) = Foreign.unsafeFromForeign f
instance idbKeyNumber :: IDBKey Number where
toKey = Foreign.toForeign >>> Key
fromKey (Key f) = Foreign.readNumber f
unsafeFromKey (Key f) = Foreign.unsafeFromForeign f
instance idbKeyString :: IDBKey String where
toKey = Foreign.toForeign >>> Key
fromKey (Key f) = Foreign.readString f