diff options
| -rw-r--r-- | Assistant/NamedThread.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/NamedThread.hs b/Assistant/NamedThread.hs index 0a090d0d2..33af2c304 100644 --- a/Assistant/NamedThread.hs +++ b/Assistant/NamedThread.hs @@ -64,7 +64,7 @@ startNamedThread urlrenderer namedthread@(NamedThread name a) = do Right _ -> noop Left e -> do let msg = unwords - [ fromThreadName name + [ fromThreadName $ threadName d , "crashed:", show e ] hPutStrLn stderr msg |