diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-12-24 13:06:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-12-24 13:06:03 -0400 |
| commit | 64a65bb554de4445089eb2aaaf3e0122c973e79f (patch) | |
| tree | fc48aab8e5affcdb03d697d7d87fd1701afb2c2a /Database/Keys.hs | |
| parent | 7c30af770b98a0459f65b9bfff37f35b5da0835d (diff) | |
typo
Diffstat (limited to 'Database/Keys.hs')
| -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 |