more verbose messages from engine on startup

This commit is contained in:
nek0 2020-12-05 14:28:57 +01:00
parent a9165b852a
commit 5aaa2dd41b

View file

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