@@ -200,25 +200,19 @@ rules global@Global{..} args = do
200200 Stdout dirty <- cmd " git status --porcelain"
201201 when (not gAllowDirty && not (null (trim dirty))) $
202202 error (" Working tree is dirty. Use --" ++ allowDirtyOptName ++ " option to continue anyway." )
203- withTempDir $ \ tmpDir -> do
204- () <- cmd
205- [gProjectRoot </> releaseBinDir </> binaryName </> stackExeFileName]
206- (stackArgs global)
207- [" --local-bin-path" , tmpDir]
208- [" install" ]
209- gBuildArgs
210- integrationTestFlagArgs
211- [" --pedantic" , " --no-haddock-deps" , " --test" ]
212- [" --haddock" | gTestHaddocks]
213- [" stack" ]
214- liftIO $ System.Directory. getDirectoryContents tmpDir >>= \ x -> print (" tmpDir" , tmpDir, x)
215- () <- cmd [" find" , tmpDir]
216- () <- cmd [" find" , gProjectRoot </> releaseBinDir]
217- () <- cmd
218- [gProjectRoot </> releaseBinDir </> binaryName </> stackExeFileName]
219- [" exec" ]
220- [gProjectRoot </> releaseBinDir </> binaryName </> " stack-integration-test" ]
221- return ()
203+ () <- cmd
204+ [gProjectRoot </> releaseBinDir </> binaryName </> stackExeFileName]
205+ (stackArgs global)
206+ [" build" ]
207+ gBuildArgs
208+ integrationTestFlagArgs
209+ [" --pedantic" , " --no-haddock-deps" , " --test" ]
210+ [" --haddock" | gTestHaddocks]
211+ [" stack" ]
212+ () <- cmd
213+ [gProjectRoot </> releaseBinDir </> binaryName </> stackExeFileName]
214+ [" exec" ]
215+ [gProjectRoot </> releaseBinDir </> binaryName </> " stack-integration-test" ]
222216 copyFileChanged (releaseBinDir </> binaryName </> stackExeFileName) out
223217
224218 unless gUploadOnly $ releaseDir </> binaryPkgZipFileName %> \ out -> do
0 commit comments