From 9505cb3a76760a07c89c0d63adaaea2cdb4e102f Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sun, 4 Aug 2024 06:28:55 +0300
Subject: [PATCH] wip

---
 hbs2-sync/src/HBS2/Sync/Prelude.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/hbs2-sync/src/HBS2/Sync/Prelude.hs b/hbs2-sync/src/HBS2/Sync/Prelude.hs
index 7fc5b9a3..fad925bb 100644
--- a/hbs2-sync/src/HBS2/Sync/Prelude.hs
+++ b/hbs2-sync/src/HBS2/Sync/Prelude.hs
@@ -129,6 +129,24 @@ getFileTimestamp filePath = do
   t0 <- liftIO $ getModificationTime filePath
   pure (round $ utcTimeToPOSIXSeconds t0)
 
+
+data EntryType = File | Dir
+                 deriving stock (Eq,Ord,Show,Data,Generic)
+
+data EntryDesc =
+  EntryDesc
+  { entryType      :: EntryType
+  , entryTimestamp :: Word64
+  }
+  deriving stock (Eq,Ord,Show,Data,Generic)
+
+data DirEntry = DirEntry EntryDesc FilePath
+                deriving stock (Eq,Ord,Show,Data,Generic)
+
+entriesFromLocalFile :: MonadUnliftIO m => FilePath -> FilePath -> m [DirEntry]
+entriesFromLocalFile prefix fn = do
+  pure mempty
+
 runDirectory :: ( IsContext c
                 , SyncAppPerks m
                 , Exception (BadFormException c)