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:
parent
d785432f78
commit
7a9daefea2
1 changed files with 2 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue