avoid a warning

2013-02-06 15:43:23 -04:00 · 2013-02-06 15:43:23 -04:00 · 084543a117
commit 084543a117
parent 937cf81873
1 changed files with 1 additions and 1 deletions
--- 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