Log output isn't deterministic?

[L7R7]

I have a simple example using polysemy-log and polysemy-log-co, which is similar to the tests you have in place.

You can find my code here, the essential parts are:

main :: IO ()
main =
  runFinal
    . embedToFinal @IO
    . interpretTimeGhc
    . runResource
    . interpretCologConcNative
    . interpretLogColog
    $ prog

prog :: Member Log r => Sem r ()
prog = do
  Log.debug "debugging"
  Log.info "info"
  Log.error "failing"

However, the output seems to be not deterministic. Sometimes, the first log message doesn't appear in the output. The following screenshot shows the output of the executable built with stack from my project. I would expect the same output on every run, but this isn't the case:

To me, that seems to be a bug. What do you think?

[tek]

interesting, thanks a lot! I'd assume that the concurrent logger isn't initialized fast enough. will investigate!

[tek]

Just noticed that you're using the Native version, which uses co-log's own thread handling. Can you try it again with interpretLogStdoutConc?

[L7R7]

Hmm. It's different, but not better.

I have the following code

someFunc :: IO ()
someFunc =
  runFinal
    . embedToFinal @IO
    . runResource
    . asyncToIO
    . interpretRace
    . interpretLogStdoutConc
    $ prog

prog :: Member Log r => Sem r ()
prog = do
  Log.debug "debugging"
  Log.info "info"
  Log.error "failing"

And I get almost all possible combinations:

• All three messages are there
• only the first one is there
• Last one is missing
• no message is displayed

[tek]

curious. I shall investigate!