Missing withWorkingDir

snoyberg · snoyberg · commit c0a773d08a0d · 2017-12-28T13:15:30.000+02:00
diff --git a/src/Stack/PackageLocation.hs b/src/Stack/PackageLocation.hs
@@ -213,7 +213,7 @@ cloneRepo projRoot url commit repoType' = do
                         ]) runProcess_
                 created <- doesDirExist dir
                 unless created $ throwM $ FailedToCloneRepo commandName
-                readProcessNull commandName
+                withWorkingDir dir $ readProcessNull commandName
                     (resetCommand ++ [T.unpack commit, "--"])
                     `catchAny` \case
                         ex -> do
