1
0
Fork 0

Fix status-script

This commit is contained in:
Malte Brandy 2021-08-03 20:15:47 +02:00
parent 027381614c
commit 7070c819da
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9

View file

@ -18,9 +18,8 @@ let
isDirty gitDir = ((/= "") <$> (git "-C" gitDir "status" "--porcelain" |> captureTrim)) `catch` (\(_ :: SomeException) -> pure True)
isUnpushed gitDir = do
gitHead <- tryCmd (git "-C" gitDir "rev-parse" "HEAD")
origin <- tryCmd (git "-C" gitDir "rev-parse" "origin/HEAD")
pure (gitHead /= origin)
revs <- LBS.split 10 <$> tryCmd (git "-C" gitDir "rev-parse" "@{u}" "HEAD")
pure $ length revs /= 2 || (revs !!? 0 /= revs !!? 1)
tryCmd x = ignoreFailure x |> captureTrim