voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, debug

This commit is contained in:
Dmitry Zuikov 2024-08-04 17:05:49 +03:00
parent b4a2bbdf81
commit 3a11c15f62
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-sync/src/HBS2/Sync/Prelude.hs
View File

@ -431,7 +431,7 @@ runDirectory path = do
liftIO $ setModificationTime (path </> p) timestamp liftIO $ setModificationTime (path </> p) timestamp
when (freshIn p e remote) do when (freshIn p e remote && actuallyFile) do
-- FIXME: dangerous! -- FIXME: dangerous!
lbs <- liftIO (LBS.readFile (path </> p)) lbs <- liftIO (LBS.readFile (path </> p))