diff options
| -rw-r--r-- | Remote/Tahoe.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Remote/Tahoe.hs b/Remote/Tahoe.hs index c5494939a..6abbeaf5e 100644 --- a/Remote/Tahoe.hs +++ b/Remote/Tahoe.hs @@ -39,6 +39,7 @@ import Logs.RemoteState import Utility.UserInfo import Utility.Metered import Utility.Env +import Utility.ThreadScheduler {- The TMVar is left empty until tahoe has been verified to be running. -} data TahoeHandle = TahoeHandle TahoeConfigDir (TMVar ()) @@ -170,7 +171,9 @@ getSharedConvergenceSecret configdir = go (60 :: Int) case v of Just s | "\n" `isSuffixOf` s || "\r" `isSuffixOf` s -> return $ takeWhile (`notElem` "\n\r") s - _ -> go (n - 1) + _ -> do + threadDelaySeconds (Seconds 1) + go (n - 1) convergenceFile :: TahoeConfigDir -> FilePath convergenceFile configdir = configdir </> "private" </> "convergence" |