diff options
author | 2015-06-01 13:52:23 -0400 | |
---|---|---|
committer | 2015-06-01 13:52:23 -0400 | |
commit | 39c13f91004b41166b786785083e78b34df0c48f (patch) | |
tree | bf5ea0acf27c9075a63d3b23b970c3ea44ecee64 /Remote/GCrypt.hs | |
parent | 3a9ca30fa8740a57ea477243498339f9738102d6 (diff) |
remove Params constructor from Utility.SafeCommand
This removes a bit of complexity, and should make things faster
(avoids tokenizing Params string), and probably involve less garbage
collection.
In a few places, it was useful to use Params to avoid needing a list,
but that is easily avoided.
Problems noticed while doing this conversion:
* Some uses of Params "oneword" which was entirely unnecessary
overhead.
* A few places that built up a list of parameters with ++
and then used Params to split it!
Test suite passes.
Diffstat (limited to 'Remote/GCrypt.hs')
-rw-r--r-- | Remote/GCrypt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/GCrypt.hs b/Remote/GCrypt.hs index fc0c27f37..8a1dcc41a 100644 --- a/Remote/GCrypt.hs +++ b/Remote/GCrypt.hs @@ -175,7 +175,7 @@ gCryptSetup mu _ c = go $ M.lookup "gitrepo" c go (Just gitrepo) = do (c', _encsetup) <- encryptionSetup c inRepo $ Git.Command.run - [ Params "remote add" + [ Param "remote", Param "add" , Param remotename , Param $ Git.GCrypt.urlPrefix ++ gitrepo ] @@ -251,7 +251,7 @@ setupRepo gcryptid r void $ Git.Config.changeFile tmpconfig coreGCryptId gcryptid void $ Git.Config.changeFile tmpconfig denyNonFastForwards (Git.Config.boolConfig False) ok <- liftIO $ rsync $ rsynctransport ++ - [ Params "--recursive" + [ Param "--recursive" , Param $ tmp ++ "/" , Param rsyncurl ] |