haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-25 21:51:57 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use remote-repo-cache (#51)

Browse Source
This commit is contained in:
Michael Snoyman 2013-04-02 11:42:09 +03:00
parent 705c03d8c6
commit 863be9b68a
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Stackage/Util.hs
View File

@ -4,8 +4,10 @@ module Stackage.Util where
import qualified Codec.Archive.Tar as Tar import qualified Codec.Archive.Tar as Tar
import qualified Codec.Archive.Tar.Entry as TarEntry import qualified Codec.Archive.Tar.Entry as TarEntry
import Control.Monad (guard, when) import Control.Monad (guard, when)
import Data.Char (isSpace)
import Data.List (stripPrefix) import Data.List (stripPrefix)
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Maybe (mapMaybe)
import qualified Data.Set as Set import qualified Data.Set as Set
import Data.Version (showVersion) import Data.Version (showVersion)
import Distribution.License (License (..)) import Distribution.License (License (..))
@ -56,7 +58,15 @@ getCabalRoot = getAppUserDataDirectory "cabal"
getTarballName :: IO FilePath getTarballName :: IO FilePath
getTarballName = do getTarballName = do
c <- getCabalRoot c <- getCabalRoot
return $ c </> "packages" </> "hackage.haskell.org" </> "00-index.tar" configLines <- fmap lines $ readFile (c </> "config")
case mapMaybe getRemoteCache configLines of
[x] -> return $ x </> "hackage.haskell.org" </> "00-index.tar"
[] -> error $ "No remote-repo-cache found in Cabal config file"
_ -> error $ "Multiple remote-repo-cache entries found in Cabal config file"
where
getRemoteCache s = do
("remote-repo-cache", ':':v) <- Just $ break (== ':') s
Just $ reverse $ dropWhile isSpace $ reverse $ dropWhile isSpace v
stableRepoName, extraRepoName :: String stableRepoName, extraRepoName :: String
stableRepoName = "stackage" stableRepoName = "stackage"