Have "stack config set" not require a compiler #2852

commercialhaskell · Dec 17, 2016 · d0eabec · d0eabec
1 parent 6cb3e5b
commit d0eabec
Showing 1 changed file with 3 additions and 6 deletions.
diff --git 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