mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

update for LsTree type change

Browse source 
in the config monitor, we want files relative to the top of the working directory
This commit is contained in:
Joey Hess 2013-10-17 14:51:39 -04:00
parent d785432f78
commit 7a9daefea2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Threads/ConfigMonitor.hs
View file

@ -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)