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

fix some warnings

Browse source
This commit is contained in:
Joey Hess 2020-08-15 14:33:18 -04:00
parent 653652fdde
commit ad64079b44
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Remote/External/AsyncExtension.hs vendored
View file

@ -75,10 +75,10 @@ receiveloop external st jidmap sendq = externalReceive st >>= \case
receiveloop external st jidmap sendq
Nothing -> protoerr "unknown job number"
Nothing -> case parseMessage l :: Maybe ExceptionalMessage of
Just msg -> do
Just _ -> do
-- ERROR is relayed to all listeners
m <- readTVarIO jidmap
forM (M.elems m) $ \c ->
forM_ (M.elems m) $ \c ->
atomically $ writeTBMChan c l
receiveloop external st jidmap sendq
Nothing -> protoerr "unexpected non-async message"