diff --git a/src/Affection.hs b/src/Affection.hs index 6d48afc..6373bea 100644 --- a/src/Affection.hs +++ b/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