mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid a warning

Browse source
This commit is contained in:
Joey Hess 2013-02-06 15:43:23 -04:00
parent 937cf81873
commit 084543a117
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/NamedThread.hs
View file

@ -64,7 +64,7 @@ startNamedThread urlrenderer namedthread@(NamedThread name a) = do
Right _ -> noop Right _ -> noop
Left e -> do Left e -> do
let msg = unwords let msg = unwords
[ fromThreadName name [ fromThreadName $ threadName d
, "crashed:", show e , "crashed:", show e
] ]
hPutStrLn stderr msg hPutStrLn stderr msg