summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2017-09-25 16:40:41 -0400
committerJoey Hess2017-09-25 16:40:41 -0400
commit1d0c3a2041676606c3a628dbcc7761fd62725610 (patch)
tree380179ba1385f56b7c36a1a8cd019f3c834dd953 /src
parent75da6a1a36f9ba2211802bc88e0ced397103d434 (diff)
Borg: Fix handling of UseSshKey.
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Property/Borg.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/Borg.hs b/src/Propellor/Property/Borg.hs
index e95ea87f..989fb4b9 100644
--- a/src/Propellor/Property/Borg.hs
+++ b/src/Propellor/Property/Borg.hs
@@ -52,7 +52,7 @@ runBorgEnv :: BorgRepo -> [(String, String)]
runBorgEnv (BorgRepo _) = []
runBorgEnv (BorgRepoUsing os _) = map go os
where
- go (UseSshKey k) = ("BORG_RSH", k)
+ go (UseSshKey k) = ("BORG_RSH", "ssh -i " ++ k)
installed :: Property DebianLike
installed = withOS desc $ \w o -> case o of