From 77952b6c7eb05e4e08169c09ed46770ef95445d0 Mon Sep 17 00:00:00 2001 From: Frank Doepper Date: Wed, 20 Nov 2019 15:35:44 +0100 Subject: [PATCH] handle server connection close exit code --- agitprop.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/agitprop.hs b/agitprop.hs index c82adb0..233e881 100644 --- a/agitprop.hs +++ b/agitprop.hs @@ -82,7 +82,7 @@ main = do then mapM_ (publishOneMsg Nothing) (BL.lines messageFile) else publishOneMsg (Just (inputFile args)) messageFile hr "END sending") - (\exception -> printparam' "exception" $ show (exception :: X.SomeException)) + exceptionHandler -- all done. wait and close. if (confirm args) then waitForConfirms chan >>= (printparam' "confirmed") . show -- 2.39.5