From 48e68fdac3fb1198d29af7404ffadbae46b79994 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 17 Oct 2013 14:51:39 -0400 Subject: update for LsTree type change in the config monitor, we want files relative to the top of the working directory --- Assistant/Threads/ConfigMonitor.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Assistant/Threads/ConfigMonitor.hs') 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) -- cgit v1.2.3