summaryrefslogtreecommitdiff
path: root/src/Propellor/Spin.hs
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 11:49:12 -0400
committerJoey Hess2015-10-28 11:49:12 -0400
commitf935d1d667f78ba7d34e853346ab0a99b2c4ec14 (patch)
treedae97ea16144725f13e940fdc6bcb856bd26b417 /src/Propellor/Spin.hs
parent1f0e7001aafb91e7ed168505db1aa62a8b070234 (diff)
remove debug
Found problem.. actionMessage is blocking.
Diffstat (limited to 'src/Propellor/Spin.hs')
-rw-r--r--src/Propellor/Spin.hs8
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