summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Borg.hs
diff options
context:
space:
mode:
authorJoey Hess2017-09-25 16:40:46 -0400
committerJoey Hess2017-09-25 16:40:46 -0400
commit8879f3aa1d954c09e0e818b5eca67a1e120e4b1b (patch)
treec2a85a8af45c934d57166ca6ce4eaa57be8aa7f9 /src/Propellor/Property/Borg.hs
parentee300295ddaad2bb1792e1a626b856760464177e (diff)
parent1d0c3a2041676606c3a628dbcc7761fd62725610 (diff)
Merge branch 'master' into joeyconfig
Diffstat (limited to 'src/Propellor/Property/Borg.hs')
-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