summaryrefslogtreecommitdiff
path: root/src/Propellor/Spin.hs
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 12:19:49 -0400
committerJoey Hess2015-10-28 12:19:49 -0400
commit7a83dab6e977f61b3348aaa9f70bd2a288b4b631 (patch)
tree0eb84165596449bf75b3de8b1aa3888f32d44e4f /src/Propellor/Spin.hs
parentf935d1d667f78ba7d34e853346ab0a99b2c4ec14 (diff)
use outputConcurrent interface
This interface will fix the current deadlock when a process is running and the thread that ran it wants to output to the console. The locking and buffering is not implemented yet.
Diffstat (limited to 'src/Propellor/Spin.hs')
-rw-r--r--src/Propellor/Spin.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs
index 8a40fc87..0c457705 100644
--- a/src/Propellor/Spin.hs
+++ b/src/Propellor/Spin.hs
@@ -206,7 +206,7 @@ updateServer target relay hst connect haveprecompiled getprivdata =
sendRepoUrl toh
loop
(Just NeedPrivData) -> do
- sendPrivData hn toh pd =<< getprivdata
+ sendPrivData hn toh =<< getprivdata
loop
(Just NeedGitClone) -> do
hClose toh