Merge pull request #1112 from rrnewton/filelock5

Allow stack path to release the lock immediately. Fixes #872
commercialhaskell · Oct 6, 2015 · 3906811 · 3906811
2 parents 9197a75 + 0dda45d
commit 3906811
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/main/Main.hs b/src/main/Main.hs
@@ -333,10 +333,9 @@ main = withInterpreterArgs stackProgName $ \args isInterpreter -> do
 -- support others later).
 pathCmd :: [Text] -> GlobalOpts -> IO ()
 pathCmd keys go =
-    withBuildConfigAndLock
+    withBuildConfig
         go
-        (\_ ->
-         do env <- ask
+        (do env <- ask
             let cfg = envConfig env
                 bc = envConfigBuildConfig cfg
             menv <- getMinimalEnvOverride