fix cleanup of old rpms

diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs
index 178c23919f0f74782f1accc95c697471f4327349..accec3236e50fb3ce7b27cd0343d14f2cf40234e 100644 (file)
--- a/Build/DistributionUpdate.hs
+++ b/Build/DistributionUpdate.hs
@@ -228,7 +228,7 @@ buildrpms topdir l = do
                <$> liftIO (getDirectoryContents rpmrepo)
        forM_ tarrpmarches $ \(tararch, rpmarch) ->
                forM_ (filter (isstandalonetarball tararch . fst) l) $ \(tarball, v) -> do
-                       liftIO $ mapM_ nukeFile (filter ((tararch ++ ".rpm") `isSuffixOf`) oldrpms)
+                       liftIO $ mapM_ nukeFile (filter ((rpmarch ++ ".rpm") `isSuffixOf`) oldrpms)
                        void $ liftIO $ boolSystem script 
                                [ Param rpmarch
                                , File tarball