@@ -173,7 +173,7 @@ main version = do
173173 ]
174174 )
175175 Run (RunFromSymbol mainName) args -> do
176- getCodebaseOrExit mCodePathOption SC. DoLock ( SC. MigrateAutomatically SC. Backup SC. Vacuum ) \ (_, _, theCodebase) -> do
176+ getCodebaseOrExit mCodePathOption SC. DontLock SC. DontMigrate \ (_, _, theCodebase) -> do
177177 RTI. withRuntime False RTI. OneOffVersion. gitDescribeWithDate version) \ runtime -> do
178178 withArgs args (execute theCodebase runtime mainName) >>= \ case
179179 Left -> exitError =<< RTI. prettyError fetchIssueFromGitHub err
@@ -185,7 +185,7 @@ main version = do
185185 case e of
186186 Left -> exitError " I couldn't find that file or it is for some reason unreadable."
187187 Right -> do
188- getCodebaseOrExit mCodePathOption SC. DoLock ( SC. MigrateAutomatically SC. Backup SC. Vacuum ) \ (initRes, _, theCodebase) -> do
188+ getCodebaseOrExit mCodePathOption SC. DontLock SC. DontMigrate \ (initRes, _, theCodebase) -> do
189189 withRuntimes RTI. OneOff\ (rt, sbrt) -> do
190190 let fileEvent = Input. UnisonFileChangedText. pack file) contents
191191 let noOpCheckForChanges _ = pure ()
@@ -213,7 +213,7 @@ main version = do
213213 case e of
214214 Left -> exitError " I had trouble reading this input."
215215 Right -> do
216- getCodebaseOrExit mCodePathOption SC. DoLock ( SC. MigrateAutomatically SC. Backup SC. Vacuum ) \ (initRes, _, theCodebase) -> do
216+ getCodebaseOrExit mCodePathOption SC. DontLock SC. DontMigrate \ (initRes, _, theCodebase) -> do
217217 withRuntimes RTI. OneOff\ (rt, sbrt) -> do
218218 let fileEvent = Input. UnisonFileChangedText. pack " <standard input>"
219219 let noOpCheckForChanges _ = pure ()
@@ -479,7 +479,7 @@ withTranscriptDir verbosity progName codebaseSetup mCodePathOption action = do
479479 case shouldFork of
480480 UseFork -> do
481481 -- A forked codebase does not need to Create a codebase, because it already exists
482- getCodebaseOrExit mCodePathOption SC. DoLock ( SC. MigrateAutomatically SC. Backup SC. Vacuum ) $ const (pure () )
482+ getCodebaseOrExit mCodePathOption SC. DontLock SC. DontMigrate $ const (pure () )
483483 path <- Codebase. getCodebaseDir (fmap codebasePathOptionToPath mCodePathOption)
484484 (absPath, absTmp) <- bitraverse Directory. canonicalizePath Directory. canonicalizePath (path, tmp)
485485 if (absPath == absTmp)
0 commit comments