fix build
This commit is contained in:
parent
c325338df2
commit
1a1d671dd2
1 changed files with 3 additions and 1 deletions
|
@ -23,6 +23,7 @@ import qualified Annex
|
||||||
import Annex.Content
|
import Annex.Content
|
||||||
import Annex.WorkTree
|
import Annex.WorkTree
|
||||||
import Git.Command
|
import Git.Command
|
||||||
|
import qualified Utility.RawFilePath as R
|
||||||
|
|
||||||
import Data.Time.Clock
|
import Data.Time.Clock
|
||||||
import Data.Char
|
import Data.Char
|
||||||
|
@ -228,7 +229,8 @@ buildrpms topdir l = do
|
||||||
<$> liftIO (getDirectoryContents rpmrepo)
|
<$> liftIO (getDirectoryContents rpmrepo)
|
||||||
forM_ tarrpmarches $ \(tararch, rpmarch) ->
|
forM_ tarrpmarches $ \(tararch, rpmarch) ->
|
||||||
forM_ (filter (isstandalonetarball tararch . fst) l) $ \(tarball, v) -> do
|
forM_ (filter (isstandalonetarball tararch . fst) l) $ \(tarball, v) -> do
|
||||||
liftIO $ mapM_ (removeWhenExistsWith removeLink) (filter ((rpmarch ++ ".rpm") `isSuffixOf`) oldrpms)
|
liftIO $ mapM_ (removeWhenExistsWith (R.removeLink . toRawFilePath))
|
||||||
|
(filter ((rpmarch ++ ".rpm") `isSuffixOf`) oldrpms)
|
||||||
void $ liftIO $ boolSystem script
|
void $ liftIO $ boolSystem script
|
||||||
[ Param rpmarch
|
[ Param rpmarch
|
||||||
, File tarball
|
, File tarball
|
||||||
|
|
Loading…
Reference in a new issue