From 74ebeeedf0cefb59f5611a30c2d43edf8ff29fb2 Mon Sep 17 00:00:00 2001 From: ickc Date: Wed, 16 Nov 2016 02:58:11 -0800 Subject: remove make_travis_yml.hs (#3235) --- Makefile | 3 - make_travis_yml.hs | 210 ----------------------------------------------------- 2 files changed, 213 deletions(-) delete mode 100644 make_travis_yml.hs diff --git a/Makefile b/Makefile index 19d0a50af..6a3f5414a 100644 --- a/Makefile +++ b/Makefile @@ -40,9 +40,6 @@ dist: man/pandoc.1 cd pandoc-${version} stack setup && stack test && cd .. && rm -rf "pandoc-${version}" -.travis.yml: pandoc.cabal make_travis_yml.hs - runghc make_travis_yml.hs $< > $@ - debpkg: man/pandoc.1 make -C deb diff --git a/make_travis_yml.hs b/make_travis_yml.hs deleted file mode 100644 index cd5f148ca..000000000 --- a/make_travis_yml.hs +++ /dev/null @@ -1,210 +0,0 @@ -#!/usr/bin/env runghc - --- NB: This code deliberately avoids relying on non-standard packages - -import Control.Monad -import Data.List -import Data.Version -import System.Environment -import System.Exit -import System.IO - -import Distribution.PackageDescription.Parse (readPackageDescription) -import Distribution.PackageDescription (packageDescription, testedWith) -import Distribution.Compiler (CompilerFlavor(..)) -import Distribution.Version -import Distribution.Text - -putStrLnErr :: String -> IO () -putStrLnErr m = hPutStrLn stderr ("*ERROR* " ++ m) >> exitFailure - -putStrLnWarn :: String -> IO () -putStrLnWarn m = hPutStrLn stderr ("*WARNING* " ++ m) - -putStrLnInfo :: String -> IO () -putStrLnInfo m = hPutStrLn stderr ("*INFO* " ++ m) - -main :: IO () -main = do - args <- getArgs - case args of - (cabfn:xpkgs) -> do genTravisFromCabalFile cabfn xpkgs - _ -> putStrLnErr (unlines $ [ "expected .cabal file as command-line argument" - , "Usage: make_travis_yml.hs " - , "" - , "Example: make_travis_yml.hs someProject.cabal alex-3.1.4 liblzma-dev > .travis.yml" - ]) - -genTravisFromCabalFile :: FilePath -> [String] -> IO () -genTravisFromCabalFile fn xpkgs = do - gpd <- readPackageDescription maxBound fn - - let compilers = testedWith $ packageDescription $ gpd - - let unknownComps = nub [ c | (c,_) <- compilers, c /= GHC ] - ghcVerConstrs = [ vc | (GHC,vc) <- compilers ] - ghcVerConstrs' = simplifyVersionRange $ foldr unionVersionRanges noVersion ghcVerConstrs - - when (null compilers) $ do - putStrLnErr "empty or missing 'tested-with:' definition in .cabal file" - - unless (null unknownComps) $ do - putStrLnWarn $ "ignoring unsupported compilers mentioned in tested-with: " ++ show unknownComps - - when (null ghcVerConstrs) $ do - putStrLnErr "'tested-with:' doesn't mention any 'GHC' version" - - when (isNoVersion ghcVerConstrs') $ do - putStrLnErr "'tested-with:' describes an empty version range for 'GHC'" - - when (isAnyVersion ghcVerConstrs') $ do - putStrLnErr "'tested-with:' allows /any/ 'GHC' version" - - let testedGhcVersions = filter (`withinRange` ghcVerConstrs') knownGhcVersions - - when (null testedGhcVersions) $ do - putStrLnErr "no known GHC version is allowed by the 'tested-with' specification" - - putStrLnInfo $ "Generating Travis-CI config for testing for GHC versions: " ++ (unwords $ map disp' $ testedGhcVersions) - - ---------------------------------------------------------------------------- - -- travis.yml generation starts here - - putStrLn "# This file has been generated -- see https://github.com/hvr/multi-ghc-travis" - putStrLn "language: c" - putStrLn "sudo: false" - putStrLn "" - putStrLn "cache:" - putStrLn " directories:" - putStrLn " - $HOME/.cabsnap" - putStrLn " - $HOME/.cabal/packages" - putStrLn "" - putStrLn "before_cache:" - putStrLn " - rm -fv $HOME/.cabal/packages/hackage.haskell.org/build-reports.log" - putStrLn " - rm -fv $HOME/.cabal/packages/hackage.haskell.org/00-index.tar" - putStrLn "" - putStrLn "matrix:" - putStrLn " include:" - - forM_ testedGhcVersions $ \gv -> do - let cvs = disp' (lookupCabVer gv) - gvs = disp' gv - ghcopts = if gv >= Version [7,10,0] [] - then "-Werror" - else "-Werror" - - xpkgs' = concatMap (',':) xpkgs - - putStrLn $ concat [ " - env: CABALVER=", cvs, " GHCVER=", gvs, - " GHCOPTS=", ghcopts] - putStrLn $ concat [ " compiler: \": #GHC ", gvs, "\"" ] - putStrLn $ concat [ " addons: {apt: {packages: [cabal-install-", cvs, ",ghc-", gvs, xpkgs' - , "], sources: [hvr-ghc]}}" ] - return () - - let headGhcVers = filter isHead testedGhcVersions - - unless (null headGhcVers) $ do - putStrLn "" - putStrLn " allow_failures:" - - forM_ headGhcVers $ \gv -> do - let cvs = disp' (lookupCabVer gv) - gvs = disp' gv - putStrLn $ concat [ " - env: CABALVER=", cvs, " GHCVER=", gvs ] - - putStrLn "" - putStrLn "before_install:" - putStrLn " - unset CC" - putStrLn " - export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$PATH" - - putStrLn "" - - putStr $ unlines - [ "install:" - , " - cabal --version" - , " - echo \"$(ghc --version) [$(ghc --print-project-git-commit-id 2> /dev/null || echo '?')]\"" - , " - if [ -f $HOME/.cabal/packages/hackage.haskell.org/00-index.tar.gz ];" - , " then" - , " zcat $HOME/.cabal/packages/hackage.haskell.org/00-index.tar.gz >" - , " $HOME/.cabal/packages/hackage.haskell.org/00-index.tar;" - , " fi" - , " - travis_retry cabal update -v" - , " - sed -i 's/^jobs:/-- jobs:/' ${HOME}/.cabal/config" - , " - cabal install --only-dependencies --enable-tests --enable-benchmarks --dry -v > installplan.txt" - , " - sed -i -e '1,/^Resolving /d' installplan.txt; cat installplan.txt" - , "" - , "# check whether current requested install-plan matches cached package-db snapshot" - , " - if diff -u installplan.txt $HOME/.cabsnap/installplan.txt;" - , " then" - , " echo \"cabal build-cache HIT\";" - , " rm -rfv .ghc;" - , " cp -a $HOME/.cabsnap/ghc $HOME/.ghc;" - , " cp -a $HOME/.cabsnap/lib $HOME/.cabsnap/share $HOME/.cabsnap/bin $HOME/.cabal/;" - , " else" - , " echo \"cabal build-cache MISS\";" - , " rm -rf $HOME/.cabsnap;" - , " mkdir -p $HOME/.ghc $HOME/.cabal/lib $HOME/.cabal/share $HOME/.cabal/bin;" - , " cabal install --only-dependencies --enable-tests --enable-benchmarks;" - , " fi" - , " " - , "# snapshot package-db on cache miss" - , " - if [ ! -d $HOME/.cabsnap ];" - , " then" - , " echo \"snapshotting package-db to build-cache\";" - , " mkdir $HOME/.cabsnap;" - , " cp -a $HOME/.ghc $HOME/.cabsnap/ghc;" - , " cp -a $HOME/.cabal/lib $HOME/.cabal/share $HOME/.cabal/bin installplan.txt $HOME/.cabsnap/;" - , " fi" - , "" - , "# Here starts the actual work to be performed for the package under test;" - , "# any command which exits with a non-zero exit code causes the build to fail." - , "script:" - , " - if [ -f configure.ac ]; then autoreconf -i; fi" - , " - cabal configure --enable-tests --enable-benchmarks -v2 # -v2 provides useful information for debugging" - , " - cabal build --ghc-options=$GHCOPTS # this builds all libraries and executables (including tests/benchmarks)" - , " - cabal test" - , " - cabal check" - , "# Test that a source-distribution can be generated" - , "# (with cabal >= 1.18 'cabal sdist' would work too):" - , " - ./dist/setup/setup sdist" - , "" - , "# Check that the resulting source distribution can be built & installed." - , "# If there are no other `.tar.gz` files in `dist`, this can be even simpler:" - , "# `cabal install --force-reinstalls dist/*-*.tar.gz`" - , " - SRC_TGZ=$(cabal info . | awk '{print $2;exit}').tar.gz &&" - , " (cd dist && cabal install --force-reinstalls \"$SRC_TGZ\")" - , "" - , "# EOF" - ] - - return () - where - knownGhcVersions :: [Version] - knownGhcVersions = fmap (`Version` []) - [ [7,0,1], [7,0,2], [7,0,3], [7,0,4] - , [7,2,1], [7,2,2] - , [7,4,1], [7,4,2] - , [7,6,1], [7,6,2], [7,6,3] - , [7,8,1], [7,8,2], [7,8,3], [7,8,4] - , [7,10,1], [7,10,2], [7,10,3] - , [7,11] -- HEAD - ] - - lookupCabVer :: Version -> Version - lookupCabVer (Version (x:y:_) _) = maybe (error "internal error") id $ lookup (x,y) cabalVerMap - where - cabalVerMap = fmap (fmap (`Version` [])) - [ ((7, 0), [1,16]) - , ((7, 2), [1,16]) - , ((7, 4), [1,16]) - , ((7, 6), [1,16]) - , ((7, 8), [1,18]) - , ((7,10), [1,22]) - , ((7,11), [1,23]) -- HEAD - ] - - isHead (Version (_:y:_) _) = odd (y :: Int) - - disp' v | isHead v = "head" - | otherwise = display v -- cgit v1.2.3