From da451ad509268133fff9b2f58caebae2204b318e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 3 Sep 2015 11:03:08 -0700 Subject: webapp: Fix support for entering password when setting up a ssh remote. --- Build/EvilLinker.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Build/EvilLinker.hs') diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs index fa260edab..97f218fd5 100644 --- a/Build/EvilLinker.hs +++ b/Build/EvilLinker.hs @@ -21,6 +21,7 @@ import Data.List import Utility.Monad import Utility.Process hiding (env) +import qualified Utility.Process import Utility.Env data CmdParams = CmdParams @@ -126,7 +127,7 @@ getOutput c ps environ = do putStrLn $ unwords [c, show ps] systemenviron <- getEnvironment let environ' = fromMaybe [] environ ++ systemenviron - out@(_, ok) <- processTranscript' c ps (Just environ') Nothing + out@(_, ok) <- processTranscript' (\p -> p { Utility.Process.env = Just environ' }) c ps Nothing putStrLn $ unwords [c, "finished", show ok] return out -- cgit v1.2.3