502e0d1 · stackage · git.iko.soy

git.iko.soy/stackage

Optionally copy all cabal files to a directory

commit502e0d1ae8d1c1ea9c86ce86973d245d0de52cdd authorMichael Snoyman <michael@snoyman.com> dateWed 2 Oct 2013, 12:47 (13 years ago) parent3d41543

3 files changed+14−1

compare with master

unifiedsplit

Stackage/Build.hs+1 Stackage/Test.hs+11−1 Stackage/Types.hs+2

Stackage/Build.hs+1

@@ -26,6 +26,7 @@ defaultBuildSettings version = BuildSettings

2626 , testWorkerThreads = 4

2727 , buildDocs = True

2828 , tarballDir = "patching/tarballs"

29+ , cabalFileDir = Nothing

2930 }

3031

3132build :: BuildSettings -> BuildPlan -> IO ()

Stackage/Test.hs+11−1

@@ -12,7 +12,8 @@ import qualified Data.Set as Set

1212import Data.Typeable (Typeable)

1313import Stackage.Types

1414import Stackage.Util

15−import System.Directory (createDirectory, removeFile)

15+import System.Directory (copyFile, createDirectory,

16+ createDirectoryIfMissing, removeFile)

1617import System.Exit (ExitCode (ExitSuccess))

1718import System.FilePath ((<.>), (</>))

1819import System.IO (IOMode (WriteMode, AppendMode),

@@ -99,6 +100,15 @@ runTestSuite settings testdir (packageName, SelectedPackageInfo {..}) = do

99100 passed <- handle (\TestException -> return False) $ do

100101 package' <- replaceTarball (tarballDir settings) package

101102 getHandle WriteMode $ run "cabal" ["unpack", package'] testdir

103+ case cabalFileDir settings of

104+ Nothing -> return ()

105+ Just cfd -> do

106+ let PackageName name = packageName

107+ basename = name ++ ".cabal"

108+ src = dir </> basename

109+ dst = cfd </> basename

110+ createDirectoryIfMissing True cfd

111+ copyFile src dst

102112 getHandle AppendMode $ run "cabal" (addCabalArgs settings BSTest ["configure", "--enable-tests"]) dir

103113 when spiHasTests $ do

104114 getHandle AppendMode $ run "cabal" ["build"] dir

Stackage/Types.hs+2

@@ -136,6 +136,8 @@ data BuildSettings = BuildSettings

136136 -- ^ Build docs as part of the test procedure.

137137 , tarballDir :: FilePath

138138 -- ^ Directory containing replacement tarballs.

139+ , cabalFileDir :: Maybe FilePath

140+ -- ^ Directory to place cabal files in

139141 }

140142

141143-- | A wrapper around a @Map@ providing a better @Monoid@ instance.