diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-01 15:56:24 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-01 15:56:24 -0400 |
| commit | 02fe8a497434ed6b7cfa12d68779bcaa0d9813c2 (patch) | |
| tree | fd884b759a3e22af4b679de2c24d3dfb914058d1 /Assistant/Threads | |
| parent | 131e38a3ae3d40fb38738e78df6fed4e4a1e6005 (diff) | |
improve data type
Diffstat (limited to 'Assistant/Threads')
| -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 7ab55fb82..d63faff5e 100644 --- a/Assistant/Threads/ConfigMonitor.hs +++ b/Assistant/Threads/ConfigMonitor.hs @@ -20,6 +20,7 @@ import Logs.Group import Logs.NumCopies import Remote.List (remoteListRefresh) import qualified Git.LsTree as LsTree +import Git.Types import Git.FilePath import qualified Annex.Branch @@ -51,7 +52,7 @@ configMonitorThread = namedThread "ConfigMonitor" $ loop =<< getConfigs loop new {- Config files, and their checksums. -} -type Configs = S.Set (FilePath, String) +type Configs = S.Set (FilePath, Sha) {- All git-annex's config files, and actions to run when they change. -} configFilesActions :: [(FilePath, Assistant ())] |