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

Use IDBKey type-class to make add & put more friendly

Browse Source
This commit is contained in:
KtorZ 2017-06-30 18:39:36 +02:00
parent 376d435658
commit a5170f3893
No known key found for this signature in database
GPG Key ID: 3F72E8BC2894C015
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Database/IndexedDB/IDBObjectStore.purs
View File

@ -11,7 +11,7 @@ module Database.IndexedDB.IDBObjectStore
, defaultParameters , defaultParameters
) where ) where
import Prelude (Unit, ($), (<$>)) import Prelude (Unit, ($), (<$>), (>>>))
import Control.Monad.Aff (Aff) import Control.Monad.Aff (Aff)
import Control.Monad.Eff (Eff) import Control.Monad.Eff (Eff)
@ -24,20 +24,20 @@ import Data.Nullable (Nullable, toNullable)
import Database.IndexedDB.Core (IDB, Index, KeyRange, KeyPath, ObjectStore, Transaction) import Database.IndexedDB.Core (IDB, Index, KeyRange, KeyPath, ObjectStore, Transaction)
import Database.IndexedDB.IDBIndex.Internal (class IDBIndex, IDBIndexParameters, count, get, getAllKeys, getKey, openCursor, openKeyCursor) import Database.IndexedDB.IDBIndex.Internal (class IDBIndex, IDBIndexParameters, count, get, getAllKeys, getKey, openCursor, openKeyCursor)
import Database.IndexedDB.IDBKey.Internal (Key(Key), extractForeign) import Database.IndexedDB.IDBKey.Internal (class IDBKey, Key(Key), extractForeign, toKey)
-------------------- --------------------
-- INTERFACES -- INTERFACES
-- --
class IDBObjectStore store where class IDBObjectStore store where
add :: forall value e. store -> value -> Maybe Key -> Aff (idb :: IDB | e) Key add :: forall v k e. (IDBKey k) => store -> v -> Maybe k -> Aff (idb :: IDB | e) Key
clear :: forall e. store -> Aff (idb :: IDB | e) Unit clear :: forall e. store -> Aff (idb :: IDB | e) Unit
createIndex :: forall e. store -> IndexName -> KeyPath -> IDBIndexParameters -> Eff (idb :: IDB, exception :: EXCEPTION | e) Index createIndex :: forall e. store -> IndexName -> KeyPath -> IDBIndexParameters -> Eff (idb :: IDB, exception :: EXCEPTION | e) Index
delete :: forall e. store -> KeyRange -> Aff (idb :: IDB | e) Unit delete :: forall e. store -> KeyRange -> Aff (idb :: IDB | e) Unit
deleteIndex :: forall e. store -> IndexName -> Eff (idb :: IDB, exception :: EXCEPTION | e) Unit deleteIndex :: forall e. store -> IndexName -> Eff (idb :: IDB, exception :: EXCEPTION | e) Unit
index :: forall e. store -> IndexName -> Eff (idb :: IDB, exception :: EXCEPTION | e) Index index :: forall e. store -> IndexName -> Eff (idb :: IDB, exception :: EXCEPTION | e) Index
put :: forall value e. store -> value -> Maybe Key -> Aff (idb :: IDB | e) Key put :: forall v k e. (IDBKey k) => store -> v -> Maybe k -> Aff (idb :: IDB | e) Key
type IndexName = String type IndexName = String
@ -82,7 +82,7 @@ transaction =
-- --
instance idbObjectStoreObjectStore :: IDBObjectStore ObjectStore where instance idbObjectStoreObjectStore :: IDBObjectStore ObjectStore where
add store value key = add store value key =
Key <$> Fn.runFn3 _add store value (toNullable $ extractForeign <$> key) Key <$> Fn.runFn3 _add store value (toNullable $ (toKey >>> extractForeign) <$> key)
clear = clear =
_clear _clear
@ -100,7 +100,7 @@ instance idbObjectStoreObjectStore :: IDBObjectStore ObjectStore where
Fn.runFn2 _index store name' Fn.runFn2 _index store name'
put store value key = put store value key =
Key <$> Fn.runFn3 _put store value (toNullable $ extractForeign <$> key) Key <$> Fn.runFn3 _put store value (toNullable $ (toKey >>> extractForeign) <$> key)
defaultParameters :: IDBObjectStoreParameters defaultParameters :: IDBObjectStoreParameters