From 31e840d1de5d48f73420b36a41f4299d9f3f3c2d Mon Sep 17 00:00:00 2001 From: maralorn Date: Fri, 10 Mar 2023 23:37:48 +0100 Subject: [PATCH] Fix git detection --- packages/status-script/exe/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/status-script/exe/Main.hs b/packages/status-script/exe/Main.hs index 7aace035..81dc7a13 100644 --- a/packages/status-script/exe/Main.hs +++ b/packages/status-script/exe/Main.hs @@ -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"]