1 files changed, 9 insertions, 1 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 8090aac..0d2844f 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -237,7 +237,15 @@ refreshCache rt rootdir = do
                     rename (tmpdir ++ ".link") destdir
                     er <- T.mapM dotlock_release lock
                     void $ T.mapM removeDirectoryRecursive oldcommit
-            return (mkpath,commit)
+            -- Present transaction is Write only (or Write-Before-Read) which is fine.
+            -- If ever Read-Before-Write is required, uncomment and use:
+            -- let readyReadBeforeWrite pth = do
+            --    let copyIt = do
+            --          createDirectoryIfMissing True (takeDirectory (mkpath pth))
+            --          copyFile (destdir </> unslash pth) (mkpath pth)
+            --    doesFileExist (mkpath pth) >>= flip when copyIt
+            --    return (mkpath pth)
+            return (mkpath, commit {-, readyReadBeforeWrite -})
     (mkpath, commit) <- getMkPathAndCommit (fromMaybe "" rootdir ++ "/var/cache/kiki/config")
 
     -- Generete hosts file.