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

Fix git detection

Browse source
This commit is contained in:
Malte 2023-03-10 23:37:48 +01:00
parent dd121813ea
commit 31e840d1de
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
packages/status-script/exe/Main.hs
View file

@ -195,12 +195,12 @@ main = do
when' (codeUpdates /= 0) $ withColor cyan [i|Code Updates: #{codeUpdates}|]
, simpleModule (5 * oneSecond) do
dirs <- listDirectory git_dir
dirty <- fmap toText <$> filterM (isDirty . (git_dir <>)) dirs
dirty <- fmap toText <$> filterM (isDirty . (git_dir </>)) dirs
atomically $ writeTVar dirty_var dirty
when' (not $ null dirty) $ withColor red [i|Dirty: #{Text.intercalate " " dirty}|]
, simpleModule (5 * oneSecond) do
dirs <- listDirectory git_dir
unpushed <- fmap toText <$> filterM (isUnpushed . (git_dir <>)) dirs
unpushed <- fmap toText <$> filterM (isUnpushed . (git_dir </>)) dirs
when' (not $ null unpushed) do withColor yellow [i|Unpushed: #{Text.intercalate " " unpushed}|]
, simpleModule (5 * oneSecond) do
let hosts = ["hera", "fluffy"]