Initial seeding may work.

alanz · Apr 30, 2012 · 53f1bd7 · 53f1bd7
1 parent 7a5d723
commit 53f1bd7
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/TeleHash/TeleHash.hs b/src/TeleHash/TeleHash.hs
@@ -568,6 +568,13 @@ setup arg =
 
 -- ---------------------------------------------------------------------
 
+setState :: SwitchState -> TeleHash ()
+setState state = do
+  master <- get
+  put $ master {selfState = state }
+
+-- ---------------------------------------------------------------------
+
 pingSeeds :: TeleHash ()
 pingSeeds = do
   seeds <- gets selfSeeds
@@ -579,6 +586,7 @@ pingSeeds = do
   -- TODO: rotate the seeds, so the we use a fresh one each time through
   case (not connected) && (seeds /= []) of
     True -> do
+      setState StateSeeding
       nextSeed <- rotateToNextSeed
       pingSeed nextSeed
     False -> return ()