From 6308a110b8a1eaceb8095932a5c909ca5d59ebe1 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Thu, 26 Apr 2018 15:38:49 +0200
Subject: [PATCH] tell the number of workers

---
 src/Test.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Test.hs b/src/Test.hs
index b60a9f1..5e2181a 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -53,6 +53,7 @@ loadMap = do
   -- liftIO $ A.logIO A.Debug (show exits)
   (inter, rps) <- liftIO $ placeInteriorIO mat imgmat exits gr
   let nnex = length (Prelude.filter (\p -> pointType p == RoomExit) rps)
+  liftIO $ A.logIO A.Debug $ "number of placed NPCs: " ++ show nnex
   npcposs <- placeNPCs inter mat rps gr nnex
   (nws, _) <- yieldSystemT (worldState ud) $ do
     void $ newEntity $ defEntity