summaryrefslogtreecommitdiff
path: root/Trust.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Trust.hs')
-rw-r--r--Trust.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/Trust.hs b/Trust.hs
index 695059a93..7b2cf9ff8 100644
--- a/Trust.hs
+++ b/Trust.hs
@@ -81,8 +81,12 @@ trustSet uuid level = do
logfile <- trustLog
liftIO $ safeWriteFile logfile (serialize m')
g <- Annex.gitRepo
- liftIO $ Git.run g ["add", logfile]
- liftIO $ Git.run g ["commit", "-q", "-m", "git annex trust change", logfile]
+ liftIO $ Git.run g "add" [File logfile]
+ liftIO $ Git.run g "commit"
+ [ Params "-q -m"
+ , Param "git annex trust change"
+ , File logfile
+ ]
where
serialize m = unlines $ map showpair $ M.toList m
showpair (u, t) = u ++ " " ++ show t