From 64a65bb554de4445089eb2aaaf3e0122c973e79f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 24 Dec 2015 13:06:03 -0400 Subject: typo --- Database/Keys.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Database') 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 -- cgit v1.2.3