git subcommand cleanup

Pass subcommand as a regular param, which allows passing git parameters
like -c before it. This was already done in the pipeing set of functions,
but not the command running set.

Assistant/WebApp/Configurators/Edit.hs

@@ -76,10 +76,11 @@ setRepoConfig uuid mremote oldc newc = do
 			let remotefetch = "remote." ++ T.unpack (repoName oldc) ++ ".fetch"
 			needfetch <- isNothing <$> fromRepo (Git.Config.getMaybe remotefetch)
 			when needfetch $
-				inRepo $ Git.Command.run "config"
-					[Param remotefetch, Param ""]
-			inRepo $ Git.Command.run "remote"
-				[ Param "rename"
+				inRepo $ Git.Command.run
+					[Param "config", Param remotefetch, Param ""]
+			inRepo $ Git.Command.run
+				[ Param "remote"
+				, Param "rename"
 				, Param $ T.unpack $ repoName oldc
 				, Param name
 				]

Assistant/WebApp/Configurators/Local.hs

@@ -305,8 +305,9 @@ initRepo primary_assistant_repo dir desc = inDir dir $ do
 	unlessM (Git.Config.isBare <$> gitRepo) $
 		{- Initialize the master branch, so things that expect
 		 - to have it will work, before any files are added. -}
-		void $ inRepo $ Git.Command.runBool "commit"
-			[ Param "--quiet"
+		void $ inRepo $ Git.Command.runBool
+			[ Param "commit"
+			, Param "--quiet"
 			, Param "--allow-empty"
 			, Param "-m"
 			, Param "created repository"