wip

2024-08-06 07:20:01 +03:00 · 2024-08-06 07:20:01 +03:00 · 1865d061f7
parent 3ab7474a98
commit 1865d061f7
1 changed files with 6 additions and 0 deletions
--- 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"