@@ -561,19 +561,20 @@ logItem
561561 -> m ()
562562logItem a ns loc sev msg = do
563563 LogEnv{..} <- getLogEnv
564− item <- Item
565− <$> pure _logEnvNs
566− <*> pure _logEnvEnv
567− <*> pure sev
568− <*> liftIO (mkThreadIdText <$> myThreadId)
569− <*> pure _logEnvHost
570− <*> pure _logEnvPid
571− <*> pure a
572− <*> pure msg
573− <*> liftIO _logEnvTimer
574− <*> pure (_logEnvNs <> ns)
575− <*> pure loc
576− liftIO $ forM_ (M.elems _logEnvScribes) $ \ (Scribe h) -> h item
564+ liftIO $ do
565+ item <- Item
566+ <$> pure _logEnvNs
567+ <*> pure _logEnvEnv
568+ <*> pure sev
569+ <*> (mkThreadIdText <$> myThreadId)
570+ <*> pure _logEnvHost
571+ <*> pure _logEnvPid
572+ <*> pure a
573+ <*> pure msg
574+ <*> _logEnvTimer
575+ <*> pure (_logEnvNs <> ns)
576+ <*> pure loc
577+ forM_ (M.elems _logEnvScribes) $ \ (Scribe h) -> h item
577578
578579
579580-------------------------------------------------------------------------------