diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-28 11:49:12 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-28 11:49:12 -0400 |
| commit | f935d1d667f78ba7d34e853346ab0a99b2c4ec14 (patch) | |
| tree | dae97ea16144725f13e940fdc6bcb856bd26b417 /src | |
| parent | 1f0e7001aafb91e7ed168505db1aa62a8b070234 (diff) | |
remove debug
Found problem.. actionMessage is blocking.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Spin.hs | 8 |
1 files changed, 1 insertions, 7 deletions
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 |