From 1865d061f7e6b602a67beaca0038cea1f862586e Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 6 Aug 2024 07:20:01 +0300
Subject: [PATCH] wip

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

diff --git a/hbs2-sync/src/HBS2/Sync/Prelude.hs b/hbs2-sync/src/HBS2/Sync/Prelude.hs
index 977ad7f1..30335975 100644
--- a/hbs2-sync/src/HBS2/Sync/Prelude.hs
+++ b/hbs2-sync/src/HBS2/Sync/Prelude.hs
@@ -865,6 +865,12 @@ syncEntries = do
                      , mkList [mkSym "run"]
                      ]
 
+    [] -> do
+
+      void $ evalTop [ mkList [mkSym "dir", mkStr "."]
+                     , mkList [mkSym "run"]
+                     ]
+
     _ -> pure ()
 
   brief "sets current directory"