diff options
| -rw-r--r-- | Database/Keys.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Database/Keys.hs b/Database/Keys.hs index c51a163c4..f5a28c704 100644 --- a/Database/Keys.hs +++ b/Database/Keys.hs @@ -107,7 +107,7 @@ runWriter a = do v <- case st' of DbOpen qh -> a (WriteHandle qh) _ -> error "internal" - return (v, st) + return (v, st') queueDb :: SqlPersistM () -> WriteHandle -> Annex () queueDb a (WriteHandle h) = liftIO $ H.queueDb h checkcommit a |