From ad64079b44c83e99feaf55a9ad73fbfcfc5129a4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 15 Aug 2020 14:33:18 -0400 Subject: [PATCH] fix some warnings --- Remote/External/AsyncExtension.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Remote/External/AsyncExtension.hs b/Remote/External/AsyncExtension.hs index a009534794..e0fdf9de4c 100644 --- a/Remote/External/AsyncExtension.hs +++ b/Remote/External/AsyncExtension.hs @@ -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" -- 2.30.2