summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-01-01 15:56:24 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-01-01 15:56:24 -0400
commit02fe8a497434ed6b7cfa12d68779bcaa0d9813c2 (patch)
treefd884b759a3e22af4b679de2c24d3dfb914058d1 /Assistant
parent131e38a3ae3d40fb38738e78df6fed4e4a1e6005 (diff)
improve data type
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Threads/ConfigMonitor.hs3
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 ())]