more verbose messages from engine on startup

extern/affection/src/Affection.hs

@@ -99,9 +99,10 @@ withAffection AffectionConfig{..} = do
   (_, _) <- runStateT
     (A.runState
       (do
-        liftIO $ logIO Debug "Starting Loop"
+        liftIO $ logIO Debug "Running Pre-Loop stage"
         -- run preLoop function from Affectionate
         preLoop gameData
+        liftIO $ logIO Debug "Starting Loop"
         whileM_ (hasNextStep gameData)
           (do
             -- get state