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

wip

This commit is contained in:
Dmitry Zuikov 2024-08-06 06:45:14 +03:00
parent 8e320fcab5
commit 3ab7474a98
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -668,9 +668,6 @@ getStateFromDir0 seed = do
getStateFromDir seed dir incl excl getStateFromDir seed dir incl excl
where
-- onlyLocal x = Map.toList $ Map.fromListWith merge x
getStateFromDir :: ( MonadIO m getStateFromDir :: ( MonadIO m
, HasClientAPI RefChanAPI UNIX m , HasClientAPI RefChanAPI UNIX m
, HasClientAPI StorageAPI UNIX m , HasClientAPI StorageAPI UNIX m
@ -1067,6 +1064,11 @@ syncEntries = do
<&> either mempty (fmap fixContext) <&> either mempty (fmap fixContext)
>>= evalTop >>= evalTop
entry $ bindMatch "timestamp" $ nil_ $ \case
[StringLike fn] -> do
liftIO (getFileTimestamp fn >>= print)
_ -> do
liftIO $ getPOSIXTime <&> round >>= print
-- debugPrefix :: LoggerEntry -> LoggerEntry -- debugPrefix :: LoggerEntry -> LoggerEntry
debugPrefix = toStderr . logPrefix "[debug] " debugPrefix = toStderr . logPrefix "[debug] "