@@ -26,8 +26,8 @@ main = launchAff' do
26 log $ maybe "not found" id val
26 log $ maybe "not found" id val
29−onUpgradeNeeded :: forall e. Database -> Transaction -> Eff (idb :: IDB, exception :: EXCEPTION | e) Unit
29+onUpgradeNeeded :: forall e. Database -> Transaction -> { oldVersion :: Int } -> Eff (idb :: IDB, exception :: EXCEPTION | e) Unit
30−onUpgradeNeeded db _ = launchAff' do
30+onUpgradeNeeded db _ _ = launchAff' do
31 store <- IDBDatabase.createObjectStore db "store" IDBObjectStore.defaultParameters
31 store <- IDBDatabase.createObjectStore db "store" IDBObjectStore.defaultParameters
32 _ <- IDBObjectStore.add store "patate" (Just 1)
32 _ <- IDBObjectStore.add store "patate" (Just 1)
33 _ <- IDBObjectStore.add store { property: 42 } (Just 2)
33 _ <- IDBObjectStore.add store { property: 42 } (Just 2)
@@ -51,6 +51,10 @@ one.
52## Changelog
52## Changelog
56+- callback to `onUpgradeNeeded` event now provide a record with the database old version.
54#### v2.0.0
58#### v2.0.0
56- review interface implementation (use of opaque classes to improve readability without compromising
60- review interface implementation (use of opaque classes to improve readability without compromising