use ShellParam type

So, I have a type checked safe handling of filenames starting with dashes,
throughout the code.

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