From 92cc0610586f0875286a945ea21477f0fc852f08 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 11:46:03 -0400 Subject: propellor spin --- src/Propellor/Spin.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3