update for LsTree type change

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

View file

@ -19,6 +19,7 @@ import Logs.PreferredContent
import Logs.Group import Logs.Group
import Remote.List (remoteListRefresh) import Remote.List (remoteListRefresh)
import qualified Git.LsTree as LsTree import qualified Git.LsTree as LsTree
import Git.FilePath
import qualified Annex.Branch import qualified Annex.Branch
import qualified Data.Set as S import qualified Data.Set as S
@ -83,4 +84,4 @@ getConfigs = S.fromList . map extract
<$> liftAnnex (inRepo $ LsTree.lsTreeFiles Annex.Branch.fullname files) <$> liftAnnex (inRepo $ LsTree.lsTreeFiles Annex.Branch.fullname files)
where where
files = map fst configFilesActions files = map fst configFilesActions
extract treeitem = (LsTree.file treeitem, LsTree.sha treeitem) extract treeitem = (getTopFilePath $ LsTree.file treeitem, LsTree.sha treeitem)