From 3ab7474a98cdcda9a9353cef6aba68e017b82465 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 6 Aug 2024 06:45:14 +0300
Subject: [PATCH] wip

---
 hbs2-sync/src/HBS2/Sync/Prelude.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/hbs2-sync/src/HBS2/Sync/Prelude.hs b/hbs2-sync/src/HBS2/Sync/Prelude.hs
index f1efc43b..977ad7f1 100644
--- a/hbs2-sync/src/HBS2/Sync/Prelude.hs
+++ b/hbs2-sync/src/HBS2/Sync/Prelude.hs
@@ -668,9 +668,6 @@ getStateFromDir0 seed = do
 
   getStateFromDir seed dir incl excl
 
-  where
-    -- onlyLocal x = Map.toList $ Map.fromListWith merge x
-
 getStateFromDir :: ( MonadIO m
                    , HasClientAPI RefChanAPI UNIX m
                    , HasClientAPI StorageAPI UNIX m
@@ -1067,6 +1064,11 @@ syncEntries = do
       <&> either mempty (fmap fixContext)
       >>= evalTop
 
+  entry $ bindMatch "timestamp" $ nil_ $ \case
+    [StringLike fn] -> do
+      liftIO (getFileTimestamp fn >>=  print)
+    _ -> do
+      liftIO $ getPOSIXTime <&> round >>= print
 
 -- debugPrefix :: LoggerEntry -> LoggerEntry
 debugPrefix = toStderr . logPrefix "[debug] "