diff options
-rw-r--r-- | Assistant/Threads/Upgrader.hs | 2 | ||||
-rw-r--r-- | Build/DistributionUpdate.hs | 6 |
2 files changed, 2 insertions, 6 deletions
diff --git a/Assistant/Threads/Upgrader.hs b/Assistant/Threads/Upgrader.hs index 86a42514d..8914a8bee 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 35851fa34..d3d144afa 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 |