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"