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

commercialhaskell · Dec 18, 2016 · 4ce325e · 4ce325e
1 parent 76b4c16
commit 4ce325e
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, asks,local,runReaderT)
+import           Control.Monad.Reader (asks, local)
 import           Control.Monad.Trans.Either (EitherT)
 import           Control.Monad.Writer.Lazy (Writer)
 import           Data.Attoparsec.Args (parseArgs, EscapingMode (Escaping))
@@ -836,12 +836,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