release.hs: option to disable testing Haddocks

Author: borsboom

etc/scripts/osx-release.sh

@@ -4,4 +4,4 @@ set -xe
 RELEASE_SCRIPT=.local/bin/stack-release-script
 rm -f "$RELEASE_SCRIPT"
 (cd etc/scripts && stack --install-ghc build)
-$(cd etc/scripts && stack exec which stack-release-script) --arch=x86_64 --upload-label="Mac OS X 64-bit" release
+$(cd etc/scripts && stack exec which stack-release-script) --no-test-haddocks --arch=x86_64 --upload-label="Mac OS X 64-bit" release

etc/scripts/release.hs

@@ -58,6 +58,7 @@ main =
                 gArch = arch
                 gBinarySuffix = ""
                 gUploadLabel = Nothing
+                gTestHaddocks = True
                 gProjectRoot = "" -- Set to real value velow.
                 global0 = foldl (flip id) Global{..} flags
             -- Need to get paths after options since the '--arch' argument can effect them.
@@ -98,7 +99,10 @@ options =
         "Extra suffix to add to binary executable archive filename."
     , Option "" [uploadLabelOptName]
         (ReqArg (\v -> Right $ \g -> g{gUploadLabel = Just v}) "LABEL")
-        "Label to give the uploaded release asset" ]
+        "Label to give the uploaded release asset"
+    , Option "" [noTestHaddocksOptName] (NoArg $ Right $ \g -> g{gTestHaddocks = False})
+        "Disable testing building haddocks."
+    ]
 
 -- | Shake rules.
 rules :: Global -> [String] -> Rules ()
@@ -148,7 +152,8 @@ rules global@Global{..} args = do
             let cmd0 = cmd (releaseBinDir </> binaryName </> stackExeFileName)
                     (stackArgs global)
                     ["--local-bin-path=" ++ tmpDir]
-            () <- cmd0 "install --pedantic --haddock --no-haddock-deps"
+            () <- cmd0 $ concat $ concat
+                [["install --pedantic --no-haddock-deps"], [" --haddock" | gTestHaddocks]]
             () <- cmd0 "install cabal-install"
             let cmd' = cmd (AddPath [tmpDir] []) stackProgName (stackArgs global)
             () <- cmd' "clean"
@@ -612,6 +617,10 @@ binaryVariantOptName = "binary-variant"
 uploadLabelOptName :: String
 uploadLabelOptName = "upload-label"
 
+-- | @--no-test-haddocks@ command-line option name.
+noTestHaddocksOptName :: String
+noTestHaddocksOptName = "no-test-haddocks"
+
 -- | Arguments to pass to all 'stack' invocations.
 stackArgs :: Global -> [String]
 stackArgs Global{..} = ["--install-ghc", "--arch=" ++ display gArch]
@@ -659,5 +668,6 @@ data Global = Global
     , gHomeDir :: !FilePath
     , gArch :: !Arch
     , gBinarySuffix :: !String
-    , gUploadLabel ::(Maybe String)}
+    , gUploadLabel :: (Maybe String)
+    , gTestHaddocks :: !Bool }
     deriving (Show)

etc/scripts/vagrant-releases.sh

@@ -10,7 +10,7 @@ with_vagrant() {
   vagrant up
   vagrant provision
   vagrant rsync
-  vagrant ssh -c "export GITHUB_AUTH_TOKEN=$GITHUB_AUTH_TOKEN; export AWS_ACCESS_KEY_ID=$AWS_ACCESS_KEY_ID; export AWS_SECRET_ACCESS_KEY=$AWS_SECRET_ACCESS_KEY; export AWS_DEFAULT_REGION=$AWS_DEFAULT_REGION; gpg --import /vagrant/.stack-work/gpg-secret-key.asc; cd /vagrant && (cd etc/scripts && stack --install-ghc build) && \$(cd etc/scripts && stack exec which stack-release-script) $2"
+  vagrant ssh -c "export GITHUB_AUTH_TOKEN=$GITHUB_AUTH_TOKEN; export AWS_ACCESS_KEY_ID=$AWS_ACCESS_KEY_ID; export AWS_SECRET_ACCESS_KEY=$AWS_SECRET_ACCESS_KEY; export AWS_DEFAULT_REGION=$AWS_DEFAULT_REGION; gpg --import /vagrant/.stack-work/gpg-secret-key.asc; cd /vagrant && (cd etc/scripts && stack --install-ghc build) && \$(cd etc/scripts && stack exec which stack-release-script) --no-test-haddocks $2"
   vagrant halt
   popd
 }

etc/scripts/windows-releases.bat

@@ -10,7 +10,7 @@ cd etc\scripts
 stack --install-ghc install
 if errorlevel 1 exit /b
 cd ..\..
-%RELEASE_SCRIPT% --arch=i386 --upload-label="Windows 32-bit" release
+%RELEASE_SCRIPT% --no-test-haddocks --arch=i386 --upload-label="Windows 32-bit" release
 if errorlevel 1 exit /b
-%RELEASE_SCRIPT% --arch=x86_64 --upload-label="Windows 64-bit" release
+%RELEASE_SCRIPT% --no-test-haddocks --arch=x86_64 --upload-label="Windows 64-bit" release
 if errorlevel 1 exit /b