Storage: close handles before renaming lock files

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Erebos/Storage/Internal.hs b/src/Erebos/Storage/Internal.hs
index d419a5e..8b794d8 100644
--- a/src/Erebos/Storage/Internal.hs
+++ b/src/Erebos/Storage/Internal.hs
@@ -241,7 +241,7 @@ writeFileOnce file content = bracket (openLockFile locked)
         doesFileExist file >>= \case
             True  -> removeFile locked
             False -> do BL.hPut h content
-                        hFlush h
+                        hClose h
                         renameFile locked file
     where locked = file ++ ".lock"
 
@@ -254,13 +254,13 @@ writeFileChecked file prev content = bracket (openLockFile locked)
                 removeFile locked
                 return $ Left $ Just current
             (Nothing, False) -> do B.hPut h content
-                                   hFlush h
+                                   hClose h
                                    renameFile locked file
                                    return $ Right ()
             (Just expected, True) -> do
                 current <- B.readFile file
                 if current == expected then do B.hPut h content
-                                               hFlush h
+                                               hClose h
                                                renameFile locked file
                                                return $ return ()
                                        else do removeFile locked