ilyakooo0/purescript-indexedDB
1
0
Fork 0
mirror of https://github.com/ilyakooo0/purescript-indexedDB.git synced 2024-09-11 06:55:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

add IDBKey instance to Key

Browse Source
This commit is contained in:
KtorZ 2017-06-30 11:30:06 +02:00
parent ea5183dcc7
commit 302a9f31af
No known key found for this signature in database
GPG Key ID: 3F72E8BC2894C015
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/IndexedDB/IDBKey/Internal.purs
View File

@ -88,6 +88,12 @@ instance showKey :: Show Key where
either (const "(Key)") (\s -> "(Key " <> s <> ")") x
instance idbKeyKey :: IDBKey Key where
toKey = id
fromKey = pure
unsafeFromKey = id
instance idbKeyInt :: IDBKey Int where
toKey = Foreign.toForeign >>> Key
fromKey (Key f) = Foreign.readInt f