git.iko.soy/purescript-indexed-DB
on master help sign in
make CursorDirection non-optional when openin cursor
commit0bcf2b0323c51ecb16c177b74b97a297d9eceed5 authorKtorZ <matthias.benkort@gmail.com> dateFri 30 Jun 2017, 11:30 (9 years ago) parent302a9f3
1 file changed+8−8
compare with master
unifiedsplit
src/Database/IndexedDB/IDBIndex/Internal.purs+8−8
src/Database/IndexedDB/IDBIndex/Internal.purs+8−8
@@ -21,8 +21,8 @@ class IDBIndex index where
2121 get :: forall a eff. index -> KeyRange -> Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) (Maybe a)
2222 getAllKeys :: forall eff. index -> Maybe KeyRange -> Maybe Int -> Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) (Array Key)
2323 getKey :: forall eff. index -> KeyRange -> Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) (Maybe Key)
24− openCursor :: forall eff. index -> Maybe KeyRange -> Maybe CursorDirection -> Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) ValueCursor
25− openKeyCursor :: forall eff. index -> Maybe KeyRange -> Maybe CursorDirection -> Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) KeyCursor
24+ openCursor :: forall eff. index -> Maybe KeyRange -> CursorDirection -> Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) ValueCursor
25+ openKeyCursor :: forall eff. index -> Maybe KeyRange -> CursorDirection -> Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) KeyCursor
2626
2727
2828--------------------
@@ -70,10 +70,10 @@ instance idbIndexIndex :: IDBIndex Index where
7070 toMaybe <$> Fn.runFn2 _getKey index range
7171
7272 openCursor index range dir =
73− Fn.runFn3 _openCursor index (toNullable range) (toNullable dir)
73+ Fn.runFn3 _openCursor index (toNullable range) (show dir)
7474
7575 openKeyCursor index range dir =
76− Fn.runFn3 _openKeyCursor index (toNullable range) (toNullable dir)
76+ Fn.runFn3 _openKeyCursor index (toNullable range) (show dir)
7777
7878
7979instance idbIndexObjectStore :: IDBIndex ObjectStore where
@@ -90,10 +90,10 @@ instance idbIndexObjectStore :: IDBIndex ObjectStore where
9090 toMaybe <$> Fn.runFn2 _getKey store range
9191
9292 openCursor store range dir =
93− Fn.runFn3 _openCursor store (toNullable range) (toNullable dir)
93+ Fn.runFn3 _openCursor store (toNullable range) (show dir)
9494
9595 openKeyCursor store range dir =
96− Fn.runFn3 _openKeyCursor store (toNullable range) (toNullable dir)
96+ Fn.runFn3 _openKeyCursor store (toNullable range) (show dir)
9797
9898
9999--------------------
@@ -126,7 +126,7 @@ foreign import _getAllKeys :: forall index eff. Fn3 index (Nullable KeyRange) (N
126126foreign import _getKey :: forall index eff. Fn2 index KeyRange (Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) (Nullable Key))
127127
128128
129−foreign import _openCursor :: forall index eff. Fn3 index (Nullable KeyRange) (Nullable CursorDirection) (Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) ValueCursor)
129+foreign import _openCursor :: forall index eff. Fn3 index (Nullable KeyRange) String (Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) ValueCursor)
130130
131131
132−foreign import _openKeyCursor :: forall index eff. Fn3 index (Nullable KeyRange) (Nullable CursorDirection) (Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) KeyCursor)
132+foreign import _openKeyCursor :: forall index eff. Fn3 index (Nullable KeyRange) String (Aff (idb :: INDEXED_DB, exception :: EXCEPTION | eff) KeyCursor)