mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-11 23:08:30 +01:00
skip-check option to nightly (good for 7.10 builds)
This commit is contained in:
parent
fb5e40a605
commit
548578c16b
@ -1,7 +1,8 @@
|
|||||||
## 0.4.1
|
## 0.5.0
|
||||||
|
|
||||||
* Print "Still Alive" while checking, to avoid Travis timeouts
|
* Print "Still Alive" while checking, to avoid Travis timeouts
|
||||||
* Include `stackage upload-nightly` command
|
* Include `stackage upload-nightly` command
|
||||||
|
* Optional plan checking
|
||||||
|
|
||||||
## 0.4.0
|
## 0.4.0
|
||||||
|
|
||||||
|
|||||||
@ -35,6 +35,7 @@ data BuildFlags = BuildFlags
|
|||||||
, bfDoUpload :: !Bool
|
, bfDoUpload :: !Bool
|
||||||
, bfEnableLibProfile :: !Bool
|
, bfEnableLibProfile :: !Bool
|
||||||
, bfVerbose :: !Bool
|
, bfVerbose :: !Bool
|
||||||
|
, bfSkipCheck :: !Bool
|
||||||
} deriving (Show)
|
} deriving (Show)
|
||||||
|
|
||||||
data BuildType = Nightly | LTS BumpType
|
data BuildType = Nightly | LTS BumpType
|
||||||
@ -200,6 +201,7 @@ getPerformBuild buildFlags Settings {..} = PerformBuild
|
|||||||
, pbEnableTests = bfEnableTests buildFlags
|
, pbEnableTests = bfEnableTests buildFlags
|
||||||
, pbEnableLibProfiling = bfEnableLibProfile buildFlags
|
, pbEnableLibProfiling = bfEnableLibProfile buildFlags
|
||||||
, pbVerbose = bfVerbose buildFlags
|
, pbVerbose = bfVerbose buildFlags
|
||||||
|
, pbAllowNewer = bfSkipCheck buildFlags
|
||||||
}
|
}
|
||||||
|
|
||||||
-- | Make a complete plan, build, test and upload bundle, docs and
|
-- | Make a complete plan, build, test and upload bundle, docs and
|
||||||
@ -214,8 +216,11 @@ completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do
|
|||||||
putStrLn $ "Writing build plan to: " ++ fpToText planFile
|
putStrLn $ "Writing build plan to: " ++ fpToText planFile
|
||||||
encodeFile (fpToString planFile) plan
|
encodeFile (fpToString planFile) plan
|
||||||
|
|
||||||
putStrLn "Checking build plan"
|
if bfSkipCheck buildFlags
|
||||||
checkBuildPlan plan
|
then putStrLn "Skipping build plan check"
|
||||||
|
else do
|
||||||
|
putStrLn "Checking build plan"
|
||||||
|
checkBuildPlan plan
|
||||||
|
|
||||||
putStrLn "Performing build"
|
putStrLn "Performing build"
|
||||||
performBuild (getPerformBuild buildFlags settings) >>= mapM_ putStrLn
|
performBuild (getPerformBuild buildFlags settings) >>= mapM_ putStrLn
|
||||||
|
|||||||
@ -64,6 +64,8 @@ data PerformBuild = PerformBuild
|
|||||||
, pbEnableTests :: Bool
|
, pbEnableTests :: Bool
|
||||||
, pbEnableLibProfiling :: Bool
|
, pbEnableLibProfiling :: Bool
|
||||||
, pbVerbose :: Bool
|
, pbVerbose :: Bool
|
||||||
|
, pbAllowNewer :: Bool
|
||||||
|
-- ^ Pass --allow-newer to cabal configure
|
||||||
}
|
}
|
||||||
|
|
||||||
data PackageInfo = PackageInfo
|
data PackageInfo = PackageInfo
|
||||||
@ -293,6 +295,7 @@ singleBuild pb@PerformBuild {..} SingleBuild {..} =
|
|||||||
withBinaryFile (fpToString fp) WriteMode inner'
|
withBinaryFile (fpToString fp) WriteMode inner'
|
||||||
|
|
||||||
configArgs = ($ []) $ execWriter $ do
|
configArgs = ($ []) $ execWriter $ do
|
||||||
|
when pbAllowNewer $ tell' "--allow-newer"
|
||||||
tell' "--package-db=clear"
|
tell' "--package-db=clear"
|
||||||
tell' "--package-db=global"
|
tell' "--package-db=global"
|
||||||
forM_ (pbDatabase pb) $ \db -> tell' $ "--package-db=" ++ fpToText db
|
forM_ (pbDatabase pb) $ \db -> tell' $ "--package-db=" ++ fpToText db
|
||||||
|
|||||||
@ -78,7 +78,10 @@ main =
|
|||||||
help "Enable profiling when building") <*>
|
help "Enable profiling when building") <*>
|
||||||
switch
|
switch
|
||||||
(long "verbose" <> short 'v' <>
|
(long "verbose" <> short 'v' <>
|
||||||
help "Output verbose detail about the build steps")
|
help "Output verbose detail about the build steps") <*>
|
||||||
|
switch
|
||||||
|
(long "skip-check" <>
|
||||||
|
help "Skip the check phase, and pass --allow-newer to cabal configure")
|
||||||
|
|
||||||
nightlyUploadFlags = fromString <$> strArgument
|
nightlyUploadFlags = fromString <$> strArgument
|
||||||
(metavar "DATE" <>
|
(metavar "DATE" <>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
name: stackage
|
name: stackage
|
||||||
version: 0.4.1
|
version: 0.5.0
|
||||||
synopsis: "Stable Hackage," tools for creating a vetted set of packages from Hackage.
|
synopsis: "Stable Hackage," tools for creating a vetted set of packages from Hackage.
|
||||||
description: Please see <http://www.stackage.org/package/stackage> for a description and documentation.
|
description: Please see <http://www.stackage.org/package/stackage> for a description and documentation.
|
||||||
homepage: https://github.com/fpco/stackage
|
homepage: https://github.com/fpco/stackage
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user