Bug: Program just stops if some error occurred

[BananchickPasha]

For example, I have this code:

main = do
  putStrLn "Start"
  let f :: Sem [TDLib, Embed IO] ()
      f = setLogPath "log.log" >> Prelude.error "force error"
  runM $ runTDLibEventLoop 0 (\_ -> return ()) f
  putStrLn "End"

When I start this program, instead of CallStack with error message I see just Start in stdout.

It's really annoying because I get some error and cannot see what I am doing wrong.