Commit f99f1698 authored by Francesco Gazzetta's avatar Francesco Gazzetta
Browse files

Use void instead of _ <-

parent 630634ab
......@@ -140,6 +140,7 @@ import Data.Map (Map)
import Data.List
import Data.Maybe
import Data.Either
import Control.Monad (void)
import Control.Exception (Exception(..), throwIO, assert)
import System.Exit (ExitCode(..), exitFailure)
#ifdef MIN_VERSION_unix
......@@ -349,11 +350,11 @@ runProjectPostBuildPhase verbosity
pkgsBuildStatus
buildOutcomes
_ <- writePlanGhcEnvironment (distProjectRootDirectory
distDirLayout)
elaboratedPlanOriginal
elaboratedShared
postBuildStatus
void $ writePlanGhcEnvironment (distProjectRootDirectory
distDirLayout)
elaboratedPlanOriginal
elaboratedShared
postBuildStatus
-- Finally if there were any build failures then report them and throw
-- an exception to terminate the program
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment