Execute all git commands with proper git-dir

1 files changed, 2 insertions, 7 deletions

diff --git a/src/Command/Run.hs b/src/Command/Run.hs
index e2e7cc0..b6fd429 100644
--- a/src/Command/Run.hs
+++ b/src/Command/Run.hs
@@ -19,7 +19,6 @@ import System.Exit
 import System.FilePath
 import System.FilePath.Glob
 import System.IO
-import System.Process
 
 import Command
 import Config
@@ -204,12 +203,8 @@ cmdRun (RunCommand RunOptions {..} args) = do
             ( base, tip ) <- case mbBase of
                 Just base -> return ( base, paramTip )
                 Nothing -> liftIO $ do
-                    [ deref ] <- readProcessWithExitCode "git" [ "symbolic-ref", "--quiet", T.unpack paramTip ] "" >>= \case
-                        ( ExitSuccess, out, _ ) -> return $ lines out
-                        ( _, _, _ ) -> return [ T.unpack paramTip ]
-                    [ _, tip ] : _ <- fmap words . lines <$> readProcess "git" [ "show-ref", deref ] ""
-                    [ base ] <- lines <$> readProcess "git" [ "for-each-ref", "--format=%(upstream)", tip ] ""
-                    return ( T.pack base, T.pack tip )
+                    Just base <- findUpstreamRef repo paramTip
+                    return ( base, paramTip )
             rangeSource repo base tip
 
         branches <- mapM (watchBranchSource repo) roNewCommitsOn