summaryrefslogtreecommitdiff
path: root/src/Propellor/Spin.hs
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 11:46:03 -0400
committerJoey Hess2015-10-28 11:46:03 -0400
commit92cc0610586f0875286a945ea21477f0fc852f08 (patch)
treebfc526317c4fe1276a465eb8e0f32d326c4280f8 /src/Propellor/Spin.hs
parent21a74a3ffea3d48195d76486a56031b317fa23fa (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Spin.hs')
-rw-r--r--src/Propellor/Spin.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs
index 36859fb7..49d80460 100644
--- a/src/Propellor/Spin.hs
+++ b/src/Propellor/Spin.hs
@@ -15,6 +15,7 @@ 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
@@ -208,7 +209,7 @@ updateServer target relay hst connect haveprecompiled getprivdata =
(Just NeedPrivData) -> do
print "START GET PRIVDATA"
pd <- getprivdata
- print "GOT PRIVDATA"
+ print ("GOT PRIVDATA", M.size pd)
sendPrivData hn toh pd
loop
(Just NeedGitClone) -> do