@@ -200,25 +200,19 @@ rules global@Global{..} args = do
200
200
Stdout dirty <- cmd " git status --porcelain"
201
201
when (not gAllowDirty && not (null (trim dirty))) $
202
202
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" ]
222
216
copyFileChanged (releaseBinDir </> binaryName </> stackExeFileName) out
223
217
224
218
unless gUploadOnly $ releaseDir </> binaryPkgZipFileName %> \ out -> do
0 commit comments