summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Assistant/Threads/ConfigMonitor.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/ConfigMonitor.hs b/Assistant/Threads/ConfigMonitor.hs
index 3c1f56bb0..c180c4da9 100644
--- a/Assistant/Threads/ConfigMonitor.hs
+++ b/Assistant/Threads/ConfigMonitor.hs
@@ -19,6 +19,7 @@ import Logs.PreferredContent
import Logs.Group
import Remote.List (remoteListRefresh)
import qualified Git.LsTree as LsTree
+import Git.FilePath
import qualified Annex.Branch
import qualified Data.Set as S
@@ -83,4 +84,4 @@ getConfigs = S.fromList . map extract
<$> liftAnnex (inRepo $ LsTree.lsTreeFiles Annex.Branch.fullname files)
where
files = map fst configFilesActions
- extract treeitem = (LsTree.file treeitem, LsTree.sha treeitem)
+ extract treeitem = (getTopFilePath $ LsTree.file treeitem, LsTree.sha treeitem)