maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Fix status-script

Browse source
This commit is contained in:
Malte Brandy 2021-07-30 19:35:41 +02:00
parent ff8ec8c604
commit 49aeadea25
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
home-manager/roles/desktop/gnome.nix
View file

@ -16,10 +16,10 @@ let
name <- Text.strip <$> readFileText "/home/maralorn/.mode" `onException` say "File /home/maralorn/.mode not found."
maybe (say [i|Unknown mode #{name}|] >> error [i|Unknown mode #{name}|]) pure $ find (\mode -> name == (Text.toLower $ show mode)) $ modes
isDirty gitDir = (/= "") <$> (git "-C" gitDir "status" "--porcelain" |> captureTrim)
isDirty gitDir = ((/= "") <$> (git "-C" gitDir "status" "--porcelain" |> captureTrim)) `catch` (\(_ :: SomeException) -> pure True)
isUnpushed gitDir = do
gitHead <- git "-C" gitDir "rev-parse" "HEAD" |> captureTrim
origin <- git "-C" gitDir "rev-parse" "origin/HEAD" |> captureTrim
gitHead <- ignoreFailure (git "-C" gitDir "rev-parse" "HEAD" |> captureTrim)
origin <- ignoreFailure (git "-C" gitDir "rev-parse" "origin/HEAD" |> captureTrim)
pure (gitHead /= origin)
main = do