From d0eabec37b0a09c1d99d97e9ce332433c2d81da7 Mon Sep 17 00:00:00 2001
From: Michael Sloan <mgsloan@gmail.com>
Date: Sat, 17 Dec 2016 15:39:32 -0800
Subject: [PATCH] Have "stack config set" not require a compiler #2852

---
 src/main/Main.hs | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/src/main/Main.hs b/src/main/Main.hs
index 2099c70239..57912eaf0a 100644
--- a/src/main/Main.hs
+++ b/src/main/Main.hs
@@ -18,7 +18,7 @@ import           Control.Exception
 import           Control.Monad hiding (mapM, forM)
 import           Control.Monad.IO.Class
 import           Control.Monad.Logger
-import           Control.Monad.Reader (ask,local,runReaderT)
+import           Control.Monad.Reader (local)
 import           Control.Monad.Trans.Either (EitherT)
 import           Control.Monad.Writer.Lazy (Writer)
 import           Data.Attoparsec.Args (parseArgs, EscapingMode (Escaping))
@@ -835,12 +835,9 @@ dockerCleanupCmd cleanupOpts go@GlobalOpts{..} = do
 
 cfgSetCmd :: ConfigCmd.ConfigCmdSet -> GlobalOpts -> IO ()
 cfgSetCmd co go@GlobalOpts{..} =
-    withBuildConfigAndLock
+    withMiniConfigAndLock
         go
-        (\_ -> do env <- ask
-                  runReaderT
-                      (cfgCmdSet co)
-                      env)
+        (cfgCmdSet co)
 
 imgDockerCmd :: (Bool, [Text]) -> GlobalOpts -> IO ()
 imgDockerCmd (rebuild,images) go@GlobalOpts{..} = do