input-output-hk/foliage
1
1
Fork 0
mirror of https://github.com/input-output-hk/foliage.git synced 2024-11-28 22:19:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix invocation of RepoTool.bootstrapOrUpdate

Browse Source
This commit is contained in:
Andrea Bedini 2022-03-11 17:04:13 +08:00
parent 03c7683c13
commit 2af2c24b1f
No known key found for this signature in database
GPG Key ID: EE8DEB94262733BE
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Foliage/RepoToolWrapper.hs
View File

@ -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