diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-17 14:51:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-17 14:51:39 -0400 |
| commit | 48e68fdac3fb1198d29af7404ffadbae46b79994 (patch) | |
| tree | c15386a9d2d4d7c7beabf082827f47f920ef6e33 /Assistant/Threads/ConfigMonitor.hs | |
| parent | 8b8506748c362241d39cbf4cf04714f8462489da (diff) | |
update for LsTree type change
in the config monitor, we want files relative to the top of the working directory
Diffstat (limited to 'Assistant/Threads/ConfigMonitor.hs')
| -rw-r--r-- | Assistant/Threads/ConfigMonitor.hs | 3 |
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) |