From 3493653759246ad0faea6370bb94290636973fba Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 18 Jun 2014 16:34:28 -0400 Subject: fix generation of infor files Now have files relative to the top of the repo. --- Build/DistributionUpdate.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'Build') diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs index 98a2417c9..ea8796969 100644 --- a/Build/DistributionUpdate.hs +++ b/Build/DistributionUpdate.hs @@ -103,14 +103,14 @@ makeinfos updated = do now <- liftIO getCurrentTime liftIO $ putStrLn $ "building info files in " ++ basedir forM_ updated $ \(f, bv) -> do - v <- lookupFile f + v <- lookupFile (basedir f) case v of Nothing -> noop Just k -> whenM (inAnnex k) $ do liftIO $ putStrLn f - let infofile = f ++ ".info" + let infofile = basedir f ++ ".info" liftIO $ writeFile infofile $ show $ GitAnnexDistribution - { distributionUrl = mkUrl basedir f + { distributionUrl = mkUrl f , distributionKey = k , distributionVersion = bv , distributionReleasedate = now @@ -118,7 +118,7 @@ makeinfos updated = do } void $ inRepo $ runBool [Param "add", File infofile] signFile infofile - signFile f + signFile (basedir f) void $ inRepo $ runBool [ Param "commit" , Param "-m" @@ -151,8 +151,8 @@ getRepoDir = do home <- liftIO myHomeDir return $ home "lib" "downloads" -mkUrl :: FilePath -> FilePath -> String -mkUrl basedir f = "https://downloads.kitenet.net/" ++ relPathDirToFile basedir f +mkUrl :: FilePath -> String +mkUrl f = "https://downloads.kitenet.net/" ++ f signFile :: FilePath -> Annex () signFile f = do -- cgit v1.2.3