diff options
Diffstat (limited to 'src/Propellor/Gpg.hs')
| -rw-r--r-- | src/Propellor/Gpg.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Propellor/Gpg.hs b/src/Propellor/Gpg.hs index 9c58a5d1..960c70d3 100644 --- a/src/Propellor/Gpg.hs +++ b/src/Propellor/Gpg.hs @@ -7,6 +7,8 @@ import System.Directory import Data.Maybe import Data.List.Utils import Control.Monad +import System.Console.Concurrent +import System.Console.Concurrent.Internal (ConcurrentProcessHandle(..)) import Propellor.PrivData.Paths import Propellor.Message @@ -16,7 +18,6 @@ import Utility.Monad import Utility.Misc import Utility.Tmp import Utility.FileSystemEncoding -import Utility.ConcurrentOutput type KeyId = String @@ -129,7 +130,7 @@ gitCommit msg ps = do ps'' <- gpgSignParams ps' if isNothing msg then do - (_, _, _, p) <- createProcessForeground $ + (_, _, _, ConcurrentProcessHandle p) <- createProcessForeground $ proc "git" (toCommand ps'') checkSuccessProcess p else boolSystem "git" ps'' |