From 1d0c3a2041676606c3a628dbcc7761fd62725610 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 25 Sep 2017 16:40:41 -0400 Subject: Borg: Fix handling of UseSshKey. --- src/Propellor/Property/Borg.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Property') 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 -- cgit v1.2.3