diff --git a/Assistant/Threads/Upgrader.hs b/Assistant/Threads/Upgrader.hs index 86a42514d9..8914a8bee9 100644 --- a/Assistant/Threads/Upgrader.hs +++ b/Assistant/Threads/Upgrader.hs @@ -84,4 +84,4 @@ getDistributionInfo = do ) distributionInfoUrl :: String -distributionInfoUrl = fromJust Build.SysConfig.upgradelocation ++ "/info" +distributionInfoUrl = fromJust Build.SysConfig.upgradelocation ++ ".info" diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs index 35851fa344..d3d144afa1 100644 --- a/Build/DistributionUpdate.hs +++ b/Build/DistributionUpdate.hs @@ -32,11 +32,7 @@ makeinfos = do Nothing -> noop Just (k, _b) -> whenM (inAnnex k) $ do liftIO $ putStrLn f - {- The info file is in the same directory - - as the annex release bundle file. This - - relies on each such file being in its - - own directory. -} - let infofile = (dropFileName f "info") + let infofile = f ++ ".info" liftIO $ writeFile infofile $ show $ GitAnnexDistribution { distributionUrl = mkUrl basedir f , distributionKey = k