We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 4cea4e8 commit 0309780Copy full SHA for 0309780
src/main/Main.hs
@@ -13,7 +13,7 @@ import Control.Exception
13
import Control.Monad (join)
14
import Control.Monad.IO.Class (liftIO)
15
import Control.Monad.Logger
16
-import Control.Monad.Reader (asks)
+import Control.Monad.Reader (asks, runReaderT)
17
import Data.Char (toLower)
18
import Data.List
19
import qualified Data.List as List
@@ -270,7 +270,7 @@ withBuildConfig go@GlobalOpts{..} strat inner = do
270
runStackT
271
manager globalLogLevel bconfig1
272
(do cfg <- setupEnv
273
- menv <- getMinimalEnvOverride
+ menv <- runReaderT getMinimalEnvOverride cfg
274
cabalVer <- getCabalPkgVer menv
275
return (cfg,cabalVer))
276
0 commit comments