From 0dda45d0337f09a277f7ddf9312361eab7a8a4e5 Mon Sep 17 00:00:00 2001
From: Ryan Newton <rrnewton@gmail.com>
Date: Tue, 6 Oct 2015 12:22:06 -0400
Subject: [PATCH] Allow stack path to release the lock immediately.  Fixes #872

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

diff --git a/src/main/Main.hs b/src/main/Main.hs
index f532d374c8..d7de57899d 100644
--- 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