replace removeLink with removeFile
same reasoning as in commit 5cc8d9d03b
This commit is contained in:
parent
90eb1e2da6
commit
f8bb9a8734
9 changed files with 16 additions and 21 deletions
|
@ -233,7 +233,7 @@ buildrpms topdir l = do
|
|||
<$> liftIO (getDirectoryContents rpmrepo)
|
||||
forM_ tarrpmarches $ \(tararch, rpmarch) ->
|
||||
forM_ (filter (isstandalonetarball tararch . fst) l) $ \(tarball, v) -> do
|
||||
liftIO $ mapM_ (removeWhenExistsWith (R.removeLink . toRawFilePath))
|
||||
liftIO $ mapM_ (removeWhenExistsWith removeFile)
|
||||
(filter ((rpmarch ++ ".rpm") `isSuffixOf`) oldrpms)
|
||||
void $ liftIO $ boolSystem script
|
||||
[ Param rpmarch
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue