From f935d1d667f78ba7d34e853346ab0a99b2c4ec14 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 11:49:12 -0400 Subject: remove debug Found problem.. actionMessage is blocking. --- src/Propellor/Spin.hs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'src/Propellor/Spin.hs') diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs index ef3dc2d1..8a40fc87 100644 --- a/src/Propellor/Spin.hs +++ b/src/Propellor/Spin.hs @@ -15,7 +15,6 @@ import System.Posix.Directory import Control.Concurrent.Async import qualified Data.ByteString as B import qualified Data.Set as S -import qualified Data.Map as M import Network.Socket (getAddrInfo, defaultHints, AddrInfo(..), AddrInfoFlag(..), SockAddr) import Propellor.Base @@ -207,12 +206,7 @@ updateServer target relay hst connect haveprecompiled getprivdata = sendRepoUrl toh loop (Just NeedPrivData) -> do - print "START GET PRIVDATA" - hFlush stdout - pd <- getprivdata - print ("GOT PRIVDATA", M.size pd) - hFlush stdout - sendPrivData hn toh pd + sendPrivData hn toh pd =<< getprivdata loop (Just NeedGitClone) -> do hClose toh -- cgit v1.2.3