diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-28 12:19:49 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-28 12:19:49 -0400 |
| commit | 7a83dab6e977f61b3348aaa9f70bd2a288b4b631 (patch) | |
| tree | 0eb84165596449bf75b3de8b1aa3888f32d44e4f /src/Propellor/Spin.hs | |
| parent | f935d1d667f78ba7d34e853346ab0a99b2c4ec14 (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.hs | 2 |
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 |