Skip to content

Commit f99f169

Browse files
committed
Use void instead of _ <-
1 parent 630634a commit f99f169

File tree

1 file changed

+6
-5
lines changed

1 file changed

+6
-5
lines changed

cabal-install/Distribution/Client/ProjectOrchestration.hs

Lines changed: 6 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -140,6 +140,7 @@ import Data.Map (Map)
140140
import Data.List
141141
import Data.Maybe
142142
import Data.Either
143+
import Control.Monad (void)
143144
import Control.Exception (Exception(..), throwIO, assert)
144145
import System.Exit (ExitCode(..), exitFailure)
145146
#ifdef MIN_VERSION_unix
@@ -349,11 +350,11 @@ runProjectPostBuildPhase verbosity
349350
pkgsBuildStatus
350351
buildOutcomes
351352

352-
_ <- writePlanGhcEnvironment (distProjectRootDirectory
353-
distDirLayout)
354-
elaboratedPlanOriginal
355-
elaboratedShared
356-
postBuildStatus
353+
void $ writePlanGhcEnvironment (distProjectRootDirectory
354+
distDirLayout)
355+
elaboratedPlanOriginal
356+
elaboratedShared
357+
postBuildStatus
357358

358359
-- Finally if there were any build failures then report them and throw
359360
-- an exception to terminate the program

0 commit comments

Comments
 (0)