diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-06 15:43:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-06 15:43:23 -0400 |
| commit | 579e7c6d09ef4adb8a27126eee935035af39153d (patch) | |
| tree | 1e1b7b7a06180df94f4694e8a1118cccb58a36f0 | |
| parent | 5d4a987bb9d0796af6597c307739482a4a8e1898 (diff) | |
avoid a warning
| -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 |