muesli 0.1.0.0 → 0.1.0.1
raw patch · 4 files changed
+7/−9 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- README.md +1/−1
- muesli.cabal +2/−2
- src/Database/Muesli/Backend/File.hs +1/−1
- src/Database/Muesli/Commit.hs +3/−5
README.md view
@@ -149,7 +149,7 @@ - [ ] replication - [ ] more advanced & flexible index system supporting complex indexes, joins, etc. - [ ] fancy query language-- [ ] optimize reads: faster cache, mainIdx (hastable maybe?)+- [ ] optimize reads: faster cache, mainIdx (hashtable maybe?) - [x] waiting for [`OverloadedRecordFields`][orf] Implementation
muesli.cabal view
@@ -1,6 +1,6 @@ name: muesli category: Database-version: 0.1.0.0+version: 0.1.0.1 synopsis: A simple document-oriented database description: @muesli@ is an easy to use@@ -18,7 +18,7 @@ bug-reports: https://github.com/clnx/muesli/issues author: Călin Ardelean maintainer: Călin Ardelean <calinucs@gmail.com>-copyright: Copyright (C) 2015 Călin Ardelean+copyright: Copyright (c) 2015 Călin Ardelean license: MIT license-file: LICENSE.md stability: experimental
src/Database/Muesli/Backend/File.hs view
@@ -52,7 +52,7 @@ withDb path f = liftIO . withBinaryFile path ReadWriteMode $ f . FileHandle - swapDb oldPath path = liftIO (renameFile path oldPath) >> openDb path+ swapDb oldPath path = liftIO (renameFile path oldPath) >> openDb oldPath instance DataHandle FileHandle where readDocument hnd r = do
src/Database/Muesli/Commit.hs view
@@ -56,8 +56,6 @@ liftIO = Transaction . liftIO -- | State held inside a 'Transaction'.------ Note: The 'Transaction' type is internally 'StateT' ('TransactionState' l) m a. data TransactionState l = TransactionState { transHandle :: !(Handle l) -- | Allocated by 'runQuery' with 'mkNewTransactionId' (auto-incremental)@@ -67,7 +65,8 @@ -- of these, so the transaction is aborted if concurrent transactions update -- any of them. , transReadList :: ![DocumentKey]--- | Accumulates all updated or deleted documents' keys.+-- | Accumulates all updated or deleted documents' keys together with the+-- serialized data. , transUpdateList :: ![(LogRecord, ByteString)] } @@ -210,8 +209,7 @@ return (DataState hnd cache', ()) withMaster h $ \m -> do let rs' = fst <$> rs- let trec = Completed tid- st <- logAppend (logState m) [trec]+ st <- logAppend (logState m) [Completed tid] let (lgp, lgc) = updateLog tid (keepTrans m) (logPend m) (logComp m) let m' = m { logState = st , logPend = lgp