Fix invocation of RepoTool.bootstrapOrUpdate

input-output-hk · Mar 11, 2022 · 2af2c24 · 2af2c24
1 parent 03c7683
commit 2af2c24
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/app/Foliage/RepoToolWrapper.hs b/app/Foliage/RepoToolWrapper.hs
@@ -16,13 +16,13 @@ updateRepo :: FilePath -> FilePath -> IO ()
 updateRepo keysDir repoDir = do
   keysLoc <- KeysLoc <$> makeAbsolute (fromFilePath keysDir)
   repoLoc <- RepoLoc <$> makeAbsolute (fromFilePath repoDir)
-  RepoTool.bootstrapOrUpdate (globalOpts $ Update keysLoc repoLoc) keysLoc repoLoc True
+  RepoTool.bootstrapOrUpdate (globalOpts $ Update keysLoc repoLoc) keysLoc repoLoc False
 
 bootstrapRepo :: FilePath -> FilePath -> IO ()
 bootstrapRepo keysDir repoDir = do
   keysLoc <- KeysLoc <$> makeAbsolute (fromFilePath keysDir)
   repoLoc <- RepoLoc <$> makeAbsolute (fromFilePath repoDir)
-  RepoTool.bootstrapOrUpdate (globalOpts $ Bootstrap keysLoc repoLoc) keysLoc repoLoc False
+  RepoTool.bootstrapOrUpdate (globalOpts $ Bootstrap keysLoc repoLoc) keysLoc repoLoc True
 
 createKeys :: FilePath -> IO ()
 createKeys keysDir = do