Add flag to enable/disable building of sdist tarball

Author: martin-kolinek

src/Stack/Options/SDistParser.hs

@@ -19,8 +19,11 @@ sdistOptsParser signDefault = SDistOpts <$>
   strOption
   (long "sig-server" <> metavar "URL" <> showDefault <>
     value "https://sig.commercialhaskell.org" <>
-    help "URL")
+    help "URL") <*>
+  buildPackageOption
   where
     ignoreCheckSwitch =
       switch (long "ignore-check"
                <> help "Do not check package for common mistakes")
+    buildPackageOption =
+      boolFlags False "build-package" "building of the resulting package" idm

src/Stack/SDist.hs

@@ -19,7 +19,7 @@ import qualified Codec.Archive.Tar.Entry as Tar
 import qualified Codec.Compression.GZip as GZip
 import           Control.Applicative
 import           Control.Concurrent.Execute (ActionContext(..))
-import           Control.Monad (unless, void, liftM, filterM, foldM)
+import           Control.Monad (unless, void, liftM, filterM, foldM, when)
 import           Control.Monad.Catch
 import           Control.Monad.IO.Class
 import           Control.Monad.Logger
@@ -90,6 +90,8 @@ data SDistOpts = SDistOpts
   -- ^ Whether to sign the package
   , sdoptsSignServerUrl :: String
   -- ^ The URL of the signature server
+  , sdoptsBuildTarball :: Bool
+  -- ^ Whether to build the tarball
   }
 
 newtype CheckException
@@ -343,7 +345,7 @@ checkSDistTarball opts tarball = withTempTarGzContents tarball $ \pkgDir' -> do
     pkgDir  <- (pkgDir' </>) `liftM`
         (parseRelDir . FP.takeBaseName . FP.takeBaseName . toFilePath $ tarball)
     --               ^ drop ".tar"     ^ drop ".gz"
-    buildExtractedTarball pkgDir
+    when (sdoptsBuildTarball opts) (buildExtractedTarball pkgDir)
     unless (sdoptsIgnoreCheck opts) (checkPackageInExtractedTarball pkgDir)
 
 checkPackageInExtractedTarball :: (StackM env m, HasEnvConfig env, MonadBaseUnlift IO m)

src/main/Main.hs

@@ -657,7 +657,7 @@ upgradeCmd upgradeOpts' go = withGlobalConfigAndLock go $
 
 -- | Upload to Hackage
 uploadCmd :: SDistOpts -> GlobalOpts -> IO ()
-uploadCmd (SDistOpts [] _ _ _ _) _ = throwString "Error: To upload the current package, please run 'stack upload .'"
+uploadCmd (SDistOpts [] _ _ _ _ _) _ = throwString "Error: To upload the current package, please run 'stack upload .'"
 uploadCmd sdistOpts go = do
     let partitionM _ [] = return ([], [])
         partitionM f (x:xs) = do